AHK: Поиск по строке

IfNotExist, %A_ScriptDir%\test.log
   {
      MsgBox,,, Искомого файла нет, 1
      ExitApp
   }
StringCaseSense, Locale
FindWords := "дайте денег,привет,как дела?" ; переменная-фильтр
Loop, Read, %A_ScriptDir%\test.log
   {
      If !A_LoopReadLine
         {
            EmptyString := % A_Index
            CountEmptyStringNum .= ", "EmptyString
            CountEmptyString++
            MsgBox, 4,, % "Читение строки: "A_Index
                      . "`nСодержание: это пустая строка`n`nПродолжить?", 2
         }
      Else
         MsgBox, 4,, % "Читение строки: "A_Index
                   . "`nСодержание: "A_LoopReadLine "`n`nПродолжить?", 2
      IfMsgBox, No
         Return
   }
Loop, Parse, FindWords, `, ; поиск слова из чила слов в переменной-фильтре
   {
      FileRead, OutPutVar, %A_ScriptDir%\test.log
      IfInString, OutPutVar, % A_LoopField
         {
            CurrentWord := % A_LoopField
            FoundWords .= ", "CurrentWord
            FoundWordsNum++
         }
   }
StringTrimLeft, FoundWords2, FoundWords, 1 ; обрезка ненужной запятой
StringTrimLeft, CountEmptyStringNum2, CountEmptyStringNum, 1 ; тоже самое
If !CurrentWord
   MsgBox,,, Слова из переменной-фильтра не найдены, 2
Else
   MsgBox,,, % "Из переменной-фильтра`n`nнайдено: "FoundWords2
                                    . "`nколичество: "FoundWordsNum, 3
If !EmptyString
   MsgBox,,, Пустых строк не обнаружено, 2
Else
   MsgBox,,, % "Имеются пустые строки`n`nномер: "CountEmptyStringNum2
                                    . "`nколичество: "CountEmptyString, 3
ExitApp