vb怎样读取txt文本每一行的指定内容

Question

例如我要读取a.txt里 time= 后面的内容，代码是什么
（要输出到文本框，time= 后面的内容如果大于100ms就改变颜色）

Answer 1

Dim TextLine
Dim ret as String
Open "目录\a.txt" For Input As #1 ' 打开文件。
Do While Not EOF(1) ' 循环至文件尾。
Line Input #1, TextLine ' 读入一行数据并将其赋予某变量。
'这时就是取到的第一行的值了，如果你确定每行都是这种格式“time=123”，那么你就可以用
'下面的语句：
ret=mid(TextLine,6)
Loop
Close #1 ' 关闭文件。