text find in log file

[Clever1mba 0]

hello

is there any way to find text and words in .txt file

i have modem log file in system folder

now log file have text "connected at 56000bps"

how to search "connected at 56000bps" in text file and promote user

connected at 56000bps

any solution help a lot

Edited June 8, 2005 by asimzameer

[jdickens 1]

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

; Check if file opened for reading OK
If $file = -1 Then
    MsgBox(0, "Error", "Unable to open file.")
    Exit
EndIf

Dim $Source = ""

; Read in lines of text until the EOF is reached
While 1
    $line = FileReadLine($file)
    If @error = -1 Then ExitLoop
    $Source = $Source & $line
Wend

FileClose($file)

If (StringInStr($Source, "connected at 56000bps"))
 Then
;text is there
Else
;it isn't
EndIf

J

[buzz44 1]

How about...

$FileName = "something.txt"
$file = FileOpen($FileName, 0)

; Check if file opened for reading OK
If $file = -1 Then
    MsgBox(0, "Error", "Unable to open file.")
    Exit
EndIf

$Source = FileRead($FileName,FileGetSize($FileName))

FileClose($file)

If StringInStr($Source, "connected at 56000bps") Then
 ;text is there
Else
 ;it isn't
EndIf

I used J's example above but shortend it abit. Actaully I think you can just do this...

$FileName = "something.txt"

$Source = FileRead($FileName,FileGetSize($FileName))

If StringInStr($Source, "connected at 56000bps") Then
 ;text is there
Else
 ;it isn't
EndIf

Edited June 8, 2005 by Burrup

[Groumphy 0]

And with a function :

Func _iFunctionIfStringFound()
    MsgBox(0 + 64, "Info", "String found", 10)
    Exit
EndFunc

Func _iFunctionIfStringNotFound()
    MsgBox(0 + 64, "Info", "String not found", 10)
    Exit
EndFunc

Func _FindStringInTextfile($iFile, $iString, $iFunctionIfStringFound, $iFunctionIfStringNotFound)
    $FileName = $iFile
    $Source = FileRead($FileName,FileGetSize($FileName))
    If StringInStr($Source, $iString) Then
        Call($iFunctionIfStringFound)
    Else
        Call($iFunctionIfStringNotFound)
    EndIf
EndFunc

_FindStringInTextfile("test.txt", "Xavier", "_iFunctionIfStringFound", "_iFunctionIfStringNotFound")

In the Text file :

Pauline
Raphaelle
Céline
Mariane

==> Give : not found

Gniark

[jdickens 1]

If I understand you, just search for "date:" instead of "connected at 56000bps", get the position of "date:", trim off that bit, then StringLeft($Source, 8) will give you the date part.

pseudocode:

While STringLen($Source) > $MinimumUsabelStringLen

$PosOfDate = StringinStr($Source, "date:")

$Source = StringTrimLeft($Source, $PosOfDate + StringLen("date:") - 1)

$DateValue = StringLeft($Source, StringLen("xx/xx/xx"))

$Source = StringTrimLeft($Source, "trim some more off")

Wend

J