Столкнулся с проблемой поиска и копирования данных в обычном тхт. Имеется текстовик на 830 строк, в нем есть нужные строки-данные. Задача вроде простенькая, найти эти строки и скопировать их в отдельный текстовик. Искал в инете, кроме вот такого скрипта, ничего не нашел:
Ищет строки норм, (за исключением одной мелочи), но не могу разобраться как сделать, чтобы он не выводил данные в окно, а копировал найденные строки в другой текстовик. Может кто подскажет, как возможно это реализовать.
Код:
#include <Array.au3>
$sTemp = ''
$sTest = 'вася'
$i = 0
$j = 0
Dim $aTest[1]
$hFile = FileOpen('test.txt', 0)
While 1
$i += 1
$sTemp = FileReadLine($hFile, $i)
If @error = -1 Then ExitLoop
If StringInStr($sTemp, $sTest) Then
$j += 1
ReDim $aTest[$j + 1]
$aTest[$j] = $i
EndIf
WEnd
FileClose($hFile)
If Not $j Then
MsgBox(0, '', 'Нет совпадений.')
Else
$aTest[0] = 'Найдено совпадений: ' & $j & ' в строках:'
_ArrayDisplay($aTest, 'Прочитано строк: ' & $i - 1)
EndIf
Ищет строки норм, (за исключением одной мелочи), но не могу разобраться как сделать, чтобы он не выводил данные в окно, а копировал найденные строки в другой текстовик. Может кто подскажет, как возможно это реализовать.