Проблема с бесконечным циклом в моем коде, и я не знаю, как ее решить - PullRequest
Новая
       10

Проблема с бесконечным циклом в моем коде, и я не знаю, как ее решить

0 голосов
/ 11 февраля 2019

По сути, массив Words () никогда не выходит за 0, так как OriginalChar () перетаскивается и проверяется снова и снова, редиммируя и добавляя похожие символы в следующий элемент.Задача состоит в том, чтобы в основном сканировать список слов, разбивая их все на отдельные символы, а затем, когда он не найден в массиве OriginalChar (), он добавляет его, и когда это происходит, частота увеличивается на единицу.

Заранее спасибо.

Я пробовал различные способы, такие как перетаскивание на улицу, но он не работает, если не находится внутри, поскольку каждый раз создает новый элемент в массиве.не найден. 

For i = 0 To Words.Length - 1
        For x = 0 To OriginalChars.Length 'INFINITE LOOP REGARDING LENGTH OF ORIGINALCHAR ARRAY.
            For j = 1 To Words(i).Length
                temp = Mid(Words(i), j, 1)
                If temp <> OriginalChars(x).Symbol Then
                    OriginalChars(SymbolCounter).Symbol = temp
                    OriginalChars(SymbolCounter).Frequency = 1
                    SymbolCounter += 1
                    ReDim Preserve OriginalChars(SymbolCounter)
                ElseIf OriginalChars(x).Symbol = temp Then
                    OriginalChars(x).Frequency += 1
                End If
            Next
        Next
    Next
...