Search Text File For Words in other text

[buzz44]

hello all, ive got 2 text files, text file #1 contains a list of files/folders each file/folder is displayed on a different line, text file #1 also contains the same list on files/folders

$sFileName = @TempDir & "\copytemp.txt"

FileOpen($sFileName, 0)

While 1

$sWord = FileReadLine(@TempDir & "\origtemp.txt")
$sText = FileRead($sFilename,FileGetSize($sfilename))

If StringInStr($sText,$sWord) Then 
   MsgBox(0,'', "Word is found in file!")
Else 
   Msgbox(0,'', "not found")
EndIf
Wend

FileClose($sFileName)

i am using that script to search the second file for the files/folders contained int he first. problem is it doesnt stop when the EOF is reached and i get an infinite amount of "Word is found in file", also, im not sure if it is going to a new line of text file #1 each time, i am using this to check if 2 directories contain the same files, any help plz

Edited January 8, 2005 by burrup

[the_lord_mephy]

$sFile = @TempDir & "\copytemp.txt"

$sOrig = @TempDir & "\origtemp.txt"

$sFileLines = _FileCountLines($sFile)

$sOrigLines = _FileCountLines($sOrig)

For $i = 1 to $sOrigLines

$sOrigLineText = FileReadLine($sOrig, $i)

$sFileLineText = FileReadLine($sFile, $i)

If StingInStr($sFileLineText, $sOrigLineText) Then

MsgBox(0, "", "File Found")

Else

MsgBox(0, "", "Not Found")

EndIf

Next

That should work, but it might take a while, actually I realized that the word would have to be in a corresponding line.

Edited January 9, 2005 by the_lord_mephy

[buzz44]

thanks i hope it does work, but little problem ... theres no "Next" in the "For" statment, and i dont know where to put it lol, help plz

[the_lord_mephy]

at the end, sorry, I was in a rush when I wrote it.

Edited January 9, 2005 by the_lord_mephy

[buzz44]

thanks but when i run it, nothing happens?????

[Jos]

try this version:

; read whole file into a variable
$sFileName = @TempDir & "\origtemp.txt"
$sText = FileRead($sFileName, FileGetSize($sFileName))
; open second file 
$H_Input = FileOpen(@TempDir & "\copytemp.txt", 0)
;
While 1
    $sWord = FileReadLine($H_Input)
    If @error Then ExitLoop
    If StringInStr($sText, $sWord) Then
        MsgBox(0, '', "Word is found in file!")
    Else
        MsgBox(0, '', "not found")
    EndIf
WEnd

FileClose($sFileName)

Edited January 9, 2005 by JdeB

[buzz44]

try this version:

OMFG thanks you lol, i can now finnaly finish wat i started like a week aho =P, thanks everyone for all ur help

[buzz44]

damn im stuck again lol, heres my situtation... "origtemp" contains a list of file/folders from a directory, i copied the actual files/folders to another directory, and "copytemp" contains the files/folders again, so in this case both text documents contain the same list of files and folders,

i am working on the above script, so if all or one of the files/folders arent in the list, it will say ONE msg box (blah blah erroe didnt work)

wat i need the script to do is...

> compare the contents of the to folders

> even if "copytemp" as other files listed AND has all the ones contained on origtemp it will say it worked

> IF even atleast ONE of the files in the list arnt there, it will give msgbox(0, "error" blah blah)

and help plz

edit: so wat i really need it to do is not do it line by line but compare the WHOLE files and if it has the origtemp list anywhere in it, it can have more listed, but as long as it has all the files listed that are in origtemp u get copied successfully

Edited January 9, 2005 by burrup

[Jos]

What about this approach ?

$Source="c:\source"
$Target = "c:\target"
; read whole file into a variable
$sFileName = @TempDir & "\origtemp.txt"
$sText = FileRead($sFileName, FileGetSize($sFileName))
; open second file 
$H_Input = FileOpen(@TempDir & "\copytemp.txt", 0)
;
While 1
    $sWord = FileReadLine($H_Input)
    If @error Then ExitLoop
    $sWord = $Target & StringTrimLeft($sWord,StringLen($Source))    
    If StringInStr($sText, $sWord) Then
        MsgBox(0, '', "Word is found in file!")
    Else
        MsgBox(0, '', "not found")
    EndIf
WEnd

FileClose($sFileName)

[buzz44]

hey, i just figured it out lol, so happy, what i done is count the lines in the first file and if it finds the string the counted number its all good

#include <file.au3>

$CountLines = _FileCountLines(@TempDir & "\origtemp.txt")
$sFileName = @TempDir & "\origtemp.txt"
$sText = FileRead($sFileName, FileGetSize($sFileName))
$H_Input = FileOpen(@TempDir & "\copytemp.txt", 0)
$count = 0
While 1
    $sWord = FileReadLine($H_Input)
    If @error Then ExitLoop
    If StringInStr($sText, $sWord) Then
        $count = $count + 1
    Else
        $count = $count
    EndIf
WEnd

If $Count = $CountLines Then
msgbox(0, "", "did this work?")
Else
msgbox(0, "", "it didnt work")
EndIf