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

Rank: 2

帖子
13 
积分
193 
技术
0  
捐助
0  
注册时间
2008-6-3 
1楼 跳转到 » 倒序看帖
打印
tT
发表于 2008-6-4 19:41 | 只看该作者

VBS如何逐行读取指定文件中的每一张图片并循环显示？

逐行读取d:\0.txt循环显示0.txt中的每一张图片
<script language="vbscript"><!--
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.OpenTextFile("d:\0.txt", 1)
Do Until objFile.AtEndOfStream
tmpArray = objFile.ReadLine
For i = 0 to UBound(tmpArray)
Response.Write("<img src="tmpArray"><br>"))
'Next
'end  
rs.MoveNext
Loop
'end if
objFile.Close
Set rs = Nothing
--></script>

哪里错了， 无法显示，更别说循环
收藏 分享

zqz0012005

Rank: 8Rank: 8

帖子
1069 
积分
12123 
技术
38  
捐助
0  
注册时间
2008-5-10 
2楼
发表于 2008-9-20 18:08 | 只看该作者
数组不是这么用的啊
  1. dim tmpArray()

  2. i = 0

  3. Set objFSO = CreateObject("Scripting.FileSystemObject") 

  4. Set objFile = objFSO.OpenTextFile("d:\0.txt", 1) 

  5. Do Until objFile.AtEndOfStream

  6. tmpArray(i) = objFile.ReadLine

  7. i = i + 1

  8. loop

  9. For i = 0 to UBound(tmpArray) 

  10. Response.Write("<img src='" & tmpArray(i) & "'>

  11. ")

  12. next
复制代码
达到你的目的其实用不着数组
  1. Set objFSO = CreateObject("Scripting.FileSystemObject") 

  2. Set objFile = objFSO.OpenTextFile("d:\0.txt", 1) 

  3. Do Until objFile.AtEndOfStream 

  4. Response.Write("<img src='" & objFile.ReadLine & "'>

  5. ")

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

TOP

hbwhyin

Rank: 2

帖子
10 
积分
144 
技术
0  
捐助
0  
注册时间
2009-3-12 
3楼
发表于 2010-3-16 04:59 | 只看该作者
版主，我用你的怎么出错啦

TOP

返回列表