VBscript常用函数

1、VBscript常用函数实用zzVBscript常用函数： 1.数值型函数： abs(num): 返回绝对值 sgn(num): num0 1; num=0 0; num0 int(num): 取整 int(99.8)=99; int(-99.2)=100 fix(num): 取整 fix(99.8)=99; fix(-99.2)=99 round(num,n): 四舍五入取小数位 round(3.14159,3)=3.142 中点数值四舍五入为近偶取整 round(3.25,1)=3.2 log(num): 取以e为底的对数 num0 exp(n): 取e的n次幂 通常用 numn sin(

2、num): 三角函数，以弧度为值计算 (角度*Pai)/180=弧度 con(num); tan(num); atn(num) 2.字符串函数： len(str)：计算字符串长度 中文字符长度也计为一！ mid(str,起始字符,读取长度)：截取字符串中间子字符串 left(str,nlen)：从左边起截取nlen长度子字符串 right(str,nlen)：从右边起截取nlen长度子字符串 Lcase(str)：字符串转成小写 Ucase(str)：字符串转成大写 trim(str)：去除字符串两端空格 Ltrim(str)：去除字符串左侧空格 Rtrim(str)：去除字符串右侧空格 re

3、place(str,查找字符串,替代字符串,起始字符,替代次数,比较方法)：替换字符串 注：默认值：起始字符 1；替代次数 不限；比较方法 区分大小写（0） InStr(起始字符,str,查找字符串,比较方法)：检测是否包含子字符串 可选参数需同时选 返回起始位置 InStrRev(str,查找字符串,起始字符,比较方法)：反向检测是否包含子字符串 返回起始位置 space(n)：构造n个空格的字符串 string(n,str)：构造由n个str第一个字符组成的字符串 StrReverse(str)：反转字符串 split(str,分割字符串,次数,比较方法)：以分割字符串为分割标志将字符串转

4、为字符数组 可选参数需同时选 3.数据类型转换函数： Cint(str)：转换正数 True -1；False 0；日期 距离1899/12/31天数；时间 上午段 0；下午段 1； Cstr(str)：日期 输出格式 yyyy/mm/dd；时间 输出格式 Am/Pm hh:mm:ss Clng(str)：与Cin()类似 Cbool(num)：num不为零 True；反之 False Cdate(str)：转换日期格式 0：#Am 12:00:00#；正数 距离1899/12/31天数的日期；浮点数 日期小数时间 Cbyte(num)：num0或为空，取序列下一随机值，n。MyChar =

5、Chr(37) 返回 %。3、Hex 函数示例下面的示例利用 Hex 函数返回数字的十六进制数：Dim MyHexMyHex = Hex(5) 返回 5。MyHex = Hex(10) 返回A。MyHex = Hex(459) 返回 1CB。4、Oct 函数示例下面的示例利用 Oct 函数返回数值的八进制数：Dim MyOctMyOct = Oct(4) 返回 4。MyOct = Oct(8) 返回 10。MyOct = Oct(459) 返回 713。5、 CStr 函数示例CStr将变量num1由整数子类型强制转换为字符串子类型6、CDate 函数示例MyDate = October 19

6、, 1962 定义日期。 MyShortDate = CDate(MyDate) 转换为日期数据类型。 MyTime = 4:35:47 PM 定义时间。 MyShortTime = CDate(MyTime) 转换为日期数据类型。7、CInt 函数示例Dim MyDouble, MyIntMyDouble = 2345.5678 MyDouble 是 Double。MyInt = CInt(MyDouble) MyInt 包含 2346。8、CLng 函数示例Dim MyVal1, MyVal2, MyLong1, MyLong2MyVal1 = 25427.45: MyVal2 = 254

7、27.55 MyVal1, MyVal2 是双精度值。MyLong1 = CLng(MyVal1) MyLong1 25427。MyLong2 = CLng(MyVal2) MyLong2 包含 25428 。9、CBool 函数示例Dim A, B, CheckA = 5: B = 5 初始化变量。Check = CBool(A = B) 复选框设为 True 。A = 0 定义变量。 Check = CBool(A) 复选框设为 False 。 xmuer 发表于 2007-12-29 12:51ASP之字符串函数示例ASP之字符串函数示例用字符串函数对字符串进行截头去尾、大小写替换等操作

8、。函数 语法 功能 Len Len(string|varname) 返回字符串内字符的数目，或是存储一变量所需的字节数。 Trim Trim(string) 将字符串前后的空格去掉 Ltrim Ltrim(string) 将字符串前面的空格去掉 Rtrim Rtrim(string) 将字符串后面的空格去掉 Mid Mid(string,start,length) 从string字符串的start字符开始取得length长度的字符串，如果省略第三个参数表示从start字符开始到字符串结尾的字符串 Left Left(string,length) 从string字符串的左边取得length长度的

9、字符串 Right Right(string,length) 从string字符串的右边取得length长度的字符串 LCase LCase(string) 将string字符串里的所有大写字母转化为小写字母 UCase UCase(string) 将string字符串里的所有大写字母转化为大写字母 StrComp StrComp(string1,string2，compare) 返回string1字符串与string2字符串的比较结果，如果两个字符串相同，则返回0，如果小于则返回-1，如果大于则返回1 InStr InStr(string1,string2, compare) 返回strin

