VBS教程总结

1.变量常量

变量的定义

可以通过 Dim、Public 或Private语句声明 VBScript 变量：

Dim opera,operb,result

用 Option Explicit（显示声明，强制所有变量必须先申明才能使用） 语句。如果您使用这个语句，就必须使用 dim、public 或 private 语句来声明所有的变量。

Option Explicit
Dim carname
carname=some value

常量的定义

Const vbPI = 3.14

应用

Dim opera,operb,result1
opera = InputBox("Please input a's value")
operb = InputBox("Please input b's value")
result1 = Int(opera) + Int(operb)
result2 = Int(opera) - Int(operb)
MsgBox opera & "+" & operb & "=" & result1
MsgBox opera & "-" & operb & "=" & result2

其中，输入语句 InputBox()

           输出语句 MsgBox()

 opera&"+"&operb&"="&result，&为连接符（+也是连接符）， 作用是链接字符串或变量

2.字符串相关函数

Lcase和Ucase

大小写转换：Lcase和Ucase

'转换成小写
X = LCase("aBc") 'abc
'转换成大写
X = UCase("aBc") 'ABC

StrComp

比较，用来比较两个字符串，若是相等则返回0。

x = StrComp("abc","abc") '返回0
x = StrComp("abc","aBc") '返回非0

StrReverse

翻转字符串

'返回  yhW
x = StrReverse("Why")

Len

返回字符串长度

'返回3
x = Len("abc")

Left

返回一个字符串左边指定数目的字符、

'返回"This is"
x = Left("This is a test",7)

Right

返回一个字符串右边指定数目的字符

'返回"test"
x = Right("This is a test",4)

Mid

Mid 函数从字符串中返回指定数量的字符。如果没有指定数目，则返回从中间到最后的字符。

语法：Mid(string,start[,length])

参数	描述
string	必需。从其中返回字符的字符串表达式。
start	必需。规定起始位置。如果设置为大于字符串中的字符数量，则返回空字符串("")。
length	可选。要返回的字符数量。

 

 InStr

函数返回一个字符串在另一个字符串中首次出现的位置。

语法：InStr([start,]string1,string2[,compare])

参数	描述
start	可选。规定每次搜索的起始位置。默认的搜索起始位置是第一个字符（1）。如果已规定 compare 参数，则必须有此参数。
string1	必需。需要被搜索的字符串。
string2	必需。需要搜索的字符串表达式。
compare	可选。规定要使用的字符串比较类型。默认是 0。 可采用下列的值： 0 = vbBinaryCompare - 执行二进制比较 1 = vbTextCompare - 执行文本比较

InStr 函数返回下面的值：

• 如果 string1 为 "" - InStr 返回 0
• 如果 string1 为 Null - InStr 返回 Null
• 如果 string2 为 "" - InStr 返回 start
• 如果 string2 为 Null - InStr 返回 Null
• 如果 string2 没有找到 - InStr 返回 0
• 如果在 string1 中找到 string2 - InStr 返回找到匹配字符串的位置
• 如果 start > Len(string1) - InStr 返回 0

例子：

txt="This is a beautiful day!"
MsgBox InStr(1,txt,"i") 'result:3
MsgBox InStr(7,txt,"i") 'result:16

InStrRev

InStrRev 函数返回字符串在另一字符串中首次出现的位置。搜索从字符串的末端开始，但是返回的位置是从字符串的起点开始计数的。

InStrRev(string1,string2[,start[,compare]])

参数	描述
string1	必需。需要被搜索的字符串。
string2	必需。需要搜索的字符串表达式。
start	可选。规定每次搜索的起始位置。默认的搜索起始位置是最后一个字符（-1）。
compare	可选。规定要使用的字符串比较类型。默认是 0。 可采用下列的值： 0 = vbBinaryCompare - 执行二进制比较 1 = vbTextCompare - 执行文本比较

• 如果 string1 为 "" - InStrRev 返回 0
• 如果 string1 为 Null - InStrRev 返回 Null
• 如果 string2 为 "" - InStrRev 返回 start
• 如果 string2 为 Null - InStrRev 返回 Null
• 如果 string2 没有找到 - InStrRev 返回 0
• 如果在 string1 中找到 string2 - InStrRev 返回找到匹配字符串的位置
• 如果 start > Len(string1) - InStrRev 返回 0

LTrim,RTrim,Trim

去除字符串左边、右边或者两边的空格。

LTrim(string)

参数	描述
string	必需。字符串表达式。

RTrim(string)

参数	描述
string	必需。字符串表达式。

Trim(string)

参数	描述
string	必需。字符串表达式。

Replace

Replace 函数使用另一个字符串替换字符串的指定部分指定的次数。

Replace(string,find,replacewith[,start[,count[,compare]]])

