CodeItBetter Programming Another VB Programming Blog

'Text File Handling - How to Search & delete a string in text File
'Without using Regular Expressions

Option Explicit
Public Sub RemoveTextFromRTF(ByVal strFile As String, ByVal strRemoveTextPattern As String)
' Procedure : RemoveTextFromRTF
' DateTime  : 7/11/2006 04:19
' Purpose   : This procedure will read the rtf in text format and will remove document
'             generator informations from the rtf file.
'             This will remove the string specified in between { and } braces.
'
    Dim sText As String, lPos As Long, lStart As Long, lEnd As Long
    Open strFile For Input As #1
    sText = Input(LOF(1), #1)
    Close #1
    lStart = 1
    Do
        lPos = InStr(lStart, sText, strRemoveTextPattern)
        If lPos Then
            lStart = InStrRev(sText, "{", lPos)
            lEnd = InStr(lPos, sText, "}")
            If lEnd > 0 And lStart > 0 Then
                sText = Left$(sText, lStart - 1) & Mid$(sText, lEnd + 1)
            Else
                lStart = lPos + 4
            End If
        End If
    Loop Until lPos = 0
    Open strFile For Output As #1
    Print #1, sText
    Close #1
End Sub
'Call this function as:
'Call RemoveTextFromRTF("C:\12302.rtf","\generator")