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

Question

使用VB.Net和文本文件

对于示例 1：10行（以下是文本文件中的文本/数据）
文件名：Test1.txt
注意＃1：我想搜索字符串“ F1”，然后在TextBox1.Text中显示“ I play Farmville”

FaceF1book'line＃1
我玩Farmville'line＃2
'第3行
'第4行
TwitF2ter'line＃5
偶尔使用此网站的“第6行”
'第7行
'第8行
FriendsF3ter'line＃9
我不想使用此网站的“第10行”

例如 2：12行（以下是文本文件中的文本/数据）
文件名：Test2.txt
注意＃2.1：我想搜索字符串“ F2”，然后在TextBox1.Text中显示“偶尔使用此站点”
注意＃2.2：您可能会注意到示例1中数据的行位置不同

FaceF1book'line＃1
我玩Farmville'line＃2
我喜欢和我的朋友在第3行聊天
我想成为著名的'第4行
'第5行
'第6行
TwitF2ter'第7行
偶尔使用此网站的“第8行”
'第9行
'第10行
FriendsF3ter'line＃11
我不想使用此网站的“第12行”

Answer 1

这是另一种方法：

    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