如何用VBS逐行读取txt文件的内容

[za521mao]

在txt文件中有如下格式的数据：
10899
10900
20000
20001
20002
20003
20004
20005
20006
20007
20008
20009
20111
20120
20121
20122
20123
20124
20125
20126
20127
20128
20129
20201
20202
20210
如何用程序逐行把这些数据读取出来？？

[三仙半]

用FSO的方法，下面是VBS帮助里给的一个读、写文件的示例
Sub ReadFiles
Dim fso, f1, ts, s
Const ForReading = 1
Set fso = CreateObject("Scripting.FileSystemObject")
Set f1 = fso.CreateTextFile("c:\testfile.txt", True)
' 写一行。
Response.Write "Writing file <br>"
f1.WriteLine "Hello World"
f1.WriteBlankLines(1)
f1.Close
' 读取文件的内容。
Response.Write "Reading file <br>"
Set ts = fso.OpenTextFile("c:\testfile.txt", ForReading)
s = ts.ReadLine
Response.Write "File contents = '" & s & "'"
ts.Close
End Sub

参考吧！

[za521mao]

米人知道吗？

[feillex]

提供两种方法参考
1、一次性读出文件内所有内容，然后逐行处理
option explicit
dim fso,fread,str,strarry,linestr
set fso=createobject("scripting.filesystemobject")
set fread=opentextfile("test.txt",1)
str=fread.readall
fread.close
if str="" then
wscript.echo "file have not any content"
wscript.quit
end if
strarry=split(str,vbcrlf)
for each linestr in strarry
wscript.echo linestr '这里是用echo显示每一行的内容，你可以根据自己的需要做别的处理
next
set fso=nothing

2、每次读出一行内容处理
option explicit
dim fso,fread,strline
set fso=createobject("scripting.filesystemobject")
set fread=opentextfile("test.txt",1)
do until fread.atendofstream
strline=fread.readline
wscript.echo strline '这里也仅仅是显示一行内容而已
loop
fread.close
set fso=nothing