[problem] Szukanie rożnych wyrazów w plikach tekstowych

[AndrzejGrubba]

Cze. Bawię się trochę teraz w autoit, i nie mogę rozwiać jednej rzeczy. Mój kod wygląda tak:

 

$plik = "plik.txt"
$plik2 = "plik2.txt"

$licz = _FileCountLines($plik)
$licz2 = _FileCountLines($linki)

For $x = 1 To $licz Step +1
$a = FileReadLine($plik, $x)

$slowo = "[slowo]"

StringReplace($a, $slowo, $slowo)
$ile = @extended

If $ile > 0 Then
$lol = StringReplace($a, $slowo, "")
For $y = 1 To $licz2 Step +1
$b = FileReadLine($plik2, $y)

$slowo2 = $lol

StringReplace($b, $slowo2, $slowo2)

$ile2 = @extended

If $ile2 > 0 Then
MsgBox(0, "", $lol & @CRLF & $
EndIf
Next
EndIf
Next

 

Czyli na początku w pliku "plik.txt", szuka "[slowo]", i jeśli je znajdzie zwraca mi całą linijkę w której się znajduje (tylko usuwa z linijki "[slowo]"), po czym w drugim pliku ma znaleźć linijkę w której się znajduje dalsza cześć zwróconej linijki z pierwszego pliku.

 

Za pomoc daje "lubię to"

 

Przykład plik.txt

blablablabla
[slowo]lolololololololol
blablablablablabla

 

Przykład plik2.txt

blblablablablablablablablablablablabla
blablablablabl
blablalolololololololol

[woBniaR]

Nie napisałeś jaki jest problem.

[Sopelek997]

#include <file.au3>
$slowo = "[słowo]"
$file = fileopen("filepath")
$lines = _fileCountLines("filepath")
for $i = 1 to $lines
$line = filereadline($file, $i)
if stringinstring($line, $slowo) then msgbox(64, '', stringreplace($line, $slowo, ""))
next

 

jakoś tak, pisane na szybko