Dim sr As StreamReader = New StreamReader(path)
Dim xx As String = sr.ReadToEnd()
sr.Close()
Dim arr As String() = xx.Split(Microsoft.VisualBasic.ControlChars.CrLf)
Dim file As New System.IO.StreamReader("c:\test.txt", System.Text.Encoding.Default)
Dim strLine As String
strLine = file.ReadLine() '读第1行
MessageBox.Show(strLine)
strLine = file.ReadLine() '读第2行
MessageBox.Show(strLine)
file.Close()