初探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个元素的一维数组：　　

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

初级数组用法展示

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

 1 Option Explicit
 2 Dim num(3,3) '从左往右依次是一维数组和二维数组,我们可以简单的理解成上小学的时候学数学的x,y轴对应的坐标。 
 3 num(0,1) = 100
 4 num(1,2) = 200
 5 num(2,3) = 300
 6 num(3,0) = 400
 7 MsgBox num(0,1)
 8 MsgBox num(1,2)
 9 MsgBox num(2,3)
10 MsgBox num(3,0)

二维数组用法展示

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

 1 Option Explicit
 2 Dim back_path(),i,str,j
 3 i = 0
 4 str = ""   '表示将“str”定义为字符串类型.
 5 
 6 While str<>"q"  '表示当你输出"q"就退出当前循环，这个退出标识符可以自定义，不一定要跟我设置的一样哟！
 7     ReDim Preserve back_path(i)   '保留原数据不变，重新定义数组
 8     back_path(i) = InputBox("请输出您想备份的路径>>>:")
 9     str = back_path(i)
10     i = i + 1
11 Wend
12 
13 For j = 0 To i
14     MsgBox back_path(j)
15 Next

多维数组用法展示

九.常量

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

 1 Option Explicit
 2 
 3 Rem 以下是定义一个常量
 4 Const PI = 3.1415926
 5 
 6 Rem 什么一个变量
 7 Dim sum
 8 
 9 Rem 表示计算sum的值
10 sum = 100 * 100* PI
11 
12 MsgBox sum  '打印这个sum的值
13 
14 
15 
16 '友情提示：
17 '        不建议用"Rem"进行注释，而是建议用" ' "进行注释

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

十.VBS的常用函数展示

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

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

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

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

单行写法展示

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

多行写法展示

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

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

2.分支结构select case

 1 Dim num
 2 num = InputBox("请你输入一个数字>>>:")
 3 num = cint(num)
 4 Select Case num '语句开始
 5     Case  100
 6         MsgBox "恭喜您中了三等奖"
 7     Case  200
 8         MsgBox "恭喜您中了二等奖"
 9     Case  300
10         MsgBox "恭喜您中了一等奖"
11     Case Else
12         MsgBox "您获得了阳光普照奖"
13 End Select '语句结束

Select Case 用法展示

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

Select Case高级用法展示

3.循环结构for…next

1 Option Explicit
2 '@author :yinzhengjie
3 'blog:http://www.cnblogs.com/yinzhengjie/tag/VBScript/
4 'EMAIL:y1053419035@qq.com
5 
6 Dim i
7 For i = 0 To 10 Step 2 '指定步长为2，如果不设置步长“Step 2”的话默认步长为“1”
8     MsgBox "i = " & i
9 next

For 正序用法展示

1 Option Explicit
2 '@author :yinzhengjie
3 'blog:http://www.cnblogs.com/yinzhengjie/tag/VBScript/
4 'EMAIL:y1053419035@qq.com
5 
6 Dim i
7 For i = 10 To 0 Step -2 '指定步长为-2，表示每次循环自减去“2”
8     MsgBox "i = " & i
9 next

for 倒序用法展示

 1 Option Explicit
 2 '@author :yinzhengjie
 3 'blog:http://www.cnblogs.com/yinzhengjie/tag/VBScript/
 4 'EMAIL:y1053419035@qq.com
 5 
 6 Dim i
 7 For i = 1 To 10
 8     MsgBox "i = " & i
 9     If i = 8 Then Exit For '表示当i=8时退出For循环
10 next

For的中断用法展示

 1 Option Explicit
 2 '@author :yinzhengjie
 3 'blog:http://www.cnblogs.com/yinzhengjie/tag/VBScript/
 4 'EMAIL:y1053419035@qq.com
 5 
 6 Dim i,j,k
 7 For i = 1 To 2
 8     For j = 3 To 4
 9         For k = 5 To 6
