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

Rank: 3Rank: 3

帖子
20 
积分
240 
技术
0  
捐助
0  
注册时间
2008-3-9 
1楼 跳转到 » 倒序看帖
打印
tT
发表于 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 编辑 ]
1

评分人数

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

zqz0012005

Rank: 8Rank: 8

帖子
1069 
积分
12123 
技术
38  
捐助
0  
注册时间
2008-5-10 
2楼
发表于 2009-4-14 22:51 | 只看该作者 
  1. do until objtext.AtEndofStream

  2. msgbox objtext.ReadLine

  3. loop
复制代码
命令行参考：hh.exe ntcmds.chm::/ntcmds.htm
求助者请拿出诚心，别人才愿意奉献热心！
把查看手册形成条件反射！

TOP

lxl13596

Rank: 3Rank: 3

帖子
20 
积分
240 
技术
0  
捐助
0  
注册时间
2008-3-9 
3楼
发表于 2009-4-14 23:02 | 只看该作者

感谢版主

问题解决，谢谢!

TOP

返回列表