vb读取文件最后一行内容或指定行内容

VB TextStream 如何读取文本文件某行的内容
更多相关内容请访问"CAD家园论坛",获取完整满意的答案!只读取 40，41，41三行的内容，如何用TextStream做到
更进一步，就是如何控制它读那一行，某个范围的文字?Sub ttt()
Dim fso As New FileSystemObject
Dim ts As TextStream
Dim aData
Set ts = fso.OpenTextFile("c:\1.txt")
aData = Split(ts.ReadAll, bCrLf)
MsgBox aData(39)
MsgBox aData(40)
MsgBox aData(41)
End Sub



Streamreader 读取文本文件最后一行
Dim arr As String() = File.ReadAllLine("") 
Dim s As String = arr(arr.Length - 1)



有一个文本文件，我需要从文本文件的最后一行开始循环读取，直到读取到第一行结束。同时还需要添加控制，就是添加一个循环到指定数字时就退出循环。请各位帮帮忙！谢谢
VB code 
Private Sub Command1_Click() 
Dim i As Long, s() As String 
Open "d:\temp.txt" For Input As #1 
s = Split(StrConv(InputB(LOF(1), 1), vbUnicode), vbCrLf) 
Close #1 
For i = UBound(s) To 0 Step -1 
DoEvents