首页 > 代码库 > VBS基本语法

VBS基本语法

 

 

一、初识VBS

Vbs       是一种变量无关、解释性执行的脚本语言。vbs语言中不区分大小写。语句以换行结束。

dim        声明变量;批量名称声明,多个变量之间用逗号分隔:

set          赋值;

rem       注释,同

msgbox prompt,buttons,title,helpfile,context   输出 msgbox(s) 把两个不同的内容一起输出时用“+”连接

       prompt   显示的字符串,最大为1024字符,如果换行用回车换行符组合 chr(13)&chr(10)       buttons 默认值为0,为显示按钮值的参数

       title标题,如果省略则交应用程序的名称显示在标题栏中;

       helpfile字符串表达式,用于标识为对话框提供上下文相关帮助文件,如果提供了helpfile,则必须提供context

       context   数值表达式,用于标识某个帮助文件的编号,必须与helpfile一起使用;

inputbox(msg,"title","傻逼") ‘第一参数为显示语句,最大长度为1024;第二为框体名称,第三为默认输入内容

msgbox的返回值有1-7七个数,依次来自:确定、取消、放弃、重试、忽略、是、否;

 

二、数据类型

vbs中只有一个基本数据数据类型 Variant,variant中包含integer等子类型,用VarType()函数可返回数据的子类型的对应值;使用typename(对象)也可返回子类型;

子类型有:

byteinteger,long,single,duble,currency(货币值),decimal,date,string,boolean,empty(未初始化),null(无有效数据),object(一般对象),unknown,nothing(还未引用对象实例的对象变量)error

 

const        声明常量;也可用Private或者Public来改变变量的公有和私有属性;

dim A(10)      11元素数组,赋值A(2)=1,二维数组:B(2,2) 单点赋值B(1)(2)‘数组最高可为60

 

变量的命名规则:

1、第一个字符必须是字母;

2、不能包含嵌入句点的语句;

3、长度不能超过255个字符;

4、在被声明的作用域内必须唯一;

 

三、运算符

1、算术运算符

+    

-    

*     

/     

\      整除

mod      取余(%

^    

&    字符串连接,字符串即用“”包围的内容

2、比较运算符

=     等于

<>  不等于

<     小于

>     大于

<=  小于等于

>=  大于等于

Is     对象引用比较

3、逻辑运算符

not    

and  

or     

xor    异或

eqv      等价

imp  隐含

 

四、控制结构:

1、条件语句:

if...then

...else

if...then

...else

...

end if

 

select case

       ..

       case

       .. ...

       case

       .. ...

       case else

       ...

end select

 

2、循环:

1)、do...loop ‘重复执行doloop之间的语句,直到exit do

exit do

2)、while...wend

3)、for...next.

4)、for each ... next

 

五、函数

1、格式:

sub Name()

       ...

end sub

 

function xx()

       ...

end function

sub无返回值,function有返回值

 

2、常用函数:

asc(s)      返回s内第一个字母对应的ASCII

chr(51)   将数字返回对应的字符

cbool()    返回表达式的boolean

cByte()    将表达式转换为byte子类型的variant

cCur()     将表达式转换为currency

cdate()    将表达式转换为date

cdble()    将表达式转换为double类型

cint()      转换为integer

cLng()     转换为long

csng()     转换为single

cstr()       转换为string

isArray()  判断是否为数组,返回bool值;

isDate()   判断是否为日期,返回bool值;

isEmpty()判断是否已初始化,返回bool值;

isNumeric()    判断是否为数字,返回bool值;

isNull()      判断是否不包含有效数据,返回bool值;

isObject()       判断是否引用了有效对象,返回bool值;

len(()             返回字符串内的字符数或存储一变量所需要的字节数;

left(string,length) 返回从字符串左边算起的指定数目的字符;

mid(string,start,length) 从字符串中返回指定数目的字符;

right(string,length)从字符串中返回字符,从右边开始

InStr(start,str1,str2)      返回str2str1中第一次出现的位置,start表示开始搜索位置,为可选;

Lcase(str)    返回字符串的小写形式;

UCase(str)      返回字符串的大写形式;

split(separator)分割字符串;

Date              返回当前日期;

Time              返回当前时间;

Now              返回日期和时间;

day(date)       返回日;

month(date)  返回月;

year(date)      返回年;

hour(time)     返回小时;

minute(time)返回分钟;

second(time)返回秒;

formatDateTime(date[,namedFormat])     返回已格式化的时间

       namedformat可选参数有:

       vbGeneralDate     (0)

       vbLongDate   (1)

       vbShortDate  (2)

       vbLongTime  (3)

       vbShortTime  (4)

 

六、异常处理

格式:

on error resume next

...

err.Clear

err.raise 6

 

对常见文件和数据库的访问:

set myobj = CreateObject("Scripting.fileSystemObject")  打开文本文件;

set myobj = CreateObject("Excel.Application")访问Excel

Set myobj = CreateObject("Microsoft.XMLDOM")   XML文件访问;

set myobj = CreateObject("ADODB.Recordset")      acess数据库访问;

set myobj = CreateObject("ADODB.Connection")   SQLServer数据库访问;

 

日期文字和时间文字包含在两个#之间,如:#6-1-99#

scripting.filesystemobject 提供一整套文件系统操作函数

scripting.dictionary返回存放键值对的字典对象

wscript.shell提供一套读取系统信息的函数

wscript.network提供网络连接和远程打印机管理的函数

 

VBS基本语法