Find String

[nobby]

Hey,

Is there a way of finding a word within a text file?

Say I am trying to look for the word "banana" in fruit.txt, then do something based uppon the result?

Cheers

[CyberSlug]

One way is to read in the entire file using FileReadLine--see help file for example.

Another way shown below is to use the command-line tool find and pipe the results to a file....

Not tested!

$word = "banana"
$fileToSearch = '"C:\wherever\fruit.txt"'

RunCmd('find /n ' & $word & ' ' & $fileToSearch & ' ' > "output.txt")

;RunCmd creates a file output.txt with the search results.
;  Output.txt's first line is something like "----- FRUIT.TXT"
;  If other lines are present, they tell you where in FRUIT.TXT
;  the word 'banana' was found

FileOpen("output.txt", 0)

; rest of script goes here

Func RunCmd( $command )
  Return RunWait( @ComSpec & " /C " & $command, "", @SW_HIDE )
EndFunc

[trids]

You've also got the option of using Windows' grep .. along the lines of Sluggies description of the DOS find.

It offer Regular Expressions too

[nobby]

Thanks for the replies.

I was hoping to stay away from DOS and other external apps.

I have tested the code and found that it does not work because the quote marks around the variable are not quite correct

$word = "banana"
$fileToSearch = '"C:\wherever\fruit.txt"'
Should be
$word = '"banana"'
$fileToSearch = "c:\wherever\fruit.txt"

For the FIND arguments to be formatted correctly.

But there's more and this is when it get a bit weird...

Here is a code that is a slight variant from the original

$word = '"banana"'
$fileToSearch = "C:\fruit.txt"

RunCmd('find /n ' & $word & ' ' & $fileToSearch & ' ' > "C:\output.txt")

;RunCmd creates a file output.txt with the search results.
;  Output.txt's first line is something like "----- FRUIT.TXT"
;  If other lines are present, they tell you where in FRUIT.TXT
;  the word 'banana' was found

FileOpen("c:\output.txt", 0)

; rest of script goes here

Func RunCmd( $command )
 Return RunWait( @ComSpec & " /C " & $command, "", @SW_HIDE )
EndFunc

When running this bit of code with notepad open and focussed, my logon password gets typed into notepad???

This happens only when the output of find is piped into a filename with a path. If it is set just to "output.txt" the script does not create the output.txt file, but it does not type the logon password into notepad.

Note that my logon password may also have been included into the IE password manager at some stage.

Could someone try the script and see if the result is the same???

Cheers

[CyberSlug]

Oops. It appears the redirection/pipe thingy was not inside qutation marks.

Try:

RunCmd('find /n ' & $word & ' ' & $fileToSearch & " > output.txt")

[scriptkitty]

All AutoIt solution:

$word=InputBox("Question", "What word?", "banana", "", -1, -1, 0, 0)
$file = FileOpen("fruit.txt", 0)
; Check if file opened for reading OK
If $file = -1 Then
    MsgBox(0, "Error", "Unable to open file.")
    Exit
EndIf
; Read in lines of text until the EOF is reached
While 1
    $line = FileReadLine($file)
    If @error = -1 Then ExitLoop
if StringInStr(" "&$line,$word)>0 then MsgBox(1, "Found"& $word, $line) 
; I add the space in front in case banana is the first word of that line. 
Wend
FileClose($file)

Easy to get more complex though, you could count the amount of times, ect.

edit... actually this is almost entirely taken from the help file as CyberSlug pointed to. I tend to use the help file for examples whenever I can.

Edited February 25, 2004 by scriptkitty

[stfields]

ScriptKitty:

If I remove all the pop-up msg boxes from your code, will it change the "window focus" at any time when searching for a string in that file?

Also on a non-related topic: does the FileDelete command cause the window focus to change?

[scriptkitty]

You can run it from anouther script if you like, or even a command line as well.

; search.au3
; usage search.exe filename searchword
$count=0
if $CmdLine[0]=2 then
$word=$CmdLine[2]
$file = FileOpen($CmdLine[1], 0)
If $file = -1 Then
   Exit
EndIf
While 1
   $line = FileReadLine($file)
   If @error = -1 Then ExitLoop
if StringInStr(" "&$line,$word)>0 then 
$count=$count+1
ToolTip ( "Found "&$word&" in "&$line , 0, 0 )
sleep(3000)
endif
Wend
FileClose($file)
endif

You can also use this as a function, and it shouldn't gain focus unless you use a popup msgbox, or input box.

