Что нового

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

egor

Новичок
Сообщения
2
Репутация
0
почемуто неработает помогите с решением
Код:
#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

Осваивающий
Сообщения
380
Репутация
30
Сильно не вникал, но не вижу, где у вас вызывается функция?
 

AZJIO

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