投稿
  1. 首页
  2. 随笔

初探VBScript

code • 2022-4-12 • 随笔 • 阅读 213

初探VBScript,第1张

初探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

如何写一个死循环

欢迎分享，转载请注明来源：内存溢出

原文地址: http://outofmemory.cn/zaji/587021.html

赞 (0)
打赏 微信扫一扫 微信扫一扫 支付宝扫一扫 支付宝扫一扫
code code 管理员组
0 0
上一篇 2022-04-12
下一篇 2022-04-12

发表评论

登录后才能评论

评论列表（0条）

保存