初探VBScript

　　　　　　　　　　　　　　　　　初探VBScript

　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　作者：尹正杰

版权声明：原创作品，谢绝转载！否则将追究法律责任。

一.VBScript简介 

　VBScript ，Visual Basic Script的简称，是微软公司出品的脚本语言，有时也被缩写为VBS。VBScript是asp动态网页默认的编程语言，配合asp内建对象和ADO对象，用户很快就能掌握访问数据库的asp动态网页开发技术。

　　VBScript^[2]是微软开发的一种解析型的服务端（也支持客户端）脚本语言，可以看作是VB语言的简化版，与VBA的关系也非常密切。它具有原语言容易学习的特性。目前这种语言广泛应用于网页和ASP程序制作，同时还可以直接作为一个可执行程序。用于调试简单的VB语句非常方便。

　　由于VBScript可以通过Windows脚本宿主调用COM，因而可以使用Windows操作系统中可以被使用的程序库，比如它可以使用Microsoft Office的库，尤其是使用MicrosoftAccess和Microsoft SQL Server的程序库，当然它也可以使用其它程序和操作系统本身的库。

二.VBS的编辑工具

　　所谓：工欲善其事，必先利其器，所以在这里我给小伙伴们推荐2款学习VBScript不错的编辑工具，他们分别是VbsEdit与EditPlus，大家可以百度上DOWNLOAD一个即可，可以根据你的风格来选择适合你自己的软件，我个人比较喜欢后者，因为后者支持不仅仅有VBScript这个脚本语言呢，话不多说，您看自己下载体验一下。

三.VBS的参考文档

　　1.《Windows 脚本技术 》,这个是微软官方发布的也是最权威的；

　　2.《VBScript程序员参考手册》，这是一个电子版本的，如果对VBS很执着的人建议购买一本书，因为有中文翻译哟！

　　3.MSDN Library,可以借助浏览器进行翻译哟~

　　4.Google + baidu,利用好搜索工具，2个软件都要配合搜索，因为有的大神博客写的属实很哇塞哦~

四.VBS数据类型

　　对于vbs来说，VBS只有一种数据类型，即可变类型，称为 Variant。

　　

五.VBS变量的定义

1.变量：

　　变量是一种使用方便的占位符，用于引用计算机内存地址，该地址可以存储脚本运行时可更改的程序信息。

2.变量的声明：

　　声明变量的一种方式是使用 Dim 语句、Public 语句和 Private 语句在脚本中显式声明变量。

3.命名规则：(变量命名必须遵循 VBScript 的标准命名规则。变量命名必须遵循：)

　　1>. 字符必须是字母开头，由字母、数字和下划线组成；

　　2>. 长度不能超过 255 个字符;

　　3>.在被声明的作用域内必须唯一;

　　4>.不能为关键字;

4.VBS变量名称取法

匈牙利命名法：

　　匈牙利命名法是一种编程时的命名规范。基本原则是：变量名＝类型＋对象描述。命名要基于容易记忆容易理解的原则。保证名字的连贯性是非常重要的。

六.常用数据类型缩写

例如：

　　1>.文件路径：strPath

　　2>.文件大小：intSize

　　3>.几何面积：lngArea

　　4>.FSO对象：objFSO

七.Option Explicit语句

变量显示定义与隐式定义区别 ：

　　我们在定义一个变量的时候一般要用dim去制定一个变量名，然后再去给这个变量赋值，这个过程就叫做显示定义;但是我们也可以不用dim去先声明一个变量，我们可以直接给变量去赋值，这种方法叫做隐式定义。两者的区别就是一个是需要声明变量一个不需要声明变量，建议用显示定义方法。

　　Option Explicit语句说直白了就是一个报错功能输出信息的提示，我们只需要在文件开头的顶部输出这一行代码，那么你的批处理文件（vbs脚本)在运行出错的时候会输出报错信息，不然的话即使你的脚本出错了，也没有任何报错提示，而是一个空白对话框而已。

八.VBS的数组

　　说道数组还是蛮有意思的，有时候，将多个相关值赋给一个变量更为方便，因此可以创建包含一系列值的变量，称为数组变量。下例声明了一个包含4个元素的一维数组： 　　

 Option Explicit
 Dim num()
 '虽然括号中显示的数字是 3，但由于在 VBScript 中所有数组都是基于 0 的，所以这个数组实际上包含 4 个元素。在基于 0 的数组中，数组元素的数目总是括号中显示的数目加 1。这种数组被称为固定大小的数组。
 '在数组中使用索引为数组的每个元素赋值。从0到3，将数据赋给数组的元素，如下所示：
 num() =
 num() =
 num() =
 num() =
 MsgBox num()
 MsgBox num()
 MsgBox num()
 MsgBox num()

初级数组用法展示

