vbscript函数详解.docx
《vbscript函数详解.docx》由会员分享,可在线阅读,更多相关《vbscript函数详解.docx(77页珍藏版)》请在冰豆网上搜索。
vbscript函数详解
vbscript函数详解
目录
一、字符串函数4
Len函数4
Left函数4
Mid函数5
Right函数5
InStr函数6
InStrRev函数8
LTrim、RTrim和Trim函数9
LCase函数10
UCase函数10
Replace函数11
StrComp函数12
Split函数13
Join函数14
StrReverse函数15
String函数16
Space函数16
二、转换函数17
Asc函数17
Chr函数17
CStr函数18
CBool函数19
CByte函数19
CCur函数20
CDate函数21
CDbl函数21
CInt函数22
CLng函数23
CSng函数23
三、判断函数24
IsArray函数24
IsDate函数25
IsEmpty函数26
IsNull函数26
IsNumeric函数27
IsObject函数28
VarType函数28
TypeName函数30
四、时间函数31
Date函数31
DateAdd函数31
DateDiff函数33
DatePart函数35
DateSerial函数37
DateValue函数38
Day函数39
Hour函数39
Minute函数40
Month函数40
MonthName函数40
Now函数41
Second函数41
Time函数42
TimeSerial函数42
TimeValue函数43
Weekday函数43
WeekdayName函数45
Year函数46
五、数学函数46
ABS函数46
Atn函数47
Cos函数47
Exp函数48
Log函数48
Sin函数49
Sqr函数49
Tan函数50
Round函数50
Rnd函数51
Oct函数52
Hex函数52
六、格式化函数53
FormatCurrency函数53
FormatDateTime函数54
FormatNumber函数55
FormatPercent函数57
七、其他函数58
Array函数58
CreateObject函数58
GetObject函数60
MsgBox函数61
InputBox函数63
LBound函数64
UBound函数65
Filter函数66
LoadPicture函数68
RGB函数68
ScriptEngine函数69
ScriptEngineBuildVersion函数70
ScriptEngineMajorVersion函数70
ScriptEngine函数71
一、字符串函数
Len函数
描述
返回字符串内字符的数目,或是存储一变量所需的字节数。
语法
Len(string|varname)
Len函数语法有以下参数:
参数描述
string任意有效的字符串表达式。
如果string参数包含Null,则返回Null。
varname任意有效的变量名。
如果varname参数包含Null,则返回Null。
说明
下面的示例利用Len函数返回字符串中的字符数目:
DimMyString
MyString=Len("VBSCRIPT")'MyString包含8。
=============================================================
Left函数
描述
返回指定数目的从字符串的左边算起的字符。
语法
Left(string,length)
Left函数的语法有以下参数:
参数描述
string字符串表达式,其最左边的字符被返回。
如果string参数中包含Null,则返回Null。
length数值表达式,指明要返回的字符数目。
如果是0,返回零长度字符串("");如果大于或等于string参数中的字符总数,则返回整个字符串。
说明
可使用Len函数确定string参数中的字符数目。
下面的示例利用Left函数返回MyString的左边三个字母:
DimMyString,LeftString
MyString="VBSCript"
LeftString=Left(MyString,3)'LeftString包含"VBS"。
=============================================================
Mid函数
描述
从字符串中返回指定数目的字符。
语法
Mid(string,start[,length])
Mid函数的语法有以下参数:
参数描述
string字符串表达式,从中返回字符。
如果string包含Null,则返回Null。
startstring中被提取的字符部分的开始位置。
如果start超过了string中字符的数目,Mid将返回零长度字符串("")。
length要返回的字符数。
如果省略或length超过文本的字符数(包括start处的字符),将返回字符串中从start到字符串结束的所有字符。
说明
要判断string中字符的数目,可使用Len函数。
下面的示例利用Mid函数返回字符串中从第四个字符开始的六个字符:
DimMyVar
MyVar=Mid("VBScriptisfun!
",4,6)'MyVar包含"Script"。
=============================================================
Right函数
描述
从字符串右边返回指定数目的字符。
语法
Right(string,length)
Right函数的语法有以下参数:
参数描述
string字符串表达式,其最右边的字符被返回。
如果string参数中包含Null,则返回Null。
length数值表达式,指明要返回的字符数目。
如果为0,返回零长度字符串;如果此数大于或等于string参数中的所有字符数目,则返回整个字符串。
说明
要确定string参数中的字符数目,使用Len函数。
下面的示例利用Right函数从字符串右边返回指定数目的字符:
DimAnyString,MyStr
AnyString="HelloWorld" '定义字符串。
MyStr=Right(AnyString,1) '返回"d"。
MyStr=Right(AnyString,6) '返回"World"。
MyStr=Right(AnyString,20) '返回"HelloWorld"。
=============================================================
InStr函数
描述
返回某字符串在另一字符串中第一次出现的位置。
语法
InStr([start,]string1,string2[,compare])
InStr函数的语法有以下参数:
参数描述
start可选。
数值表达式,用于设置每次搜索的开始位置。
如果省略,将从第一个字符的位置开始搜索。
如果start包含Null,则会出现错误。
如果已指定compare,则必须要有start参数。
string1必选。
接受搜索的字符串表达式。
string2必选。
要搜索的字符串表达式。
compare可选。
指示在计算子字符串时使用的比较类型的数值。
有关数值,请参阅“设置”部分。
如果省略,将执行二进制比较。
设置
compare参数可以有以下值:
常数值描述
vbBinaryCompare0执行二进制比较。
vbTextCompare1执行文本比较。
返回值
InStr函数返回以下值:
如果InStr返回
string1为零长度0
string1为NullNull
string2为零长度start
string2为NullNull
string2没有找到0
在string1中找到string2找到匹配字符串的位置
start>Len(string2)0
说明
下面的示例利用InStr搜索字符串:
DimSearchString,SearchChar,MyPos
SearchString="XXpXXpXXPXXP" '要在其中搜索的字符串。
SearchChar="P" '搜索"P"。
'文本比较从第四个字符开始返回6。
MyPos=Instr(4,SearchString,SearchChar,1)
'二进制比较从第1个字符开始返回9。
MyPos=Instr(1,SearchString,SearchChar,0)
'缺省为二进制比较(最后一个参数省略)。
MyPos=Instr(SearchString,SearchChar) '返回9。
'二进制比较从第1个字符开始返回0(没有找到"W")。
MyPos=Instr(1,SearchString,"W")
=============================================================
InStrRev函数
描述
返回某字符串在另一个字符串中出现的从结尾计起的位置。
语法
InStrRev(string1,string2[,start[,compare]])
InStrRev函数的语法有以下参数:
参数描述
string1必选。
接受搜索的字符串表达式。
string2必选。
被搜索的字符串表达式。
start可选。
数值表达式,用于设置每次搜索的开始位置。
如果省略,则默认值为-1,表示从最后一个字符的位置开始搜索。
如果start包含Null,则出现错误。
compare可选。
在计算子字符串时,指示要使用的比较类型的数值。
如果省略,将执行二进制比较。
有关数值,请参阅“设置”部分。
设置
compare参数可以有以下值:
常数Value描述
vbBinaryCompare0执行二进制比较。
vbDatabaseCompare2执行基于包含在数据库(在此数据库中执行比较)中的信息的比较。
返回值
InStrRev返回以下值:
如果InStrRev返回
string1为零长度0
string1为NullNull
string2为零长度start
string2为NullNull
string2没有找到0
在string1中找到string2找到匹配字符串的位置
start>Len(string2)0
说明
下面的示例利用InStrRev函数搜索字符串:
DimSearchString,SearchChar,MyPos
SearchString="XXpXXpXXPXXP" '要在其中搜索的字符串。
SearchChar="P" '搜索"P"。
'二进制比较从第10个字符开始。
返回9。
MyPos=InstrRev(SearchString,SearchChar,10,0)
'文本比较从最后一个字符开始。
返回12。
MyPos=InstrRev(SearchString,SearchChar,-1,1)
'缺省为二进制比较(最后一个参数省略)。
返回0。
MyPos=InstrRev(SearchString,SearchChar,8)
=============================================================
LTrim、RTrim和Trim函数
描述
返回不带前导空格(LTrim)、后续空格(RTrim)或前导与后续空格(Trim)的字符串副本。
语法
LTrim(string)
RTrim(string)
Trim(string)
string参数是任意有效的字符串表达式。
如果string参数中包含Null,则返回Null。
说明
下面的示例利用LTrim,RTrim,andTrim函数分别去除前导空格,末尾空格,前导空格和末尾空格都去除:
DimMyVar
MyVar=LTrim(" vbscript") 'MyVar包含"vbscript"。
MyVar=RTrim(" vbscript") 'MyVar包含" vbscript"。
MyVar=Trim(" vbscript") 'MyVar包含"vbscript"。
=============================================================
LCase函数
描述
返回字符串的小写形式。
语法
LCase(string)
string参数是任意有效的字符串表达式。
如果string参数中包含Null,则返回Null。
说明
仅大写字母转换成小写字母;所有小写字母和非字母字符保持不变。
下面的示例利用LCase函数把大写字母转换为小写字母:
DimMyString
DimLCaseString
MyString="VBSCript"
LCaseString=LCase(MyString)'LCaseString包含"vbscript"。
============================================================
UCase函数
描述
返回字符串的大写形式。
语法
UCase(string)
string参数是任意有效的字符串表达式。
如果string参数中包含Null,则返回Null。
说明
只有小写字母被转换成大写字母;所有大写字母和非字母字符均保持不变。
下面的示例利用UCase函数返回字符串的大写形式:
DimMyWord
MyWord=UCase("HelloWorld") '返回"HELLOWORLD"。
=============================================================
Replace函数
描述
返回字符串,其中指定数目的某子字符串被替换为另一个子字符串。
语法
Replace(expression,find,replacewith[,compare[,count[,start]]])
Replace函数的语法有以下参数:
参数描述
expression必选。
字符串表达式包含要替代的子字符串。
find必选。
被搜索的子字符串。
replacewith必选。
用于替换的子字符串。
start可选。
expression中开始搜索子字符串的位置。
如果省略,默认值为1。
在和count关联时必须用
count可选。
执行子字符串替换的数目。
如果省略,默认值为-1,表示进行所有可能的替换。
在和start关联时必须用。
compare可选。
指示在计算子字符串时使用的比较类型的数值。
有关数值,请参阅“设置”部分。
如果省略,缺省值为0,这意味着必须进行二进制比较。
设置
compare参数可以有以下值:
常数值描述
vbBinaryCompare0执行二进制比较。
vbTextCompare1执行文本比较。
返回值
Replace返回以下值:
如果Replace返回
expression为零长度零长度字符串("")。
expression为Null错误。
find为零长度expression的副本。
replacewith为零长度expression的副本,其中删除了所有由find参数指定的内容。
start>Len(expression)零长度字符串。
count为0expression的副本。
说明
Replace函数的返回值是经过替换(从由start指定的位置开始到expression字符串的结尾)后的字符串,而不是原始字符串从开始至结尾的副本。
下面的示例利用Replace函数返回字符串:
DimMyString
'二进制比较从字符串左端开始。
返回"XXYXXPXXY"。
MyString=Replace("XXpXXPXXp","p","Y")
'文本比较从第三个字符开始。
返回"YXXYXXY"。
MyString=Replace("XXpXXPXXp","p","Y",3,-1,1)
=============================================================
StrComp函数
描述
返回指示字符串比较结果的值。
语法
StrComp(string1,string2[,compare])
StrComp函数的语法有以下参数:
参数描述
string1必选。
任意有效的字符串表达式。
string2必选。
任意有效的字符串表达式。
compare可选。
指示在计算字符串时使用的比较类型的数值。
如果省略,则执行二进制比较。
有关数值,请参阅“设置”部分。
设置
compare参数可以有以下值:
常数值描述
vbBinaryCompare0执行二进制比较。
vbTextCompare1执行文本比较。
返回值
StrComp函数有以下返回值:
如果StrComp返回
string1小于string2-1
string1等于string20
string1大于string21
string1或string2为NullNull
说明
下面的示例利用StrComp函数返回字符串比较的结果。
如果第三个参数为1执行文本比较;如果第三个参数为0或者省略执行二进制比较。
DimMyStr1,MyStr2,MyComp
MyStr1="ABCD":
MyStr2="abcd" '定义变量。
MyComp=StrComp(MyStr1,MyStr2,1) '返回0。
MyComp=StrComp(MyStr1,MyStr2,0) '返回-1。
MyComp=StrComp(MyStr2,MyStr1) '返回1。
=============================================================
Split函数
描述
返回基于0的一维数组,其中包含指定数目的子字符串。
语法
Split(expression[,delimiter[,count[,start]]])
Split函数的语法有以下参数:
参数描述
expression必选。
字符串表达式,包含子字符串和分隔符。
如果expression为零长度字符串,Split返回空数组,即不包含元素和数据的数组。
delimiter可选。
用于标识子字符串界限的字符。
如果省略,使用空格("")作为分隔符。
如果delimiter为零长度字符串,则返回包含整个expression字符串的单元素数组。
count可选。
被返回的子字符串数目,-1指示返回所有子字符串。
compare可选。
指示在计算子字符串时使用的比较类型的数值。
有关数值,请参阅“设置”部分。
设置
compare参数可以有以下值:
常数值描述
vbBinaryCompare0执行二进制比较。
vbTextCompare1执行文本比较。
说明
下面的示例利用Split函数从字符串中返回数组。
函数对分界符进行文本比较,返回所有的子字符串。
DimMyString,MyArray
MyString=Split("VBScriptXisXfun!
","x",-1,1)
'MyString(0)包含"VBScript"。
'MyString
(1)包含"is"。
'MyString
(2)包含"fun!
"。
=============================================================
Join函数
描述
返回一个字符串,此字符串由包含在数组中的许多子字符串联接创建。
语法
Join(list[,delimiter])
Join函数的语法有以下参数:
参数描述
list必选。
包含要联接的子字符串一维数组。
delimiter可选。
在返回字符串中用于分隔子字符串的字符。
如果省略,将使用空字符("")。
如果delimiter是零长度字符串,则在同一列表中列出全部项,没有分界符。
Remarks
下面的示例利用Join函数联合MyArray的子字符串:
DimMyString
DimMyArray(4)
MyArray(0)="Mr."
MyArray
(1)="John"
MyArray
(2)="Doe"
MyArray(3)="III"
MyString=Join(MyArray)'MyString包含"Mr.JohnDoeIII"。
=============================================================
StrReverse函数
描述
返回字符串,此字符串与指定字符串顺序相反。
语法
StrReverse(string1)
string1参数是要进行字符反向的字符串。
如果string1是零长度字符串(""),则返回零长度字符串。
如果string1为Null,则会出现错误。
说明
下面的示例利用StrReverse函数返回按相反顺序排列的字符串:
DimMyStr
MyStr=StrReve