searching a text file.

[mooose]

how do you search a text file for a certain word and then delete it from that text file in vb 5?

------------------
Mooose

[JHausmann]

Read a text file record into a string.
Loop through the string looking for the word in question.
When you find it, modify/replace the existing string.


In the following example, I remove any occurence of a single quote " ' ".

Open sImportFile For Input As #3

Do Until sLine = ENDOFTABLE 
   ncheck = 1
   stest = "'"
   sLine = sCust
   Do Until ncheck = 0
       ncheck = InStr(1, sLine, stest, vbTextCompare)
       If ncheck > 0 Then
           sLine1 = Mid(sLine, 1, ncheck - 1)
           sLine2 = Mid(sLine, ncheck + 1, Len(sLine))
           sLine = sLine1 & " " & sLine2
       End If
   Loop
   Line Input #3, sLine
Loop

[This message has been edited by JHausmann (edited 02-09-2000).]