vb读TXT文件的问题

来源：百度知道 编辑：UC知道 时间：2024/06/08 12:04:20
我想用VB读取D盘下的test.txt文件。文件内容为：
20080627-63 12877
20080627-64 40980
20080627-65 76697
20080627-66 76416
20080627-67 44844
20080627-68 26383
20080627-69 46046
20080627-70 01405
20080627-71 73767
20080627-72 59761
我想读第三行的76697并存到变量a，请问该怎么做。谢谢
可以解释一下代码吗

dim s as string,a as long
open "d:\test.txt" for input as #1
input #1,s,a
input #1,s,a
input #1,s,a
close #1

补充：已经在给你的消息里注释了。

a=FSO_ReadLine("D:\Test.TXT",3) '调用函数读取第3行并赋值给a

Function FSO_ReadLine(FileName,LineNum)
If LineNum < 1 Then Exit Function
Dim FsObj,MyFile,Array_MyFile,Str_MyFile
Set FsObj = Server.CreateObject("Scripting.FileSystemObject")
If Not FsObj.FileExists(Server.mappath(FileName)) Then Exit Function '如果指定文件不存在则退出
Set MyFile = FsObj.OpenTextFile(Server.MapPath(FileName),1)
If Not MyFile.AtEndofStream Then'如果当前指针已经在未行，即文件是空的，那么退出。
Str_MyFile = MyFile.ReadAll
MyFile.close
Set MyFile = nothing
Array_MyFile = split(Str_MyFile,chr(13)&chr(10))
If LineNum>Ubound(Array_MyFile)+1 Then '如果文件总行数，少于要读取的行号，那么退出
Exit Function