VBS重要函数.

1、 Vbscript的基本语法 条件语句 循环语句 VBScript 过程 掌握Vbscript常见函数的用法,包括： 转换函数 输入/输出函数 字符串函数（重点） 日期与时间函数 常用数学函数 检验函数 在使用过程中，Variant变量一般会根据需要 自动转换成合适的数据类型；但有时，自动 转换有可能造成数据类型不匹配错误。此时， 就应使用VBScript的转换函数来强制转换数 据的子类型。 Asc函数示例 下面例子中, Asc 返回每一个字符串首字母 的 ANSI 字符代码: Dim MyNumber MyNumber = Asc(“A”) 返回 65。 MyNumber = Asc(“a”

2、) 返回 97。 MyNumber = Asc(Apple) 返回 65。 Chr 函数示例 下面例子利用 Chr 函数返回与指定的字符代 码相对应的字符: Dim MyChar MyChar = Chr(65) 返回 A。 MyChar = Chr(97) 返回 a。 MyChar = Chr(62) 返回 。 MyChar = Chr(37) 返回 %。 CStr 函数示例 CStr将变量num1由整数子类型强制转换为 字符串子类型 CDate 函数示例 MyDate = “October 19, 1962” 定义日期。 MyShortDate = CDate(MyDate) 转换为日 期

3、数据类型。 MyTime = “4:35:47 PM” 定义时间。 MyShortTime = CDate(MyTime) 转换为日 期数据类型。 CInt 函数示例 Dim MyDouble, MyInt MyDouble = 2345.5678 MyDouble 是 Double。 MyInt = CInt(MyDouble) MyInt 包含 2346。 CLng 函数示例 Dim MyVal1, MyVal2, MyLong1, MyLong2 MyVal1 = 25427.45 MyVal1 是双精度值。 MyVal2 = 25427.55 MyVal2 是双精度值。 MyLong1

4、 = CLng(MyVal1) MyLong1 25427。 MyLong2 =CLng(MyVal2) MyLong2 包含 25428 。 CBool 函数示例 Dim A, B, Check A = 5: B = 5 初始化变量。 Check = CBool(A = B) 复选框设为 True 。 A = 0 定义变量。 Check = CBool(A) 复选框设为 False 。 输入、输出函数只能在客户端运行，不能在 服务器端运行，因为它们要在客户端弹出窗 口。 输入、输出函数作用很大，因为信息验证类 事务如放在客户端进行，既能减轻服务器负 担，又能提高执行效率。 输出函数 MsgB

5、ox(prompt,button,title) prompt：显示窗口中的提示信息 button： 指定窗口外观和按钮类型 title： 显示窗口标题中的文字 说明：中为可选项 输入函数 String=InputBox(prompt ,title,default) String：用户输入的内容 prompt：显示窗口中的提示信息 title：显示窗口标题中的文字 default：指定窗口中的文本输入框内的默认 字 符串，即默认输入内容 说明：中为可选项 InputBox和MsgBox用法示例 Option Explicit 强制要求变量必须声明 Dim Name1,Name2 声明变量 Nam

6、e1=InputBox(金庸小说中你最喜欢的人物第一是 ,输入名称) Name2=InputBox(金庸小说中你最喜欢的人物第二是 ,输入名称) MsgBox Name1 & “和” & Name2 & “是金庸小说中你 最喜欢的两个人物” 字符串用途广泛，如用户注册时输入的用户 名、密码等信息，留言板中的留言标题、内 容、留言人等信息，都是作为字符串处理的。 函 数功 能 Len(string)返回字符串string里的字符个数 Trim(string)将字符串string的前后（两侧）空格去掉 Mid(string,start,length)从string的第start个字符开始截取长度为

7、length的子字符串；如 省略参数length，则从start开始截取到string的最后一个字符 Left(string,length)从string的左边截取长度为length的子字符串 Right(string,length)从string的右边截取长度为length的子字符串 LCase(string)将string里的所有大写字母转换为小写字母 UCase(string)将string里的所有小写字母转换为大写字母 StrComp(str1,str2)返回str1和str2的比较结果，同，则为0；大，为1；小为，-1 下面的示例利用 Len 函数返回字符串中的字符数 目： Dim

