Anders
Thanks for what you posted, any how I used a little defferent code and it works fine except that it will over write the second line of the found text, I hope you can help me to let writing after the found text, the code I used:
'''''''''''''''''''''
Stringsearch = "this is the search text"
pathh = "c:\log.txt"
Open pathh For Binary As #1
Do While Not EOF(1)
Line Input #1, stng
If stng = Stringsearch Then
Put #1, , vbEnter & "done"
End If
Loop
Close #1
''''''''''''''''''''''
The text file before implementing the code:
'''''''''''''''''
This is line one
This is line two
This is line three
this is the search text
This is line four
this is line five
''''''''''''''''''
The text file after implementing the code:
''''''''''''''''''
This is line one
This is line two
This is line three
this is the search text
done is line four
this is line five
'''''''''''''''''''
Any idea will be appreciated
Regards


[Edited by maqmaq on 07-18-2000 at 12:38 AM]