[VBA][求助]如何用VB提取文本文件中的某一行内容？多谢大家！

dandandan

[求助]如何用VB提取文本文件中的某一行内容？多谢大家！

wyj7485

Open "d:\test.txt" For Input As #1 ' 打开文件。
Do While Not EOF(1) ' 循环至文件尾。
Input #1, MyString ' 将数据读入变量。
Loop
Close #1 ' 关闭文件。

dandandan

多谢！可是我刚才试了一下，读不出来呀？我指的是读取其中几行的内容

mikewolf2k

只能一行行的读，到了你要的地方把内容读出来。

dandandan

实在不好意思，能举个例子吗？

dyheng

Dim i As Integer, myText As String
Open "d:\test.txt" For Input As #1 ' 打开文件。
Do While Not EOF(1) ' 循环至文件尾。
i = i + 1
If i = 5 Then Line Input #1, mystring: myText = myText & mystring ' 将数据读入变量。
Loop
Close #1 ' 关闭文件。

dandandan

非常感谢你们的帮助！谢谢！