[已解决]请教VBS中fso如何逐行读取txt文件并作为变量

lxl13596

请高手帮帮忙，我想有fso读取其同一目录下的文件1.txt,

a---1.txt中的内容为
------------------------------------------------------
第一行
第二行
第三行
........
------------------------------------------------------

b---main.hta中的内容为
------------------------------------------------------
<script language=vbs>
set fso2=createobject("scripting.filesystemobject")
set objtext=fso2.opentextfile("1.txt")
'for i=1 to n
'a=objtext.readall
a=objtext.readline
msgbox a
'next
objtext.close
set fso2=nothing
</script>
------------------------------------------------------
目的是使变量a分别读取1.txt中的没一行，
比如执行msgbox a
                        会显示
                   msgbox "第一行"
                                 msgbox "第二行"
                                 msgbox "第三行"
                                 ........
十分感谢大家的支持！

[ 本帖最后由 lxl13596 于 2009-4-14 23:06 编辑 ]

zqz0012005

1. do until objtext.AtEndofStream
   
2. msgbox objtext.ReadLine
   
3. loop

复制代码

lxl13596

问题解决，谢谢!