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 ' 关闭文件。
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024