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

Question

使用 VB.Net 和文本文件

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

FaceF1book 'line#1
我玩 Farmville 'line#2
'第 3 行
'行#4
TwitF2ter 'line#5
偶尔使用这个网站'line#6
'第7行
'行#8
FriendsF3ter 'line#9
我不想使用此站点 'line#10

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

FaceF1book 'line#1
我玩 Farmville 'line#2
我喜欢和我的朋友聊天'line#3
我想出名'line#4
'行#5
'第 6 行
TwitF2ter 'line#7
偶尔使用这个网站'line#8
'行#9
'行#10
FriendsF3ter 'line#11
我不想使用这个网站 'line#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