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

dandandan · 发表于 2005-6-2 18:02:00

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

wyj7485 · 发表于 2005-6-2 18:16:00

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

dandandan · 发表于 2005-6-2 19:33:00

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

mikewolf2k · 发表于 2005-6-2 19:58:00

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

dandandan · 发表于 2005-6-2 20:04:00

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

dyheng · 发表于 2005-6-2 20:27:00

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 · 发表于 2005-6-3 09:32:00

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

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

发表回复

精选推荐