Search in text file

[Clever1mba 0]

hello

i m back with new problem hope u guyz give me solution

bec i always get solution at this forum

here is my code

test.txt file contain lots of text but we just find DATES: in test.txt file

dates contain like this

dates:01/05/05

dates:02/05/05 etc

we use dates as keyword

#include <Array.au3>

#include <GUIConstants.au3>

GUICreate("TEST SEARCH") 

$myedit=GUICtrlCreateEdit (""& @CRLF, 1,50,400,300,$ES_AUTOVSCROLL+$WS_VSCROLL)

GUISetState ()

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

If $file = -1 Then

    MsgBox(0, "Error", "Unable to open file.")

    Exit

EndIf

While 1

$char =FileRead($file, 99999999)

If @error = -1 Then ExitLoop

GUICtrlSetData( $myedit, $char)

Wend

FileClose($file)

While 1

    $msg = GUIGetMsg()

   

    If $msg = $GUI_EVENT_CLOSE Then ExitLoop

Wend

Edited June 12, 2005 by asimzameer