VBScript脚本编程

VBSCRIPT脚本编程VBScript简介VBS，即MicrosoftVisualBasicScriptingEdition，它是MicrosoftVisualBasic语言的一个子集，它并不是一个完整的程序设计语言，仅包含语言中的一些基本功能。VBScript的最大优点是：用纯文本建立、直接包含在HTML文档中、编辑和修改都十分便利。第一个VBScript脚本WScript.Echo(小强很生气，后果很严重哦。)WScript.Echo(“soga)WScript.Echo(“说的是呢？)VBS脚本的注释Vbs中使用单引号来注释”’”,注释的信息在vbsedit编辑环境中显示为绿色。'显示一条信息Msgbox夜深人静，小心身后啊“格式一：Rem注释内容格式二：′注释内容VBS基础知识将单行语句分成多行在编写程序代码时，有的语句可能会很长，为了在阅读和对程序查错时直观、方便，可使用续行符“-”（由一个空格和一个下划线组成），将长的语句分成多行书写。WScript._Echo(小强很生气，后果很严重哦。)VBS基础知识使用不同进制的数字在VBScript中，除了可以使用默认的十进制来表示数字外，还允许使用十六进制或八进制来表示数字。对于不同进制的数，VBScript在表达方式上有明确规定，即十六进制数要加前缀＆H（如＆H9），八进制数要加前缀＆0（数字零）或&O（字母O）（如＆011或&O11），十进制数不用加任何前缀。VBS基础知识VBScript语句中的英文字母不区分大小写，VBScript脚本代码是一种纯文本，可以用任何一种文本编辑器编写。MsgBoxInputbox记事本notepad++等VBS的数据类型在VisualBasic、C++等高级语言中，数据类型都是分为整数、字符等不同的类型，但在VBScript中，只有一种数据类型，称为Variant（变体类型）。Variant既能表示数字，又能表示字符，还能表示其他的类型，vbs在执行时会自动识别和转换类型。所以它也是VBScript中所有函数的返回值的数据类型。子类型描述Empty未初始化的Variant。对于数值变量，值为0；对于字符串变量，值为零长度字符串()。Null不包含任何有效数据的Variant。Boolean包含True或False。Byte包含0到255之间的整数。Integer包含-32,768到32,767之间的整数。Currency-922,337,203,685,477.5808到922,337,203,685,477.5807。Long包含-2,147,483,648到2,147,483,647之间的整数。Single包含单精度浮点数，负数范围从-3.402823E38到-1.401298E-45，正数范围从1.401298E-45到3.402823E38。Double包含双精度浮点数，负数范围从-1.79769313486232E308到-4.94065645841247E-324，正数范围从4.94065645841247E-324到1.79769313486232E308。Date(Time)包含表示日期的数字，日期范围从公元100年1月1日到公元9999年12月31日。String包含变长字符串，最大长度可为20亿个字符。Object包含对象。Error包含错误号。VBS的数据类型Dimaa=2001‘VBScript会将它当成整数对待a=”2001”‘VBScrint会将它当成字符串对待a=20.01‘VBScript会将它当成小数对待a=false‘VBScript会将它当成一个布尔值VBS的数据类型一般情况下VBScript也会根据代码的上下文自动转换数据的子类型。例如：Variable_1=”2001”，这里Variable_1作为一个字符串变量来工作，而如果下面有Variable_2=Variable_1＋3，这时VBScript就会自动将Variable_1转换成整数变量，然后参与运算。但有时候，也会遇到一些数据类型不匹配造成的错误。这时，可以使用VBScript的转换函数来强制转换数据的子类型。(见VBScript帮助文件)VBS的数据类型可以使用VarType来看看它到底是什么类型的，如下面的代码：DimVarTypeCheckVarTypeCheck=VarType(123)MsgBoxVarTypeCheck'返回2表示整型VarTypeCheck=VarType(123)MsgBoxVarTypeCheck'返回8表示字符型VBS常量文字常量（1）字符串常量：用双引号作为定界符，由ASCII码字符组成（除双引号和回车符外），长度不能超过20亿个字符。例如：中华人民共和国、1233.45等。（2）数值常量：包括整型数、长整型数和浮点数。例如：0、300、-4125、&H85（表示十六进制数85）、&O226（表示八进制数226）、1.23E8、3.54E-5等。（3）日期时间型常量：用#号括起来。例如：#2001-3-15#、#2003-4-208:38:25AM#等。VBS常量符号常量常量名称常量含义True表示布尔真值False表示布尔假值Null表示空值Empty表示没有初始化之前的值vbCr表示回车vbCrLf表示回车/换行vbTab表示制表符VBS变量变量声明声明变量的一种方式是使用Dim、Redim、Public和Private在脚本中显式声明变量。如：Dimname注意：别乱加分号！VBS变量(1)Dim格式：Dim变量名称例如：DimDegreesFahrenheit声明多个变量时，使用逗号分隔变量。例如：DimTop,Bottom,Left,RightVBS变量变量命名规则变量的名字必须以字母开头。名字中不能含有句号。名字不能超过255个字符。名字不能和VBScript中的关键字同名。变量名在被声明的作用域内必须惟一。VBS赋值语句多个变量附相同的值时，不能写成：变量1=变量2=……=表达式声明变量时不能同时赋值，下面语句是错误的：Dima=2对对象赋值要使用setsetrs=server.CreateObject(“ADODB.Recordset”)VBS运算符VBScript的操作符包括算术运算符、比较运算符、连接运算符和逻辑运算符。1.算术运算符:+、-、*、/、取余Mod、求幂(＾)等。2.逻辑运算符:与And、或Or、非Not和Xor。其返回值为：真(True)、假(False)VBS运算符3.字符串(连接)运算符:＆或+【例】result=expression1＆expression2说明：将两个表达式进行字符串连接；当任意一表达式不是字符串时，它将被转换为String类型；如果两个表达式都为Null，result也为Null；如果仅有一个为Null或任意一个表达式为Empty，则它和其他表达式连接时，按零长度字符串()处理。【例】result=expression1+expression2说明：如果两个表达式都是数值，则+运算符表示相加；如果两个表达式都是字符串，则表示连接；如果一个表达式为字符串，一个表达式为数值，则表示相加(都是数字)。(所以一般仍使用&运算符来进行字符串的连接，这是因为在使用+运算符时，可能无法确定是执行加法还是字符串连接)。VBS运算符&用于强制连接两个表达式，合成一个字符串。例：dima,b,aba=“hello_”b=123ab=a&b/*ab的值为“hello_123”*/任一表达式不是字符串时，它将被转换为String子类型。也可以使用+运算符连接两个字符串，建议使用&进行字符串的连接，以避免混淆。在下面的代码中要注意，我们一般连接字符时要用&，不要用+，这样可以避免混乱Dimnum1,num2,str1,str2Dimsum,strnum1=1num2=2str1=小str2=强sum=num1+num2MsgBoxsumsum=num1+str1MsgBoxsumstr=str1&str2MsgBoxstrVBS条件语句在VBScript中，可以使用两种条件语句来控制脚本流程，分别是If…Then…Else语句，和SelectCase语句。前者可以按需要进行嵌套。VBS条件语句if21thenmsgbox(ok)elsemsgbox(error)endifVBS条件语句Dimcontidion,strcontidion=你是亿万富翁吗？str=我是穷光蛋Ifcontidion=strThenMsgBox就是你了ElseMsgBox等等在说吧EndifVBS条件语句Dimstrstr=我爱美人SelectCasestrCase我爱江山MsgBox我爱江山Case我爱美人MsgBox我爱美人CaseElseMsgBox我什么都不爱EndselectVBS循环语句在VBScript中，可以使用多种循环语句来表达循环，包括：Do…Loop:当（或直到）条件为True时循环While…Wend:当条件为True时循环For…Next:指定循环次数，使用计数器重复执行语句ForEach…Next:对于集合中的每项或数组中的每个元素，重复执行一组语句VBS循环语句'Fornext用法DimMyName,MyWriting,iMyName=“呵呵MyWriting=“希望大家多多支持我的课程Fori=0To1MsgBoxMyNameMsgBoxMyWritingNextVBS循环语句'foreach的用法DimMyWriting(1)MyWriting(0)=“呵呵MyWriting(1)=“希望大家多多支持我的课ForEachelementInMyWritingMsgBoxelementNextVBS循环语句'doloop的用法Dimageage=23DoUntilage=100age=age+1LoopMsgBox“好好学习，天天向上VBS循环语句'while的用法Dimmoneymoney=2Whilemoney0money=money-1WendMsgBox我身无分文了VBScript常用函数字符串函数Len：返回字符串内字符的数目，或是存储一变量所需的字节数。Left：返回指定数目的从字符串的左边算起的字符。Mid：从字符串中返回指定数目的字符。Right：从字符串右边返回指定数目的字符。VBScript常用函数Lcase：返回字符串的小写形式。Ucase：返回字符串的大写形式。StrComp：返回一个表明字符串比较结果的值。DimMyStr1,MyStr2,MyCompMyStr1=ABCD:MyStr2=abcd'定义变量。MyComp=StrComp(MyStr2,MyStr1)‘返回1。MsgBoxMyCompVBScript常用函数Split：返回基于0的一维数组，其中包含指定数目的子字符串。DimMyString,MyArray,MsgMyString=VBScriptXisXfun!MyArray=Split(MyString,x,-1,1)Msg=MyArray(0)&&MyArray(1)Msg=Msg&&MyArray(2)MsgBoxMsg'显示VBScriptisfun!VBScript常用函数Join：返回一个字符串，此字符串由包含在数组中的许多子字符串联接创建。DimMyStringDimMyArray(3)MyArray(0)=Mr.MyArray(1)=JohnMyArray(2)=DoeMyArray(3)=IIIMyString=Join(MyArray)MsgBoxMyStringVBScript常用函数转换函数CStr：返回表达式，该表达式已被转换为String子类型的VariantDimMyDouble,MyStringMyDouble=437.234MyString=CStr