　　多维数组：数组并不仅限于一维。数组的维数最大可以为 60（尽管大多数人不能理解超过 3 或 4 的维数）。声明多维数组时用逗号分隔括号中每个表示数组大小的数字。

 Option Explicit
 Dim num(,) '从左往右依次是一维数组和二维数组,我们可以简单的理解成上小学的时候学数学的x,y轴对应的坐标。
 num(,) =
 num(,) =
 num(,) =
 num(,) =
 MsgBox num(,)
 MsgBox num(,)
 MsgBox num(,)
 MsgBox num(,)

二维数组用法展示

　　动态数组：即在运行脚本时大小发生变化的数组 。对数组的最初声明使用 Dim 语句或 ReDim 语句。但是对于动态数组，括号中不包含任何数字。

 Option Explicit
 Dim back_path(),i,str,j
 i =
 str = ""   '表示将“str”定义为字符串类型.

 While str<>"q"  '表示当你输出"q"就退出当前循环，这个退出标识符可以自定义，不一定要跟我设置的一样哟！
     ReDim Preserve back_path(i)   '保留原数据不变，重新定义数组
     back_path(i) = InputBox("请输出您想备份的路径>>>:")
     str = back_path(i)
     i = i +
 Wend

 For j =  To i
     MsgBox back_path(j)
 Next

多维数组用法展示

九.常量

　　常量：常数是具有一定含义的名称，用于代替数字或字符串，其值从不改变。（最好采用一个命名方案以区分常数和变量。这样可以避免在运行脚本时对常数重新赋值。例如，可以使用“vb”或“con”作常数名的前缀，或将常数名的所有字母大写。将常数和变量区分开可以在开发复杂的脚本时避免混乱。）

 Option Explicit

 Rem 以下是定义一个常量
 Const PI = 3.1415926

 Rem 什么一个变量
 Dim sum

 Rem 表示计算sum的值
 sum =  * * PI

 MsgBox sum  '打印这个sum的值

 '友情提示：
 '        不建议用"Rem"进行注释，而是建议用" ' "进行注释

常量的用法展示以及2种注释展示

十.VBS的常用函数展示

　　请参考：http://www.cnblogs.com/yinzhengjie/p/6594356.html

十一.基本的流程控制语句

1.分支结构if..then..else..

 Dim num_1,num_2,response
 num_1 = InputBox("请输入一个数字>>>:") '要求用户输出一个字符串数字
 num_2 = InputBox("请再输入一个数字>>>:")
 num_1 = cint(num_1) '将字符串转换成数字
 num_2 = cint(num_2)
 If num_1 > num_2 Then MsgBox num_1 & "大于" & num_2 Else MsgBox num_1 & "小于" & num_2   '比较2个数字的大小，其中这个"&"表示拼接的意思哟

单行写法展示

 Dim num_1,num_2,response
 num_1 = InputBox("请输入一个数字>>>:") '要求用户输出一个字符串数字
 num_2 = InputBox("请再输入一个数字>>>:")
 num_1 = cint(num_1) '将字符串转换成数字
 num_2 = cint(num_2)
 If num_1 > num_2 Then '定义num_1 > num_2需要执行的代码
     MsgBox num_1 & "大于" & num_2
 ElseIf num_1 = num_2 Then   '定义num_1 = num_2需要执行的代码
     MsgBox num_1 & "等于" & num_2
 Else  '定义如果上面2个条件都不满足的情况下需要执行的代码
     MsgBox num_1 & "小于" & num_2
 End If    '多行写法需要写一个结束标识符。

多行写法展示

 Dim num_1,num_2,response
 num_1 = _
 InputBox("请输入一个数字>>>:") '其中上面的"_"表示续行符号，续行符后面就不能再输入其他的字符了，一般用是为了方便观看你的代码
 num_2 = _
 InputBox("请再输入一个数字>>>:")
 num_1 = cint(num_1)
 num_2 = cint(num_2)
 If num_1 > num_2 Then MsgBox num_1 & "大于" & num_2 : MsgBox "您输入的第一个数字比第二个数字大"  Else  MsgBox num_1 & "不大于" & num_2 '这里主要讲了":"的用法，将2个msgbox函数写成同一行。

续行符与“:”的应用展示

2.分支结构select case

 Dim num
 num = InputBox("请你输入一个数字>>>:")
 num = cint(num)
 Select Case num '语句开始
     Case
         MsgBox "恭喜您中了三等奖"
     Case
         MsgBox "恭喜您中了二等奖"
     Case
         MsgBox "恭喜您中了一等奖"
     Case Else
         MsgBox "您获得了阳光普照奖"
 End Select '语句结束