10              MsgBox i:MsgBox j:MsgBox k
11         Next
12     Next
13 Next

For的嵌套用法

1 Option Explicit
2 '@author :yinzhengjie
3 'blog:http://www.cnblogs.com/yinzhengjie/tag/VBScript/
4 'EMAIL:y1053419035@qq.com
5 
6 Dim i 
7 For i =0 To 1 Step 0 '让步长为0，就无法到达下一个数字进行循环，当i=0时一直会执行以下代码，即条件为真就好
8     MsgBox "这是一个死循环"
9 Next

如何写一个死循环呢？

4.循环结构while…wend

 1 Option Explicit
 2 '@author :yinzhengjie
 3 'blog:http://www.cnblogs.com/yinzhengjie/tag/VBScript/
 4 'EMAIL:y1053419035@qq.com
 5 
 6 Dim i
 7 i = 0
 8 While i < 10 '循环开始
 9     i = i + 1
10     MsgBox "i = " & i
11 
12 Wend '循环结束

While初级用法

 1 Option Explicit
 2 '@author :yinzhengjie
 3 'blog:http://www.cnblogs.com/yinzhengjie/tag/VBScript/
 4 'EMAIL:y1053419035@qq.com
 5 
 6 '完美来写一个猜测年龄的小程序吧
 7 Dim num,i
 8 While i < 2
 9 num = InputBox("给你三次机会猜猜我今年多大>>>:")
10 num = cint(num)
11     Select Case True  
12         Case   num > 25
13             MsgBox "哟哟哟，小姐姐你猜大了哦"
14               i = i + 1            
15         Case  num = 25
16             MsgBox "恭喜您猜对了"
17             Alert num
18         Case  num < 25
19             MsgBox "哟哟哟，小姐姐你猜小了哦"
20             i = i + 1
21         Case Else
22             MsgBox "您获得了阳光普照奖"
23     i = i + 1
24 End Select 
25 Wend

while用法案例

5.循环结构do…loop

 1 Option Explicit
 2 '@author :yinzhengjie
 3 'blog:http://www.cnblogs.com/yinzhengjie/tag/VBScript/
 4 'EMAIL:y1053419035@qq.com
 5 
 6 Dim i
 7 i = 0
 8 Do While i < 10 
 9     MsgBox "i = " & i
10     i = i + 1
11 loop

Do While ...loop用法展示

 1 Option Explicit
 2 '@author :yinzhengjie
 3 'blog:http://www.cnblogs.com/yinzhengjie/tag/VBScript/
 4 'EMAIL:y1053419035@qq.com
 5 
 6 Dim i
 7 i = 0
 8 Do Until i >= 10 '等效于while i <10，表示直到i >= 10 不执行以下的代码
 9     MsgBox "i = " & i
10     i = i + 1
11 Loop

Do Until...Loop用法展示

 1 Option Explicit
 2 '@author :yinzhengjie
 3 'blog:http://www.cnblogs.com/yinzhengjie/tag/VBScript/
 4 'EMAIL:y1053419035@qq.com
 5 
 6 Dim i
 7 i = 0
 8 Do Until i >= 10 '等效于while i <10，表示直到i >= 10 不执行以下的代码
 9     MsgBox "i = " & i
10     i = i + 1
11     If i > 3 Then
12         Exit Do '退出循环
13     End If 
14 Loop

退出循环展示

 1 Option Explicit
 2 '@author :yinzhengjie
 3 'blog:http://www.cnblogs.com/yinzhengjie/tag/VBScript/
 4 'EMAIL:y1053419035@qq.com
 5 
 6 Dim i
 7 i = 0
 8 Do while True
 9     MsgBox "这是一个死循环"
10 Loop

如何写一个死循环

posted @ 2017-03-17 15:05 尹正杰阅读(799) 评论(0) 编辑收藏举报

刷新页面返回顶部

尹正杰

初探VBScript

公告