Help - Search Array - _ArraySearch

[Kogmedia]

Hello everyone,

I haven't been programing with autoit for very long. I have a problem and i can understand how I can work around it.

I want to search a txt file, and search for a specific word and return all the results but my problem keeps on giving me the first one it found?

Thanks,

Keith

Heres my code.

#Include<Array.au3>
#include <file.au3>
Dim $pricehistory,$found
$filename = "pricehistory.txt"
$apptile = "Search!"

$Input = InputBox("Price History Search", "Find?")
If @error Then Exit

If Not _FileReadToArray($filename,$pricehistory) Then
   MsgBox(4096,$apptitle, "Error reading watchlist:" & @error)
   Exit
EndIf
For $x = 1 to $pricehistory[0]
$found = _ArraySearch ($pricehistory, $Input, 0, 0, 0, True)
MsgBox(0,"Found",$found)
Next

Edited April 29, 2007 by Kogmedia

[MHz]

ArraySearch() is not suitable for each line AFAIK as it will search the whole array at once. So use StringInStr().

For $x = 1 to $pricehistory[0]
    If StringInStr($pricehistory[$x], $Input) Then
        MsgBox(0,"Found", $Input)
    EndIf
Next

[Zedna]

#Include<Array.au3>
#include <file.au3>

Dim $pricehistory,$found
$filename = "pricehistory.txt"
$apptitle = "Search!"

$Input = InputBox("Price History Search", "Find?")
If @error Then Exit

If Not _FileReadToArray($filename,$pricehistory) Then
   MsgBox(4096,$apptitle, "Error reading watchlist:" & @error)
   Exit
EndIf

$found = _ArraySearch ($pricehistory, $Input, 0, 0, 0, True)
MsgBox(0,"Found",$found)

[martin]

Hello everyone,

I haven't been programing with autoit for very long. I have a problem and i can understand how I can work around it.

I want to search a txt file, and search for a specific word and return all the results but my problem keeps on giving me the first one it found?

Thanks,

Keith

Heres my code.

#Include<Array.au3>
#include <file.au3>
Dim $pricehistory,$found
$filename = "pricehistory.txt"
$apptile = "Search!"

$Input = InputBox("Price History Search", "Find?")
If @error Then Exit

If Not _FileReadToArray($filename,$pricehistory) Then
   MsgBox(4096,$apptitle, "Error reading watchlist:" & @error)
   Exit
EndIf
For $x = 1 to $pricehistory[0]
$found = _ArraySearch ($pricehistory, $Input, 0, 0, 0, True)
MsgBox(0,"Found",$found)
Next

Edit: changed For next to while wend

Edited April 29, 2007 by martin

[Kogmedia]

Thanks!