...как сделать так, что бы FileReadLine искал определенные выражения, а не всю строку.
Не обязательно именно этой командой делать поиск. Файл-лог, с содержимым к примеру такого плана:
[12:17:05] * Ivan_Ivanov[222] сказал: Дайте денег пожалуйста
[12:19:05] * Peter_Petrov[210] сказал: Привет, для тебя у меня их нет!
[12:20:25] * Ivan_Ivanov[222] сказал: Спасибо добр-человек, ну а у самого-то как дела?
[12:20:53] * Peter_Petrov[210] сказал: Да жирую поманеньку...
сохраняем под именем test.log в папке скрипта.
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