读取一行中的字符串，然后使用VB.NET在文本文件中显示下一行

Question

Using VB.Net and a text file

10 LINES (Below are the text/data inside a text file)
Filename: Test1.txt
Note #1: I want to search the string "F1" then display the "I play Farmville" in a TextBox1.Text

FaceF1book 'line#1
I play Farmville 'line#2
'line#3
'line#4
TwitF2ter 'line#5
Occassionally use this site 'line#6
'line#7
'line#8
FriendsF3ter 'line#9
I don't want to use this site 'line#10

12 LINES (Below are the text/data inside a text file)
Filename: Test2.txt
Note #2.1: I want to search the string "F2" then display the "Occassionally use this site" in a TextBox1.Text
Note #2.2: You can notice that the line position of the data aren't the same in the Example #1

FaceF1book 'line#1
I play Farmville 'line#2
I love to chat with my friends 'line#3
I want to be famous 'line#4
'line#5
'line#6
TwitF2ter 'line#7
Occassionally use this site 'line#8
'line#9
'line#10
FriendsF3ter 'line#11
I don't want to use this site 'line#12

Answer 1

Here's another approach:

    Dim dataFile As String = System.IO.File.ReadAllText("C:\Users\WindowsUser\Desktop\Test Files\test1.txt")
    If System.IO.File.Exists(dataFile) Then
        Try
            Dim lines As New List(Of String)
            lines.AddRange(System.IO.File.ReadAllLines(dataFile))

            Dim searchFor As String = "F1"
            For i As Integer = 0 To lines.Count - 1
                If lines(i).Contains(searchFor) Then
                    ' ... do something with lines(i + 1) ... ?
                    Exit For
                End If
            Next
        Catch ex As Exception
            MessageBox.Show(ex.ToString, "Error Reading File")
        End Try
    Else
        MessageBox.Show(dataFile, "File Not Found")
    End If