Question

In VB6, I’m looking for a way to remove a line of text from a text file if that line contains some string. I work mostly with C# and I’m at a loss here. With .NET there are several ways to do this, but I’m the lucky one who has to maintain some old VB code.

Is there a way to do this?

Thanks

Answer 1

Assuming you have the filename in a variable sFileName:

Dim iFile as Integer
Dim sLine as String, sNewText as string

iFile = FreeFile

Open sFileName For Input As #iFile
Do While Not EOF(iFile)
  Line Input #iFile, sLine
  If sLine Like "*foo*" Then
    ' skip the line
  Else
    sNewText = sNewText & sLine & vbCrLf
  End If
Loop
Close

iFile = FreeFile
Open sFileName For Output As #iFile
Print #iFile, sNewText
Close

You may want to output to a different file instead of overwriting the source file, but hopefully this gets you closer.