CodeItBetter Programming Another VB Programming Blog

'Text File Handling - Search & Delete the Line for Given Search String in a text file
Public Sub DeleteLineForGivenSearchString(ByVal strFileName As String, _
    ByVal strSearchString As String)
    'Search for text if found Delete Line
    Dim strTxt As String
    Dim strLines() As String
    Dim I As Integer
 
    'strFileName = "C:\Temp\ReadMe.txt"
    'strSearchString = "Windows contains"

    'Open the text file
    Open strFileName For Input As #1
    'load the text file in strTxt variable
    strTxt = Input(LOF(1), 1)
    'close the text file
    Close #1
    'Split the text file
    strLines() = Split(strTxt, vbCrLf)
 
    'Clear existing text
    strTxt = ""
 
    For I = LBound(strLines) To UBound(strLines)
        'search the string
        If InStr(1, strLines(I), strSearchString) = 0 Then
            strTxt = strTxt & vbCrLf & strLines(I)
        End If
    Next I
 
    'open the text file to write the content of strTxt
    Open strFileName For Output As #1
    Print #1, strTxt
    'Close the text file
    Close #1
End Sub
'
'Call this function as:
'Call DeleteLineForGivenSearchString("C:\Temp\ReadMe.txt", "This sample contains a co")