参数	描述
string	必需。被搜索的字符串。
find	必需。将被替换的字符串部分。
replacewith	必需。用于替换的子字符串。
start	可选。指定的开始位置。默认值是 1。起始位置之前的所有字符将被删除。
count	可选。规定要执行的替换的次数。 默认值是 -1，表示进行所有可能的替换。
compare	可选。规定要使用的字符串比较类型。默认是 0。 可采用下列的值： 0 = vbBinaryCompare - 执行二进制比较 1 = vbTextCompare - 执行文本比较

Space

生成指定数目的空格。

Space(number)

参数	描述
number	必需。字符串中的空格数量。

String

String 函数返回包含指定长度的重复字符的一个字符串。

String(number,character)

参数	描述
number	必需。被返回字符串的长度。
character	必需。被重复的字符。

  

Array

Array 函数返回一个包含数组的变量。

注意：数组中的第一个元素索引是零。

Array(arglist)

参数	描述
arglist	必需。数组中元素值的列表（由逗号分割）。

a=Array(5,10,15,20)
MsgBox a(3) '20

UBound和LBound

UBound(arrayname[, dimension])

arrayname

必选项。数组变量名，遵循标准变量命名规则。

Dimension

可选项。指定返回哪一维上界的整数。1 表示第一维，2 表示第二维，以此类推。如果省略 dimension 参数，则默认值为 1。

UBound 函数与 LBound 函数一起使用，用于确定数组的大小。使用 LBound 函数可以确定数组某一维的下界。

所有维的下界均为 0。对于有这样维数的数组，UBound 函数返回以下结果：

Dim A(100,3,4)

语句	返回值
UBound(A, 1)	100
UBound(A, 2)	3
UBound(A, 3)	4

Filter

Filter 函数返回一个基于 0 的数组，此数组包含以特定过滤条件为基础的字符串数组的子集。

注意：如果找不到与 value 参数相匹配的值，Filter 函数会返回一个空数组。

注意：如果参数 inputstrings 为 Null 或者不是一维数组，则会发生错误。

Filter(inputstrings,value[,include[,compare]])

参数	描述
inputstrings	必需。要检索的一维字符串数组。
value	必需。要搜索的字符串。
include	可选。Boolean 值，指定返回的子字符串是否包含 Value。如果 Include 为 True，Filter 将返回包含子字符串 Value 的数组子集。如果 Include 为 False，Filter 将返回不包含子字符串 Value 的数组子集。默认值为 True。
compare	可选。规定要使用的字符串比较类型。 可采用下列的值： 0 = vbBinaryCompare - 执行二进制比较 1 = vbTextCompare - 执行文本比较

a=Array("Sunday","Monday","Tuesday","Wednesday","Thursday","Friday","Saturday")
b=Filter(a,"S")
for each x in b
	MsgBox x
Next
'结果：Sunday,Saturday

Split

Split(expression[,delimiter[,count[,compare]]])

参数	描述
expression	必需的。包含子字符串和分隔符的字符串表达式。
delimiter	可选的。用于识别子字符串界限的字符。默认是空格字符。
count	可选的。需被返回的子字符串的数目。-1 指示返回所有的子字符串。
compare	可选的。规定要使用的字符串比较类型。 可采用下列的值： 0 = vbBinaryCompare - 执行二进制比较。 1 = vbTextCompare - 执行文本比较。

例子1：

Dim testpath,testpaths
testpath = "C:\oabookat\testscript"
testpaths = Split(testpath,"testscript")
MsgBox testpaths(0)

结果：

Join

oin 函数返回一个由数组中若干子字符串组成的字符串。

Join(list[,delimiter])

参数	描述
list	必需。一维数组，其中包含需被连接的子字符串。
delimiter	可选。用于在返回的字符串中分割子字符串的字符。默认是空格字符。

str = "-"
seq = Array("a", "b", "c")
MsgBox Join(seq,"-") 'a-b-c

3.转换函数

CBool

CBool():将表达式转换为Boolean型：

语法：CBool(expression)
该函数将参数expression转换为 Boolean型 。
参数可以是任何有效的表达式。
注解:如果 expression 的结果为 0 ，则返回 False；否则将返回 True。如果 expression 无法被计算成数值，将会产生执行阶段错误。

CByte

CByte():将表达式转换为Byte型。

语法：CByte(expression)
该函数返回一个转换为 Byte 型的表达式。
参数 expression 可以是任何有效的表达式。
注解：使用 CByte 来强制执行 Byte 运算，不管它是单精数、倍精数、或是整数，都可以正常执行。使用 CByte 函数可以在任何语言的版本中，让任何一种数据转换至 Byte型。例如，不同的小数点分隔符号，会依据您系统的国别设定来做适当的确认。而千分位分隔符号也一样。若 expression 超出 Byte 资料型态允许的范围，则将会显示错误。

