《vbs学习笔记》由会员分享，可在线阅读，更多相关《vbs学习笔记（6页珍藏版）》请在金锄头文库上搜索。
1、Made by huahua0919一、循环语句用法一、循环语句用法:一般的循环都用 Do.Loop，其中用 While 和 Until 来控制循环的过程。下面讲解以下 While 和 Until 的区别 While 和和 Until 的区别的区别While：（条件为真时就重复执行语句）：（条件为真时就重复执行语句）先看一个例子Dim count1,count2 count1=20 定义 count1 的初始数值为 20；count2 未定义则初始值为 0； Do While count110 只要 count1 的值没有达到 30 就一直执行； count1=count1-1 在循环的过程中
2、，让 count1 的值不断的增加； count2=count2+1 用 count2 的值来查看循环的次数； Loop msgbox “最后 count1 的值为:“&count1&chr(13)&“共计循环了:“&count2 从上面的结果可以发现当 count1 的值小于等于 10 以后就自动终止了循环Until：（重复执行语句直到条件为真）：（重复执行语句直到条件为真）用同样的例子Dim count1,count2 count1=20 定义 count1 的初始数值为 20；count2 未定义则初始值为 0； Do Until count130 只要 count1 的值大于 10 程
3、序就一直执行； count1=count1+1 在循环的过程中，让 count1 的值不断的增加； count2=count2+1 用 count2 的值来查看循环的次数； Loop msgbox “最后 count1 的值为:“&count1&chr(13)&“共计循环了:“&count2 Exit Do (退出循环退出循环) 其中涉及到要在适当的时候退出循环如：当 count1 的值为 25 的时候退出循环。我们可以用 exit do 的结构 如：Dim count1,count2 count1=20 定义 count1 的初始数值为 20；count2 未定义则初始值为 0； Do Un
4、til count130 只要 count1 的值大于 10 程序就一直执行； count1=count1+1 在循环的过程中，让 count1 的值不断的减小； count2=count2+1 用 count2 的值来查看循环的次数； if count1=25 then exit do 当 count1 的值为 25 时就提前退出循环； Loop msgbox “最后 count1 的值为:“&count1&chr(13)&“共计循环了:“&count2 Note：exit do 在在 until 和和 while 中都可以使用！中都可以使用！Fornext 和和 For eachinnex
5、t 区别区别Fornext 一般直接用于循环的次数，如下面程序，此程序计算 1 加到 100 的数值。 （这个结果想必大家都知道）Dim i,Sum 定义变量 i,和总和的变量 Sum For i=1 to 100 step 1 当步长为 1 时可以省略 Sum=Sum+i 递归调用 Next Wscript.Echo Sum 效果和 Msgbox 一样 上面的程序是我们知道要循环 100 次后才能算出 1 加到 100 的结果，那如果某个变量中的数量我们不知道，可又要打 印出全部的数量又该怎么办呢？比如我们定义一个数组，且数组中的数量我们不确定。这个时 For eachinnext 就 派上
6、用场了。Dim A,B A=Array(“zhonghua“,“yuxi“,“nanjin“) 定义一个名字为 A 的数组 For each i in A 用变量 i 接受数组 A 中的值，有多少接收多少 B=B&i&chr(13) 递归，将数组中的值全部赋值给 B Next Msgbox B Note: 后者只能用于数组和一些集合，如后者只能用于数组和一些集合，如 Dictionary,Files,Folders 等集合！等集合！二、二、split 的使用方法：的使用方法：此方法是用来分割字符串的，分割时指定分割符号。返回一数组，我们用此方法计算某个字符 串中相同字符的个数Dim a,b,c
7、 a=“its a fine day!“ 定义一个字符串，并且求出 a 出现的次数 b=split(a, “a“) 将数值传递 给变量 b,并指定分割符（这里是要求的字符） 。 For each i in b 因为 split 返回的是一个数组,所以我们用 for 遍列 c=c+1 Next Msgbox “字符 a 出现了“&c-1& “次“ 不过还要将所得到的 c 值减 1，留给大家思考（很简单哦）Note：如果在分割字符串的时不指定分割符，则默认分割符为空格：如果在分割字符串的时不指定分割符，则默认分割符为空格三、三、FSO 对象模型对象模型此对象由以下几个对象组成其中每个对象的属性和方
8、法我在这里就不多说，在windows 脚本技术有详细的介绍，主要对于一些让人经常 模糊的地方略说一二。 1、 认为得到文件的句柄就可以向文件中写入数据，经常会有人犯这样的错误，看以下程序：Dim FSO,f,fc Set FSO=CreateObject(“Scripting.FileSystemObject“) Scripting 为存放为存放 FileSystemObject 对象的类库对象的类库 Set fc=FSO.CreateTextFile(“d:a.txt“,true) 在在 D 盘的根目录下创建盘的根目录下创建 a.txt 文本文件文本文件 fc.writeline “This is a Test“ 创建文本文件时返回的是文本流对象，所以可以读写文创建文本文件时返回的是文本流对象，所以可以读写文本本 fc.c
