Searching for a string in a text file line by line

[Megatron]

eiSecure: The following code will work with single instances of the ~BEGIN and ~END tags, but it doesn't work with multiple instances (but you should be able to add it in if you play around with it for a bit).

Dim sFile As String
Dim saFile() As String
Dim strText As String
 
Open "MyFile.txt" For Input As #1
sFile = Input(LOF(1), 1)
Close #1
 
saFile = Split(sFile, vbCrLf)
 
For y = 0 To UBound(saFile)
    If Trim$(saFile(y)) = "~BEGIN" Then
        For x = y To UBound(saFile)
            If Trim$(saFile(x)) = "~END" Then
                For Z = y + 1 To x - 1
                    strText = strText & saFile(Z) & vbCrLf
                Next Z
                strText = strText & vbCrLf
            End If
        Next x
    End If
Next y
 
Text1 = strText

[DaoK]

Private Sub Form_Load() 
Dim theString As String 
Dim startCount As Integer 
Dim endCount As Integer 
Dim block1 As String 
Dim block2 As String 
Dim i As Integer 
 
block1 = "[Start]" 
block2 = "[End]" 
theString = block1 & vbCrLf & "asdf" & vbCrLf & block2 & vbCrLf & _ 
block1 & vbCrLf & "jjjp" & vbCrLf & block2 
 
startCount = 1 
For startCount = 1 To Len(theString) 
startCount = InStr(startCount, theString, "[Start]", vbTextCompare) 
If startCount = 0 Then Exit For 
endCount = InStr(startCount, theString, "[End]", vbTextCompare) 
Debug.Print Mid(theString, startCount + Len(block1), endCount - (startCount + Len(block1))) 
startCount = endCount 
Next startCount 
 
End Sub