[Данные, строки] поиск и копирование из одного файла в другой

[egor]

почемуто неработает помогите с решением

#include <file.au3>
#include <String.au3>

$sFile = @ScriptDir & "\SelectedText.txt" 
$sFilegde = @ScriptDir & "\gde.txt"
$sFilekuda = @ScriptDir & "\kuda.txt"
$sLines = _FileCountLines($sFile)
$sLinegde = _FileCountLines($sFilegde)
For $i = 1 To $sLines
    $serchword = FileReadLine($sFile, $i)
Next

Func Example()
    For $x = 1 To $sLinegde
	$sTemp = FileReadLine($sFilegde, $x)
	If StringInStr($sTemp, $serchword) Then
	FileOpen($sFilekuda, 1)
	FileWrite($sFilekuda, $sTemp & @CRLF)
	FileClose($sFilekuda)
	Endif
	Next
EndFunc

да решено

 

[edyapd]

Сильно не вникал, но не вижу, где у вас вызывается функция?

 

[AZJIO]

egor
Порядок следующий: Считываете файл функцией FileRead, чтобы проверить в нём вхождение с помощью StringInStr и только при True, то есть "найдено" считываете строку. Например StringSplit отправляет данные в массив (которые возвратил FileRead), с разделителем @CRLF. И далее просто взять содержимое ячейки по номеру элемента массива.