#include <File.au3>
Local $aRecords
Local $File = 'pclist.txt'
Local $FileResult = 'result.txt'
Local $Stroka = 'text'
If Not FileExists(@ScriptDir & '\' & $FileResult) Then _FileCreate(@ScriptDir & '\' & $FileResult)
If Not _FileReadToArray(@ScriptDir & "\" & $File, $aRecords) Then
MsgBox(4096, "Ошибка", " Ошибка чтения файла в массив Ошибка = " & @error)
Exit
EndIf
$hFile = FileOpen(@ScriptDir & '\' & $FileResult, 2);что-бы дописать в файл, сохранив предыдущее содержание - изменить 2 на 1
For $i = 1 To $aRecords[0]
If StringInStr($aRecords[$i], $Stroka) Then FileWriteLine($hFile, $aRecords[$i] & @CRLF)
Next
FileClose($hFile)