VB字符串函数(带目录)

目录 11. Asc,Chr函数 12. Len函数 13. Mid函数 24. Replace函数 25. StrReverse函数 26. Ucase，Lcase函数 37. InStr函数 38. Mid函数 39. InStrRev函数 410. Left,Right函数 411. Ucase,Lcase函数 412. Trim、Ltrim、Rtrim 513. String函数 514. Space函数 515. Strconv函数 516. Split 函数 617. StrComp函数 VB字符串函数集 1. Asc,Chr函数 [说明]： 转换字符字符码 [格式]： P=Asc(X) 返回字符串X的第一个字符的字符码 P=Chr(X) 返回字符码等于X的字符 [范例]： (1)P=Chr(65)    ‘ 输出字符A,因为A的ASCII码等于65    (2)P=Asc(“A”)   ‘ 输出65    2. Len函数 [格式]： P=Len(X) [说明]： 计算字符串X的长度，空字符串长度为0，空格符也算一个字符，一个中文字虽然占用2 Bytes，但也算一个字符。 [范例]： (1) 令X=”” (空字符串) Len(X) 输出结果为0 (2) 令X=”abcd” Len(X) 输出结果为4 (3) 令X=”VB教程” Len(X) 输出结果为4 3. Mid函数 [格式]： P=Mid(X,n) 由X的第n个字符读起，读取后面的所有字符。 P=Mid(X,n,m) 由X的第n个字符读起，读取后面的m个字符。 [说明]： 读取字符串X中间的字符 [范例]：    (1) X=”abcdefg” P=Mid(X,5) 结果为：P=”efg” (2) X=”abcdefg” P=Mid(X,2,4) 结果为P=”bcde” 4. Replace函数 [格式]： P=Replace(X,S,R) [说明]：将字符串X中的字符串S替换为字符串R，然后返回。 [范例]： X=”VB is very good” P=Replace(X,good,nice) 5. 输出结果为：P=”VB is very nice” 6. StrReverse函数 [格式]： P=StrReverse(X) [说明]： 返回X参数反转后的字符串 [范例]： （1）X=”abc” P=StrReverse(X) 输出结果：P=”cba” 7. Ucase，Lcase函数 [格式]： P=Lcase(X) ‘ 将X字符串中的大写字母转换成小写 P=Ucase(X) ‘ 将X字符串中的小写字母转换成大写 [说明]： 除了英文字母外，其他字符或中文字都不会受到影响。 [范例]： （1） 令 X=”VB and VC”    则Lcase(X)的结果为”vb and vc”，Ucase(X)的结果为”VB AND VC” 8. InStr函数 [格式]： P=InStr(X,Y) 从X第一个字符起找出Y出现的位置 P=InStr(n,X,Y)    从X第n个字符起找出Y出现的位置 [说明]： · 若在X中找到Y，则返回值是Y第一个字符出现在X中的位置。 · InStr(X,Y)相当于InStr(1,X,Y)。 · 若字符串长度，或X为空字符串，或在X中找不到Y，则都返回0。 · 若Y为空字符串，则返回0。 [范例]： instr(1,"小欣无敌","小") 则返回 1,instr(2,"小欣无敌","小")，则返回 0 。 0 示未找到 9. Mid函数 [格式]： mid(字符串，从第几个开始，长度) [说明]： 在[字符串]中[从第几个开始]取出[长度个字符串] [范例]： mid("小欣无敌",1,3) 则返回 "小欣无" 10. InStrRev函数 [格式]： InStrRev(字符串1,字符串2,从第几个开始) [说明]： 从规定的位置开始，从后住前查找，返回字符串2在字符串1中的位置，此处注意，虽是从后住前查找，但是返回的值还是从前往后算的。 [范例]： instrRev("小欣无敌","小",2) 则返回 2 ; instrRev("小欣无敌","欣",1) 则返回 0 ,因为它从"小欣无敌"的第1个字开始往前查找，所以找不到 。0 表示未找到 11. Left,Right函数 [格式]： Right (字符串,长度) Left(字符串,长度) [说明]： 从[字符串]的左边（右边）开始返回[长度]个字符 [范例]： Left("小欣无敌,3) 则返回 "小欣无" [范例]： Right("小欣无敌",3) 则返回 "欣无敌" 12. Ucase,Lcase函数 [格式]： Ucase(字符串) Lcase(字符串) [说明]： 返回[字符串]的大写（小写）形式，只对英文字符有效 [范例]： ucase("xiaoXINwuDi") 则返回 "XIAOXINWUDI" [范例]： lcase("xiaoXINwuDi") 则返回 "xiaoxinwudi" 13. Trim、Ltrim、Rtrim [格式]： Trim (字符串) Ltrim(字符串) Rtrim (字符串) [说明]： · Trim(字符串) Byval 返回去掉了前、后之后的[字符串] · Ltrim(字符串) Byval 返回去掉了字符串前面的[字符串] · Rtrim(字符串) Byval 返回去掉了字符串后面后的[字符串] [范例]： trim("     小 欣    无敌    ") 则返回 "小 欣    无敌" ，中间的空格不受任何影响 14. String函数 [格式]： string(个数,字符) [说明]： 返回[个数]个字符 [范例]： string(3,"小") 则返回 "小小小" , 而 string(3,"小欣无敌") 也返回 "小"，只有首字符才有效 15. Space函数 [格式]： space(个数) [说明]： 返回[个数]个空格 [范例]： space(5) 则返回 "      " 16. Strconv函数 [格式]： strconv(字符串,转换的类型) [说明]： 将字符串转成指定的类型。常用的类型只有两个,vbwide 半角转成全角,vbNarrow 全角转成半角 [范例]： strconv("xiao",vbwide) 则返回 "ＸＩＡＯ",而strconv("ＸＩＡＯ",vbnarrow) 则返回 "XIAO" '备注 vbwide = 4 ,vbnarrow = 8 17. Split 函数 [格式]： Split(string1,delimiter[, count[, start]]) [说明]： 将字符串根据delimiter拆分成一维数组，其中delimiter用于标识子字符串界限。如果省略，使用空格("")作为分隔符。 count 返回的子字符串数目，-1 指示返回所有子字符串。 start为 1 执行文本比较；如果为 0 或者省略执行二进制比较。   [范例]： Dim MyString, MyArray, Msg MyString = "VBScriptXisXfun!" MyArray = Split(MyString, "x",-1,1) Response.Write(MyArray(0)) 18. StrComp函数 [格式]： StrComp(MyStr1, MyStr2, 1)  [说明]： StrComp 函数返回字符串比较的结果。如果第三个参数为 1 执行文本比较；如果第三个参数为 0 或者省略执行二进制比较。 [范例]： Dim MyStr1, MyStr2, MyComp MyStr1 = "ABCD": MyStr2 = "abcd"        '定义变量。 MyComp = StrComp(MyStr1, MyStr2, 1)     ' 返回 0。 MyComp = StrComp(MyStr1, MyStr2, 0)     ' 返回 -1。 MyComp = StrComp(MyStr2, MyStr1)        ' 返回 1。 PAGE