CCur

CCur():将表达式转换为Currency()货币类型。

语法：CCur(expression)
该函数返回一个转换为 Currency 的表达式。
参数 expression 可以是任何有效的表达式。
注解:
可以使用 CCur 来强制执行 Currency 运算，以免被当作整数运算。
可以使用 CCur 函数以在任何语言的版本中，让任何一种数据换至 Currency 型。例如，当使用 CCur，不同的小数点分隔符号、千分位分隔符号，和不同的货币选项，会依据您系统的国别设定来做适当的确认。

CDate

CDate():

语法：CDate(date)
返回一个转换为 Date 型的表达式。
参数 date 是任何有效的日期表达式。
注解:
可以使用 IsDate 函数来检查 date 是否可以被转换成日期或时间。而 CDate 接受日期文字和时间文字以及日期/时间有效范围内的适当数值。当转换一个数字成为日期时，是将整数部分转换成日期；任何数字中的小数部分，将转换为从午夜起算的时间。
CDate 是依据您系统上的国别设定来决定日期的格式。若提供的格式为不可辨识的日期设定，则无法判断日、月、年的顺序。另外，它若包含有星期的字符串，对于这样的完整日期格式也无法辨识。

CDbl()

语法CDbl(expression)
返回一个转换为 Double 态的表达式。
参数 expression 可以是任何有效的表达式，比如string，数字
注解:
可以使用 CDbl 或 CSng 来强制执行双精度或单精度运算以防止被当作货币或整数运算。

结果：两个输出值都是1

CInt

CInt():函数将一个表达式转化为数字类型.

表达式 CInt(expression)

允许数据类型: 任何有效的字符均可，比如字符串、数字

实例：
f = "234"
response.write cint(f) + 2

返回结果: 236

转化字符"234"为数字"234"，如果字符串为空，则返回0值

a = "12,890.12000"
b = "12,890.120"

If CInt(Replace(a,",","")) = CInt(Replace(b,",","")) Then
	MsgBox 1
Else 
	MsgBox 0
End If
If CInt(a) = CInt(b) Then
	MsgBox 1
Else 
	MsgBox 0
End IF

结果：两个输出值都是1

CLng

语法
CLng(expression)
该函数返回一个转换为 Long 型的表达式。
参数 expression 可以是任何有效的表达式。
注解:
可以使用 CInt 或 CLng 来强制执行整数运算，以免被当作货整币、单精度、或双精度运算。
如果 expression 超出 Long型允许的范围，则会发生错误。
附注:
CLng 函数与 Fix 及 Int 函数不同，Fix 和 Int 函数会将小数部分去除，然后返回整数值。当小数部分恰好为 0.5 时， CLng 函数会将它转换成最接近的偶数值。例如，0.5 转换成 0，1.5 转换成 2。

CSng

语法
CSng(expression)
该返回一个转换为  Single  资料型态的表达式。
参数  expression  可以是任何有效的表达式。
注解:
使用  CDbl  或  CSng  来强制执行双精度或单精度运算，以防止被当作货币或整数运算。
如果  expression  超出  Single  型允许的范围，则会发生错误。

CStr 

CStr():函数转化一个表达式为字符串.

表达式 Cstr(expression)

允许数据类型: expression 是任何有效的表达式。

实例： 
s = 3 + 2
response.write "the 返回结果 is: " & cstr(s)

返回结果: 转化数字“5”为字符“5”。

Hex()

Hex(number)

参数	描述
number	必需。任何有效的表达式。 如果数字是： Null - 那么 Hex 函数返回 Null。 Empty - 那么 Hex 函数返回零（0）。 Any other number - 那么 Hex 函数返回 8 个十六进制字符。

注解:
如果  number  不是一个整数，那么在执行前会先被四舍五入成最接近的整数。 
可以将十六进位数字直接以&H开头来表示。例如，&H10代表十进位的  16。

Oct()

Oct(number)

参数	描述
number	必需。任何有效的表达式。 如果数字是： Null - 那么 Oct 函数返回 Null。 Empty - 那么 Oct 函数返回零（0）。 Any other number - 那么 Oct 函数返回 11 个八进制字符。

可以将八进位数字直接以&O  开头来表示。例如，&O10代表十进位的  8。

Asc

Asc 函数把字符串中的第一个字母转换为对应的 ANSI 代码，并返回结果。

Asc(string)

参数	描述
string	必需。字符串表达式。不能为空字符串！

MsgBox Asc("A") '65

Chr

Chr 函数把指定的 ANSI 字符代码转换为字符。

注意：从 0 到 31 之间的数字表示不可打印的 ASCII 代码，例如 Chr(10) 将返回一个换行符。

Chr(charcode)

参数	描述
charcode	必需。标识某个字符的数字。