edit... put sleep inside if so that it only shows tip if it finds something.

and showed a use of count.

Edited February 25, 2004 by scriptkitty

[stfields]

I'm trying to parse a file that has a lot of...how you say..."junk" in it. Lots of those "square like" characters mixed in with the stuff I am trying to read.

The end product is that I am trying to count the occurences of certain strings found w/in the file. The file is in essence one line only and approximately 4300-4600 bytes. When I read in the line, only the first 100 or so characters appear if I output my variable to a file. However, when I put in a line break in this one-line file(around the 100th character)and make it two lines, I can read all the second-line characters (about 4400 of them) with no problem.

Is there a command that will let me start "reading" from a particular byte of the file, so I can just skip all the "junk" in the beginning?

I know this is possible using a file-pointer in C, however I'd like to stick to an AutoIt only solution if at all possible. I also am trying to do this w/o losing focus on the current window (all parsing of the file should be done in the background).

Any help/advice would be appreciated!

[scriptkitty]

$file = FileOpen("fruit.txt", 0)
; Check if file opened for reading OK
If $file = -1 Then
   MsgBox(0, "Error", "Unable to open file.")
   Exit
EndIf
; Read in lines of text until the EOF is reached
While 1
   $line = FileReadLine($file)
   If @error = -1 Then ExitLoop
$x=line; the one line you have
;msgbox(1,"Displaying the line",StringTrimLeft ( $x, 100 ); uncomment this if you have more than one line
Wend
FileClose($file)
msgbox(1,"Displaying the line",StringTrimLeft ( $x, 100 ); show everything after the 100th character.

You can also determine what the little box is with many different programs, such as UltraEdit in hex mode. then you can simply parse out the data with chr() or simply remove any text that is not in your range.

AutoIt has many tools for working with strings, one of them is sure to work.

[scriptkitty]

This should give you a straight count of what ever you wish. It grabs each line, finds if it has the word, removes it from the front of the line, and tests again until it can't find it, and then does the next line till the end of the file.

It displays the result in the top left corner for 3 seconds or so, and puts it in the clipboard, yet does not change focus.

; search.au3
; usage search.exe filename searchword
$count=0
if $CmdLine[0]=2 then
$word=$CmdLine[2]
$file = FileOpen($CmdLine[1], 0)
If $file = -1 Then
  Exit
EndIf
While 1
  $line = FileReadLine($file)
  If @error = -1 Then ExitLoop
while StringInStr(" "&$line,$word)>0
$count=$count+1
$line=StringTrimLeft ( $line, StringInStr(" "&$line,$word) )
wend

Wend
FileClose($file)
endif
ToolTip ( "Found "&$word&" in "&$count&" times", 0, 0 )
sleep(2000)
clipput($count)

[Josbe]

...and for a search more specific, use Case-sensitive.

[maurocav]

Please help me:

$file = FileOpen("test.txt", 0)

$word=InputBox("Question", "What word?", "", "", -1, -1)

While 1

$line = FileReadLine($file)

If @error = -1 Then ExitLoop

if StringInStr(" "&$line,$word)>0 then MsgBox(1, "Found"& $word, $line)

Wend

ClipPut($line)

i need to copy $line into clipboard

tank

[MrCreatoR]

i need to copy $line into clipboard

So where the problem? you did it in the code. Or you want to put the line number?

[maurocav]

So where the problem? you did it in the code. Or you want to put the line number?

Not work, $line is empty

tank

[Josbe]

Not work, $line is empty

tank

testing...

$file = FileOpen(@ScriptFullPath, 0)
$word=InputBox("Question", "What word?", "", "", -1, -1)

$sWFound= ''
While 1
    $line = FileReadLine($file)
    If @error = -1 Then ExitLoop
    If StringInStr(" "&$line,$word) > 0 Then
        $sWFound &= $line & @LF
        MsgBox(1, "Found"& $word, $line)
    EndIf
Wend

ClipPut($sWFound)

[maurocav]

testing...

$file = FileOpen(@ScriptFullPath, 0)
$word=InputBox("Question", "What word?", "", "", -1, -1)

$sWFound= ''
While 1
    $line = FileReadLine($file)
    If @error = -1 Then ExitLoop
    If StringInStr(" "&$line,$word) > 0 Then
        $sWFound &= $line & @LF
        MsgBox(1, "Found"& $word, $line)
    EndIf
Wend

ClipPut($sWFound)

Tank , it work fine !