Question

使用VB.Net和文本文件

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

FaceF1book'第1行我玩Farmville'第2行 “线路＃3
“线＃4
TwitF2ter'第5行偶尔使用这个网站'＃6号线 “线＃7
“线＃8
FriendsF3ter'第9行我不想使用这个网站的第10号线＃10加权利。

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

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

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

1 个答案: