0

使用 VB.Net 和一个文本文件

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

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





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

FaceF1book 'line#1
我玩 Farmville 'line#2
我喜欢和朋友聊天 'line#3
我想出名 'line#4
'line#5
'line#6
TwitF2ter 'line#7
偶尔使用这个网站 ' line#8
'line#9
'line#10
FriendsF3ter 'line#11
我不想使用这个网站 'line#12

4

1 回答 1

0

这是另一种方法：

    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
于 2013-10-03T03:22:56.290 回答