主题：如何读取文本文件的指定行数据？

 这样操作

Dim strs As String = FileSys.ReadAllText("d:\test.txt")
strs = strs.Replace(vblf,"")
Dim rs() As String = strs.Split(vbcr)
msgbox(rs.count)
msgbox(rs(0))
msgbox(rs(1))