10、g1字符串在string2字符串中第一次出现的位置 Split Split(string1,delimiter, count, start) 将字符串根据delimiter拆分成一维数组，其中delimiter用于标识子字符串界限。如果省略，使用空格()作为分隔符。count 返回的子字符串数目，-1 指示返回所有子字符串。start为 1 执行文本比较；如果为 0 或者省略执行二进制比较。Replace Replace(expression, find, replacewith, compare, count, start) 返回字符串，其中指定数目的某子字符串(find)被替换为另一个子字

11、符串(replacewith)。 1、Len函数示例：下面的示例利用 Len 函数返回字符串中的字符数目：Dim MyStringMyString = Len(VBSCRIPT) MyString 包含 8。2、Trim、Ltrim、Rtrim函数示例：下面的示例利用 LTrim, RTrim, 和 Trim 函数分别用来除去字符串开始的空格、尾部空格、 开始和尾部空格：Dim MyVarMyVar = LTrim( vbscript ) MyVar 包含 vbscript 。MyVar = RTrim( vbscript ) MyVar 包含 vbscript。MyVar = Trim( v

12、bscript ) MyVar 包含vbscript。3、Mid函数示例：下面的示例利用 Mid 函数返回字符串中从第四个字符开始的六个字符：Dim MyVarMyVar = Mid(VB脚本is fun!, 4, 6) MyVar 包含 Script。4、Left函数示例：下面的示例利用Left 函数返回MyString 的左边三个字母：Dim MyString, LeftStringMyString = VBSCriptLeftString = Left(MyString, 3) LeftString 包含 VBS5、Right函数示例：下面的示例利用 Right 函数从字符串右边返回指定

13、数目的字符：Dim AnyString, MyStrAnyString = Hello World 定义字符串。MyStr = Right(AnyString, 1) 返回 d。MyStr = Right(AnyString, 6) 返回 World。MyStr = Right(AnyString, 20) 返回 Hello World。6、LCase函数示例：下面的示例利用 LCase 函数把大写字母转换为小写字母：Dim MyStringDim LCaseStringMyString = VBSCriptLCaseString = LCase(MyString) LCaseString 包

14、含 vbscript。7、 UCase函数示例：下面的示例利用 UCase 函数返回字符串的大写形式：Dim MyWordMyWord = UCase(Hello World) 返回HELLO WORLD。8、StrComp函数示例：下面的示例利用 StrComp 函数返回字符串比较的结果。如果第三个参数为 1 执行文本比较；如果第三个参数为 0 或者省略执行二进制比较。Dim MyStr1, MyStr2, MyCompMyStr1 = ABCD: MyStr2 = abcd 定义变量。MyComp = StrComp(MyStr1, MyStr2, 1) 返回 0。MyComp = Str

15、Comp(MyStr1, MyStr2, 0) 返回 -1。MyComp = StrComp(MyStr2, MyStr1) 返回 1。9、InStr示例：下面的示例利用 InStr 搜索字符串：Dim SearchString, SearchChar, MyPosSearchString =XXpXXpXXPXXP?SearchChar = P?MyPos = Instr(SearchString, SearchChar)?返回 9.注意：返回的不是一个字符串在另一个字符串中第一次出现的字符位置，而是字节位置。10、Split函数示例：Dim MyString, MyArray, MsgMy

16、String = VBScriptXisXfun!MyArray = Split(MyString, x,-1,1) MyArray(0) contains VBScript. MyArray(1) contains is. MyArray(2) contains fun!.Response.Write(MyArray(0)11、Replace函数示例：Replace(ABCD, BC, 12) 得到A12Ditalic 本帖最后由 xmuer 于 2007-12-29 12:52 编辑 /italic xmuer 发表于 2007-12-29 12:54ASP之日期和时间函数示例可以使用日期

17、和时间函数来得到各种格式的日期和时间函数 语法 说明 示例 Now Now() 取得系统当前的日期和时间 Dim MyVar MyVar = Now MyVar 包含当前的日期和时间。 Date Date() 取得系统当前的日期 Dim MyDate MyDate = Date MyDate 包含当前系统日期。 Time Time() 取得系统当前的时间 Dim MyTime MyTime = Time 返回当前系统时间。 Year Year(Date) 取得给定日期的年份 Dim MyDate, MyYearMyDate = #October 19, 1962# 分派一日期。MyYear =

18、 Year(MyDate) MyYear 包含 1962。 Month Month(Date) 取得给定日期的月份 Dim MyVar MyVar = Month(Now) MyVar包含当前月对应的数字。 Day Day(Date) 取得给定日期是几号 Dim MyDay MyDay = Day(October 19, 1962) MyDay包含 19。 Hour Hour(time) 取得给定时间是第几小时 Dim MyTime, MyHourMyTime = Now MyHour = Hour(MyTime) MyHour 包含代表当前时间的数值。 Minute Minute(time)

19、 取得给定时间是第几分钟 Dim MyVarMyVar = Minute(Now) Second Second(time) 取得给守时间是第几秒 Dim MySecMySec = Second(Now) MySec 包含代表当前秒的数字。 WeekDay WeekDay(Date) 取得给定日期是星期几的整数，1表示星期日，2表示星期一，依此类推 Dim MyDate, MyWeekDayMyDate = #October 19, 1962# 分派日期MyWeekDay = Weekday(MyDate) MyWeekDay 包含 6,MyDate 代表星期五 DateDiff DateDiff(Var,Var1,Var2)Var:日期或时间间隔因子，有如下参数：yyyy 年 m月 d 日 ww星期 h小时 s秒 Var1:第一个日期或时间Var2:第二个日期或时间，比Var1晚