初探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:[email protected] 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:[email protected] 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:[email protected] 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:[email protected] 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:[email protected] 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:[email protected] 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:[email protected] '完美来写一个猜测年龄的小程序吧
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:[email protected] 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:[email protected] 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:[email protected] 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:[email protected] Dim i
i =
Do while True
MsgBox "这是一个死循环"
Loop
如何写一个死循环
欢迎分享，转载请注明来源：内存溢出
微信扫一扫
支付宝扫一扫
评论列表（0条）