Поиск строк в файле

$N = 5
Local $s[$N]; Number of relevant strings
$s[0] = 'string1'
$s[1] = 'string2'
$s[2] = 'string3'
$s[3] = 'string4'
$s[4] = 'string5'
$sPath = 'path to the file'; Path to the file
$hRead = FileOpen($sPath, 0)
$j = 0
While 1
	$line = FileReadLine($hRead); Read line from file one by one
	If @error = -1 Then ExitLoop; In EndOfFile Then Exit from cycle
	For $i = 0 to $N - 1
		If StringCompare($line, $s[$i]) = 0 Then $j = 1; Compare every relevant string with line
	Next
WEnd
If $j = 0 Then MsgBox(0, 'Result', 'There is no relevant strings in file')

#Include <File.au3>
$sPatch='1.dat'
$iCount=_FileCountLines($sPatch)
Local $sText
For $i=1 To $iCount
	$sLine = FileReadLine($sPatch,$i)
	$sText &= $sLine
Next
MsgBox(0,'$sText',$sText)

$sCheck_Lines = 'string1|string2|string3|string4|string5'
$sCheck_Lines = '|' & $sCheck_Lines & '|'

$sPath = @ScriptDir & '\file.txt'; Path to the file
$aFile_Lines = StringSplit(StringStripCR(FileRead($sPath)), @LF)

$iLine_Found = 0

For $i = 1 To $aFile_Lines[0]
	If StringInStr($sCheck_Lines, '|' & $aFile_Lines[$i] & '|') Then
		$iLine_Found = 1
	EndIf
Next

If Not $iLine_Found Then MsgBox(0, 'Result', 'There is no relevant strings in file')

$sPath = @ScriptDir & '\file.txt'; Path to the file

$sCheck_Lines = 'string1|string2|string3|string4|string5'
$sCheck_Lines = StringRegExpReplace($sCheck_Lines, '([][{}().?+*\\^])', '\\\1')

$iRet = StringRegExp(FileRead($sPath), '(?im)^(' & $sCheck_Lines & ')(\r\n|\r|\n)?')

If Not $iRet Then MsgBox(0, 'Result', 'There is no relevant strings in file')

$sCheck_Lines = StringRegExpReplace($sCheck_Lines, '([][{}()|.?+*\\^])', '\\\1')
$sCheck_Lines = StringReplace($sCheck_Lines, '\|', '|')

$sCheck_Lines = StringRegExpReplace($sCheck_Lines, '([][{}().?+*\\^])', '\\\1')