MsgBox Chr(65) 'A

4.日期和时间函数

Date

返回当前系统日期

Dim MyDate
MyDate = Date
MsgBox MyDate '结果2022/4/27

Time

返回当前系统时间

Dim MyTime
MyTime = Time
MsgBox MyTime '结果 15:06:19

Now

返回当前系统日期和时间

MsgBox Now '结果 2022/4/27 15:08:21

Day/Month/Year

Day

Day函数返回介于 1 到 31 之间的一个代表月的天数的数字。

Day(date)

参数	描述
date	必需。表示日期的任何表达式。

Msgbox Now() '2022/4/27 15:24:40
Msgbox Day(Now()) '27 

Month

Month 函数返回表示年的月份的数字，介于 1 到 12 之间。

Month(date)

参数	描述
date	必需。任何表示日期的表达式。

Msgbox Now() '2022/4/27 15:34:36
Msgbox Month(Now()) '4

 Year 

Year 函数返回表示年份的一个数字。

Year(date)

参数	描述
date	必需。任何可表示日期的表达式。

Msgbox Now() '2022/4/27 15:34:36
Msgbox Year(Now())  '2022

Hour/Minute/Seconds

Hour 函数返回一个 0 到 23 之间的代表天的小时数的数字。

Hour(time)

参数	描述
time	必需。任何可表示时间的表达式。

Minute 函数返回表示小时的分钟数的数字，介于 0 到 59 之间。

Minute(time)

参数	描述
time	必需。表示时间的表达式。

Second 函数返回表示分钟的秒数的数字，介于 0 到 59 之间。

Second(time)

参数	描述
time	必需的。任何表示时间的表达式。

Msgbox Hour(Time) '15
Msgbox Hour(Now) '15
Msgbox Minute(Time) '38
Msgbox Minute(Now) '38
Msgbox Second(Time) '47
Msgbox Second(Now) '47

Weekday

Weekday 函数返回表示一周的天数的数字，介于 1 到 7 之间。

Weekday(date[,firstdayofweek])

参数	描述
date	必需。要计算的日期表达式。
firstdayofweek	可选。规定一周的第一天。 可采用下面的值： 0 = vbUseSystemDayOfWeek - 使用区域语言支持（NLS）API 设置 1 = vbSunday - 星期日（默认） 2 = vbMonday - 星期一 3 = vbTuesday - 星期二 4 = vbWednesday - 星期三 5 = vbThursday - 星期四 6 = vbFriday - 星期五 7 = vbSaturday - 星期六

'Now: 2022/4/27 15:41:10 星期三
Msgbox Weekday(Now) '4
Msgbox Weekday(Now,2) '3

DateDiff

DateDiff 函数返回两个日期之间的时间间隔数。

DateDiff(interval,date1,date2[,firstdayofweek[,firstweekofyear]])

参数	描述
interval	必需。计算 date1 和 date2 之间的时间间隔的单位。 可采用下面的值： yyyy - 年 q - 季度 m - 月 y - 当年的第几天 d - 日 w - 当周的第几天 ww - 当年的第几周 h - 小时 n - 分 s - 秒
date1,date2	必需。日期表达式。在计算中需要使用的两个日期。
firstdayofweek	可选。规定一周的日数，即当周的第几天。 可采用下面的值： 0 = vbUseSystemDayOfWeek - 使用区域语言支持（NLS）API 设置 1 = vbSunday - 星期日（默认） 2 = vbMonday - 星期一 3 = vbTuesday - 星期二 4 = vbWednesday - 星期三 5 = vbThursday - 星期四 6 = vbFriday - 星期五 7 = vbSaturday - 星期六
firstweekofyear	可选。规定一年中的第一周。 可采用下面的值： 0 = vbUseSystem - 使用区域语言支持（NLS）API 设置 1 = vbFirstJan1 - 由 1 月 1 日所在的星期开始（默认） 2 = vbFirstFourDays - 由在新的一年中至少有四天的第一周开始 3 = vbFirstFullWeek - 由在新的一年中第一个完整的周开始

Msgbox DateDiff ("d",2022/4/25,2022/4/27) '-2
Msgbox DateDiff ("d",2022/4/27,2022/4/25) '2

5.其他函数

TypeName

TypeName 函数返回指定变量的子类型。

TypeName 函数返回下面的值：

• Byte - 表示一个字节值
• Integer - 表示一个整型值
• Long - 表示一个长整型值
• Single - 表示一个单精度浮点值
• Double - 表示一个双精度浮点值
• Currency - 表示一个货币值
• Decimal - 表示一个十进制值
• Date - 表示一个日期或时间值
• String - 表示一个字符串值
• Boolean - 表示一个布尔值，True 或 False
• Empty - 表示一个未初始化变量
• Null - 表示无有效数据