关于vb 读取文件的操作.

来源：百度知道 编辑：UC知道 时间：2024/05/06 05:13:50
关于vb 读取文件的操作.
悬赏分：5 - 离问题结束还有 14 天 21 小时
我想要读取C盘下的xx.txt文件，
文件中的内容如下：
hello eeeeee hekko
fdfds hello
ffffffffffffffffffff
heello c x='readme'
ddfdsdsafsadfsdfsadf
我想要把x的值读出来，也就是readme，请问该如何操作？
另外 再问一个小问题啊，D:\JavaStudio6下面假设有 3个文件 hello1.dat hello2.dat hello3.dat
那么如何获得这3个文件的名字呢？？谢谢~~

Private Sub Command1_Click()
Open "c:\xx.txt" For Input As #1
Do While Not EOF(1)
Line Input #1, s
m = InStr(s, "x='")
If m <> 0 Then r = Mid(s, m + 3, Len(s) - m - 4)
Loop
Close #1
MsgBox r
End Sub

input

楼上的代码很正确，可以在IF语句之后加上Exit Do，这样找到以后就退出循环了