英国网站建设,网站tdk优化,莆田网站建设,建设一个网站预算VBScript中有趣的函数#xff08;一#xff09; 1、Inputbox()2、msgbox()3、IsNumeric()4、CBdl(), CInt(), CStr()5、ReDim6、InStr()7、Spilt() 1、Inputbox()
Inputbox()函数表示输入内容#xff0c;注意在VBScript中没有input()。
2、msgbox()
msgbox()函数在对话框… VBScript中有趣的函数一 1、Inputbox()2、msgbox()3、IsNumeric()4、CBdl(), CInt(), CStr()5、ReDim6、InStr()7、Spilt() 1、Inputbox()
Inputbox()函数表示输入内容注意在VBScript中没有input()。
2、msgbox()
msgbox()函数在对话框中显示消息。因为VBScript中没有print()函数为了做输出提示用msgbox会比较多。
3、IsNumeric()
IsNumeric()判断是否为数字若是数字返回True,若不是数字则返回Flase。
Dim num
numinputbox(please input a number:)
if isnumeric(num) then msgbox num
elsemsgbox (please input a number: num)
end if4、CBdl(), CInt(), CStr()
CBdl()是将数字类型转化为双精度DoubleCInt()转换为整型CStr()转换为字符数。
5、ReDim
ReDim用来修改动态数组大小。ReDim preserve Ararry()只能修改数组最后维大小并不能修改数组的维数。
dim A()
ReDim A(10,10,10)
ReDim preserve A(10,10,20)6、InStr()
InStr()函数用来返回某字符串在另一字符串中第一次出现的位置主要用来查找字符串。 InStr([start, ]string1, string2[, compare]) 1start可选项用于每次搜索的开始位置。如果制定了compare则必须要有start参数 2string1接受搜索的字符串 3string2接受搜索的字符串 4compare使用的比较类型参数有0和1两种 0——二进制比较精确查找区分大小写默认为0 0——文本比较模糊查找不区分大小写
AAPPappAPPa
Ba
MyBInStr(A,B)精确查找区分大小写返回 4
MyCInStr(1,A,B,1) 从第1位开始搜索不区分大小写返回 1对于0二进制比较和1文本比较建议使用0二进制比较这样更加严谨和简便。
7、Spilt()
Spilt()用来分割字符串在数组中应用较位广泛。 Split(expression[, delimiter[, count[, start]]])
Dim MyString, MyArray, msg
MyString VBScriptXisXfun!
MyArray Split(MyString, X)
Msg MyArray(0) MyArray(1) MyArray(2)
MsgBox Msg