Алгоритм Бойер-Мура - Компьютерный форум OSzone.net

Код:
var fso = new ActiveXObject("Scripting.FileSystemObject");

var r = fso.OpenTextFile("in.txt", 1, true);

var st = r.ReadLine();                                                      // Считывает первую строку

var st2 = r.ReadAll();                                                      // Считывает весь оставшийся текст

r.Close();



var m = st.length;                                                          // Вычисляет длину строки

var badChar = new Array();                                                  // Создаёт массива, где каждой букве шаблона соответствует индекс её последнего вхождения

var answer = new Array();                                                   // Создаёт массива ответов. Тут лежат индексы вхождений слова "война" в текст

var index = 0;                                                              // Позиция, на которой находится цикл на данной итерации

var iterCount = st2.length - st.length;                                     // Вычисляет кол-во итераций, чтобы не выйти за пределы строки



for(j = 0; j < m; j++)                                                      // Заполняет массив badChar (индексы с единицы, а не с нуля)

        badChar[st.charAt(j)] = j + 1;





while (index <= iterCount){                                                 // Сам поиск: Выполняется пока index <= длине текста минус длине строки

        var pos = st.length - 1;                                                // Вычисляет позицию последней буквы шаблона

    var ppi = pos + index;                                                  // Вычисляет позицию буквы текста, с которой нужно начинать сравнения

        var flag = false;

    

        while (st.charAt(pos) == st2.charAt(ppi) && !flag){                     // Пока символ строки равен символу текста, и правда, то

                if (pos == 0){                                                      // Если длина строки = 0,то добавляем элемент индекса в массив answer

                        answer.push(index);

                        flag = true;

                }

                pos--;

        ppi--;

        }



        if(badChar[st2.charAt(pos + index)] == undefined)                       // Проверка на то, определён ли символ, с которого начиналось сравнение, в словаре badChar

                index += (m - pos);                                                 // Если нет, то увеличиваем index на длину шаблона

        else

                index += Math.max(m - badChar[st2.charAt(pos + index)] - pos, 1);   // Иначе index увеличиваем на наибольшее значение из (единицы) и (разности длины шаблона и эвристики несовпавшего символа)



}



if (answer.length==0)

        WSH.echo("Not found");

else {

        WSH.echo("Mathces: " + answer.length);

    WSH.echo(answer.join("\n"));

}
Код рабочий, но есть одна проблема, то что я не пойму когда в тексте ищешь допустим "aaa" , то в тексте "aaaaaaaaa" он находит только первые "aaa", а остальное не видит