读取每行TXT如下代码:
VB.NET code
Public Sub ReadFileSample()
'打开程序当前路径下的config.txt文件
'内容就是楼主贴出来的
Dim reader As TextReader = File.OpenText("config.txt")
Dim line As String = reader.ReadLine() '读第一行
line = reader.ReadLine() '读第二行
line = reader.ReadLine() '读第三行
Dim n As Integer = 3 '当前行号
While line <> "" And n < 50
line = reader.ReadLine() '读下一行
n = n + 1
End While
Dim items As String() = line.Split(" ".ToCharArray(), StringSplitOptions.RemoveEmptyEntries)
For Each item As String In items
Console.WriteLine(item)
Next
End Sub