Select Case 用法展示

 Dim num
 num = InputBox("您猜猜我今年多大>>>:")
 num = cint(num)
 Select Case True '让这个为真，那么就可以在下面做一个条件判断了
     Case   num >
         MsgBox "哟哟哟，小姐姐你猜大了哦"
     Case  num =
         MsgBox "恭喜您猜对了"
     Case  num <
         MsgBox "哟哟哟，小姐姐你猜小了哦"
     Case Else
         MsgBox "您获得了阳光普照奖"
 End Select 

Select Case高级用法展示

3.循环结构for…next

 Option Explicit
 '@author :yinzhengjie
 'blog:http://www.cnblogs.com/yinzhengjie/tag/VBScript/
 'EMAIL:y1053419035@qq.com

 Dim i
 For i =  To  Step  '指定步长为2，如果不设置步长“Step 2”的话默认步长为“1”
     MsgBox "i = " & i
 next

For 正序用法展示

 Option Explicit
 '@author :yinzhengjie
 'blog:http://www.cnblogs.com/yinzhengjie/tag/VBScript/
 'EMAIL:y1053419035@qq.com

 Dim i
 For i =  To  Step - '指定步长为-2，表示每次循环自减去“2”
     MsgBox "i = " & i
 next

for 倒序用法展示

 Option Explicit
 '@author :yinzhengjie
 'blog:http://www.cnblogs.com/yinzhengjie/tag/VBScript/
 'EMAIL:y1053419035@qq.com

 Dim i
 For i =  To
     MsgBox "i = " & i
     If i =  Then Exit For '表示当i=8时退出For循环
 next

For的中断用法展示

 Option Explicit
 '@author :yinzhengjie
 'blog:http://www.cnblogs.com/yinzhengjie/tag/VBScript/
 'EMAIL:y1053419035@qq.com

 Dim i,j,k
 For i =  To
     For j =  To
         For k =  To
              MsgBox i:MsgBox j:MsgBox k
         Next
     Next
 Next

For的嵌套用法

 Option Explicit
 '@author :yinzhengjie
 'blog:http://www.cnblogs.com/yinzhengjie/tag/VBScript/
 'EMAIL:y1053419035@qq.com

 Dim i
 For i = To  Step  '让步长为0，就无法到达下一个数字进行循环，当i=0时一直会执行以下代码，即条件为真就好
     MsgBox "这是一个死循环"
 Next

如何写一个死循环呢？

4.循环结构while…wend

 Option Explicit
 '@author :yinzhengjie
 'blog:http://www.cnblogs.com/yinzhengjie/tag/VBScript/
 'EMAIL:y1053419035@qq.com

 Dim i
 i =
 While i <  '循环开始
     i = i +
     MsgBox "i = " & i

 Wend '循环结束

While初级用法

 Option Explicit
 '@author :yinzhengjie
 'blog:http://www.cnblogs.com/yinzhengjie/tag/VBScript/
 'EMAIL:y1053419035@qq.com

 '完美来写一个猜测年龄的小程序吧
 Dim num,i
 While i <
 num = InputBox("给你三次机会猜猜我今年多大>>>:")
 num = cint(num)
     Select Case True
         Case   num >
             MsgBox "哟哟哟，小姐姐你猜大了哦"
               i = i +
         Case  num =
             MsgBox "恭喜您猜对了"
             Alert num
         Case  num <
             MsgBox "哟哟哟，小姐姐你猜小了哦"
             i = i +
         Case Else
             MsgBox "您获得了阳光普照奖"
     i = i +
 End Select
 Wend 

while用法案例

5.循环结构do…loop

 Option Explicit
 '@author :yinzhengjie
 'blog:http://www.cnblogs.com/yinzhengjie/tag/VBScript/
 'EMAIL:y1053419035@qq.com

 Dim i
 i =
 Do While i <
     MsgBox "i = " & i
     i = i +
 loop

Do While ...loop用法展示

 Option Explicit
 '@author :yinzhengjie
 'blog:http://www.cnblogs.com/yinzhengjie/tag/VBScript/
 'EMAIL:y1053419035@qq.com

 Dim i
 i =
 Do Until i >=  '等效于while i <10，表示直到i >= 10 不执行以下的代码
     MsgBox "i = " & i
     i = i +
 Loop 

Do Until...Loop用法展示

 Option Explicit
 '@author :yinzhengjie
 'blog:http://www.cnblogs.com/yinzhengjie/tag/VBScript/
 'EMAIL:y1053419035@qq.com

 Dim i
 i =
 Do Until i >=  '等效于while i <10，表示直到i >= 10 不执行以下的代码
     MsgBox "i = " & i
     i = i +
     If i >  Then
         Exit Do '退出循环
     End If
 Loop 

退出循环展示

 Option Explicit
 '@author :yinzhengjie
 'blog:http://www.cnblogs.com/yinzhengjie/tag/VBScript/
 'EMAIL:y1053419035@qq.com

 Dim i
 i =
 Do while True
     MsgBox "这是一个死循环"
 Loop 

如何写一个死循环