[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖

[已解决]请教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 编辑 ]
1

评分人数

    • Batcher: 感谢主动给标题标注[已解决]字样PB + 2

感谢版主

问题解决,谢谢!

TOP

  1. do until objtext.AtEndofStream
  2. msgbox objtext.ReadLine
  3. loop
复制代码
命令行参考:hh.exe ntcmds.chm::/ntcmds.htm
求助者请拿出诚心,别人才愿意奉献热心!
把查看手册形成条件反射!

TOP

返回列表