VBS For Next循环的一些细节

所属分类: 脚本专栏 / vbs 阅读数: 800
收藏 0 赞 0 分享
For Next 语句的基本结构为:
复制代码 代码如下:

For counter = start To end [Step step]
[statements]
[Exit For]
[statements]
Next

当 For Next 循环开始时,Visual Basic Scripting Edition (VBScript) 将 start 赋值给 counter。在运行循环中的语句块之前,将 counter 与 end 进行比较。如果 counter 已经超过了 end 的值,那么 For 循环终止,控制流程跳跃到 Next 之后的语句。否则运行循环中的语句块。

每次 VBScript 遇到 Next 的时候,它将 counter 增加 step 并返回到 For。它再次比较 counter 和 end 的值,并根据结果继续运行循环中的语句块或者终止循环。这个过程将一直进行下去,直到 counter 超过了 end 或者遇到了 Exit For 语句。

以上为常识,简单的提一下来凑字数,下面是一个你可能忽略掉的细节:

循环控制变量 start end 和 step 仅仅在循环开始前求值一次,如果你在循环中的语句块改变 end 或者 step 的值,这个改变不会影响到循环的运行。

写个简单的 VBS 脚本验证一下:
复制代码 代码如下:

'Author: Demon
'Date: 2012-1-19
n = 10
s = 1
For i = 1 To n Step s
WScript.Echo i
n = 5
s = 2
Next
WScript.Echo n, s

我们在循环中改变了 n 和 s 的值,但是循环仍然进行了10次,依次输出1到10,说明 For Next 循环内部保存有循环控制变量 n 和 s 的一份拷贝,并以此内部变量来控制循环的流程。

了解这个细节有助于我们写出高效简洁的代码:
复制代码 代码如下:

'Author: Demon
'Date: 2012-1-19
s = "http://jb51.net"
For i = 1 To Len(s)
WScript.Echo Mid(s, i, 1)
Next

'这种 C Style 的写法并不比上面效率更高
'在 VBS 的 For Next 循环中不需要这么做
l = Len(s)
For i = 1 To l
WScript.Echo Mid(s, i, 1)
Next

值得注意的是,在循环中改变 counter 是允许的,但是你应该避免这么做,这样只会使你的脚本难以阅读和调试。
复制代码 代码如下:

'Author: Demon
'Date: 2012-1-19
For i = 1 To 10
WScript.Echo i
i = i + 2 '不提倡这么做
Next

参考链接:http://msdn.microsoft.com/en-us/library/sa3hh43e%28v=vs.85%29.aspx

原文:http://demon.tw/programming/vbs-for-next.html

更多精彩内容其他人还在看

运行vbs脚本报错无效字符、中文乱码的解决方法(编码问题)

今天在写一个vbs的时候,发现中文乱码,后来写好代码正常运行的代码压缩一下给了同事,发现报无效字符,经过验证后发现原来是编码的问题导致,这里就为大家分享一下
收藏 0 赞 0 分享

VBS打开当前脚本所在文件夹

有时候我们需要获取当前vbs脚本所在的文件夹,或者运行当前脚本文件夹中的文件那么就需要参考下面的代码了
收藏 0 赞 0 分享

vbs 读写注册表之系统启动项添加与删除

这篇文章主要介绍了vbs 读写注册表之系统启动项添加值,需要的朋友可以参考下
收藏 0 赞 0 分享

拖拽文件显示文件路径的vbs代码

这篇文章主要介绍了拖拽文件显示文件路径的vbs代码,需要的朋友可以参考下
收藏 0 赞 0 分享

VBS遍历Excel工作表的实现代码

这篇文章主要介绍了VBS遍历Excel工作表的实现代码,需要的朋友可以参考下
收藏 0 赞 0 分享

使用VBS浏览本地文件的3种方式,获取完整路径

这篇文章主要介绍了使用VBS浏览本地文件的3种方式,获取完整路径,需要的朋友可以参考下
收藏 0 赞 0 分享

VBS进程判断代码

这篇文章主要介绍了VBS进程判断代码,用来检测windows的某个进程是否正常运行,之前脚本之家分享过bat中判断进程的代码
收藏 0 赞 0 分享

VBS遍历文件或文件夹路径输入文件的所有绝对路径(附源码)

这篇文章主要介绍了VBS遍历文件或文件夹路径输入文件的所有绝对路径的代码,需要的朋友可以参考下
收藏 0 赞 0 分享

ActiveX部件不能创建对象:dm.dmsoft代码:800A01AD

vbs调用插件报:ActiveX部件不能创建对象,代码:800A01AD,一般是因为病毒导致dll文件丢失或者64系统问题导致,需要的朋友可以参考下
收藏 0 赞 0 分享

vbs ping实现的两种方式

这篇文章主要介绍了vbs ping实现的两种方式,文中通过示例代码介绍的非常详细,对大家的学习或者工作具有一定的参考学习价值,需要的朋友们下面随着小编来一起学习学习吧
收藏 0 赞 0 分享
查看更多