8、MyString MyString = Len(“VBSCRIPT”) MyString 包含 8。 下面的示例利用 LTrim, RTrim, 和 Trim 函数分别 用来除去字符串开始的空格、尾部空格、 开始和 尾部空格： Dim MyVar MyVar = LTrim( vbscript ) MyVar 包含 vbscript 。 MyVar = RTrim( vbscript ) MyVar 包含 vbscript。 MyVar = Trim( vbscript ) MyVar 包含vbscript。 下面的示例利用 Mid 函数返回字符串中从第 四个字符开始的六个字符： Dim My

9、Var MyVar = Mid(VB脚本is fun!, 4, 6) MyVar 包含 Script。 下面的示例利用Left 函数返回MyString 的左 边三个字母： Dim MyString, LeftString MyString = VBSCript LeftString = Left(MyString, 3) LeftString 包 含 VBS 下面的示例利用 Right 函数从字符串右边返 回指定数目的字符： Dim AnyString, MyStr AnyString = “Hello World” 定义字符串。 MyStr = Right(AnyString, 1) 返回

10、 d。 MyStr = Right(AnyString, 6) 返回 World。 MyStr = Right(AnyString, 20) 返回 Hello World。 StrComp 函数 下面的示例利用 StrComp 函数返回字符串比较的 结果。如果第三个参数为 1 执行文本比较；如果第 三个参数为 0 或者省略执行二进制比较。 Dim MyStr1, MyStr2, MyComp MyStr1 = ABCD“ MyStr2 = “abcd” 定义变量。 MyComp = StrComp(MyStr1, MyStr2, 1) 返回 0。 MyComp = StrComp(MyStr1

11、, MyStr2, 0) 返回 -1。 MyComp = StrComp(MyStr2, MyStr1) 返回 1。 InStr示例 下面的示例利用 InStr 搜索字符串： Dim SearchString, SearchChar, MyPos SearchString =XXpXXpXXPXXP SearchChar = P MyPos = Instr(SearchString, SearchChar) 返回 9. 注意：返回的不是一个字符串在另一个字符 串中第一次出现的字符位置，而是字节位置。 Split 函数可返回基于 0 的一维数组，此数组包含指定数目的子字符串。 Dim MyStr

12、ing, MyArray, Msg MyString = VBScriptXisXfun!“ MyArray = Split(MyString, x,-1,1) -1 指 示返回所有的子字符串。1 = vbTextCompare - 执行文本比较。 MyArray(0) contains VBScript. MyArray(1) contains is. MyArray(2) contains fun!. Response.Write(MyArray(0) Replace函数示例 Replace(ABCD, BC, 12) 得到A12D Replace 函数可使用一个字符串替换另一个 字符串指

13、定的次数。 在VBScript中，可以用日期和时间函数得到 各种格式的日期和时间，如留言板里经常用 Date()来记载留言日期。 常用日期和时间函数如下表： 常用日期与时间函数 函 数功 能 Now()取得系统当前日期和时间 Date()取得系统当前日期 Time()取得系统当前时间 Month(Date)取得给定日期的月份 Day(Date)取得给定日期是几号 WeekDay(Date)取得给定日期是星期几 Year(Date)取得给定日期的年份 函 数功 能 DateDiff(“Var”,Var1,Var2)计算日期或时间Var1与Var2的间隔 “Var”:为时间间隔因子 DateAdd

14、(“Var”,Var1,Var2) Var1:日期或时间间隔倍数 Var2:日期或时间的基准 对时间/日期Var2作加法 FormatDateTime(Date,vbShortDat e) 显示短日期格式 FormatDateTime(Date,vbLongDat e) 显示长日期格式 FormatDateTime(Date,vbShortTim e) 显示短时间格式 FormatDateTime(Date,vbLongTim e) 显示长时间格式 间隔因子yyyymdwwhs 说明年月日星期小时秒 日期和时间函数的用法示例 函 数功 能 Abs(number)返回一个数的绝对值 Sqr(nu

15、mber)返回一个数的平方根 Int(number)取number的最大整数部分 Cos(number) Sin(number) Log(number) Tan(number) Rnd(number)返回一个随机数 函 数功 能 VarType(Variant)返回变量Variant的数据子类型 IsEmpty(Variant)检查变量Variant是否为Empty IsNull(Variant)检查变量Variant是否为Null IsObject(Variant)检查变量Variant是否为对象类型 IsNumberic(Variant)检查变量Variant是否为数值类型 IsArray(Variant)检查变量Variant是否为数组类型 IsDate(Variant)检查变量Variant是否为日期类型 参考资料 石志国 清华大学出版社 石志国 清华大学出版社 胡标 人民邮电出版社 尚俊杰 清华大学出版社 总结 转换函数