批处理之家 - Powered by Discuz! Board

标题: [已解决]请教VBS中fso如何逐行读取txt文件并作为变量 [打印本页]

作者: lxl13596 时间: 2009-4-14 22:46 标题: [已解决]请教VBS中fso如何逐行读取txt文件并作为变量

请高手帮帮忙，我想有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 时间: 2009-4-14 22:51

do until objtext.AtEndofStream
msgbox objtext.ReadLine
loop
复制代码

作者: lxl13596 时间: 2009-4-14 23:02 标题: 感谢版主

问题解决，谢谢!

欢迎光临批处理之家 (http://bbs.bathome.net/)