CodeItBetter Programming Another VB Programming Blog

'Text File Handling - How to Extract the Text between Two Strings in a Text file
Public Function ExtractTextBetweenTwoStringIn_A_File(ByVal strTextFile As String, _
    ByVal strFindString1 As String, ByVal strFindString2 As String) As String
    Dim f1 As Long
    Dim strText As String
    Dim intPos As Integer
    Dim intPos1 As Integer
 
    f1 = FreeFile
    Open strTextFile For Input As f1
    strText = Input(LOF(f1), #f1)
    Close f1
 
    intPos = InStr(1, strText, strFindString1)
    intPos1 = InStr(intPos + 1, strText, strFindString2)
    strText = Mid$(strText, intPos, intPos1 - intPos)
    ExtractTextBetweenTwoStringIn_A_File = strText
End Function
'Call this function as:
'Debug.Print ExtractTextBetweenTwoStringIn_A_File("C:\temp\readme.txt", "This ", "copy a")