VB 字符串處理函數

1、ASC（X）：转换字符字符码

[格式]：

P=Asc(X)返回字符串X的第一个字符的字符码

[范例]：

（1）P=Asc("A") ’P=65

（2）P=Asc("AB") ’P=65

2、Chr[$](数值)函数

[格式]：

P=Chr(X)返回字符码等于X的字符

[说明]：

（1）数据范围在0到255之间

（2）chr()返回的是数据类型，chr$()返回的是字符类型。

（3）ansi是acsii的扩充，其前128个字符都与ASCII码相同。

[范例]：

（1）我们常用以下的语句加入回车换行符 chr(13)+chr(10)

（2）P=chr(65) ’P=A

3、Len（X）：计算字符串X的长度

[格式]：

P=Len(X)

[说明]：

空字符串长度为0，空格符也算一个字符，一个中文虽然占用2Bytes，但也算一个字符。

[范例]：

（1）令X=" "（空字符串）

Len(X)输出结果为0

（2）令X="abcd"

Len(X)输出结果为4

（3）令X="VB教程"

Len(X)输出结果为4

4、Mid(X)函数：读取字符串X中间的字符

[格式]：

P=Mid(X,n) ’由X的第n个字符读起，读取后面的所有字符。

P=Mid(X,n,m) ’由X的第n个字符读起，读取后面的m个字符。

[范例]：

（1）X="abcdefg"

P=Mid(X,5)

结果为：P="efg"

（2）X="abcdefg"

P=Mid(X,2,4)

结果为：P="bcde"

5、Replace：将字符串中的某些特定字符替换为其他字符串

[格式]：

P=Replace(X,S,R)

[说明]：将字符串X中的字符串S替换为字符串R，然后返回。

[范例]：

X="VB is very good"

P=Replace(X,good,nice)

结果为：P="VB is very nice"

6、StrReverse：反转字符串

[格式]：

P=StrReverse(X)

[说明]：

返回X参数反转后的字符串

[范例]：

（1）X="abc"

P=StrReverse(X)

输出的结果：P="cba"

7、Ucase(X)，Lcase(X)：转换英文字母的大小写

[格式]：

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(从第几个开始,string1,string2)

从规定的位置开始找，返回string2在string1中的位置

[说明]：

（1）若在string1中找到string2，则返回值是string1第一个字符出现在string2中的位置。

（2）InStr(string1,string2)相当于InStr(1,string1,string2)。

（3）若字符串长度，或string1为空字符串，或在string1中找不到string2，则都返回0。

（4）若string2为空字符串，则返回0。

[范例]：

P=instr(1,"小欣无敌","小") P=1，

P=instr(2,"小欣无敌","小) P=0 0表示未找到

9、InStrRev函数

[格式]：

InStrRev(字符串1,字符串2,从第几个开始)

[说明]：

从规定的位置开始，从后往前查找，返回字符串2在字符串1中的位置，此处注意，虽是从后住前查找，但是返回的值还是从前往后算的。

[范例]：

P=InStrRev("小欣无敌","小",2) P=1

P=InStrRev("小欣无敌","欣",1) P=0，因为它从"小欣无敌"的第1个字开始往前查找，所以找不到。0表示未找到。

10、left、right函数

[格式]：

left(字符串,长度)、right(字符串,长度)

[说明]：

left就是从[字符串]的左边开始返回[长度]个字符

right就是从[字符串]的右边开始返回[长度]个字符

[范例]：

Left("小欣无敌",3)则返回"小欣无"

right("小欣无敌",3)则返回"欣无敌"

11、trim、Ltrim、Rtrim函数

[格式]

trim(字符串)Byval返回去掉了前、后之后的[字符串]

例如 trim(" 小 欣 无敌 ")则返回"小 欣 无敌"，中间的空格不受任何影响

Ltrim(string)将返回去掉字符串前面的空格

Rtrim(string)将返回去掉字符串后面的空格

[范例]：

trim(" 小 欣 无敌 ")则返回"小 欣 无敌"，中间的空格不受任何影响

Ltrim(" 小 欣 无敌 ")则返回"小 欣 无敌 "，只清除左边的空格

Rtrim(" 小 欣 无敌 ")则返回" 小 欣 无敌"，只清除右边的空格

12、string函数

[格式]：

string(个数,字符)ByVal返回[个数]个[字符]

[范例]：

string(3,"小")则返回"小小小"，而string(3,"小欣无敌")也返回"小"，只有首字符才有效

13、space函数

[格式]：

space(个数)ByVal返回[个数]个空格

[范例]：

space(5)则返回" "

14、strconv函数

[格式]：

strconv(字符串,转换的类型)ByVal将字符串转成指定的类型。常用的类型只有两个，vbwide半角转成全角，vbNarrow全角转成半角

[范例]：

strconv("xiao",vbwide)则返回"ＸＩＡＯ"，而strconv("ＸＩＡＯ",vbnarrow)则返回"XIAO"

’备注 vbwide=4,vbnarrow=8

15、len函数

[格式]：

len(字符串)Byval返回[字符串]的长度

[范例]：

len("小欣无敌")则返回4

16、StrComp函数

[格式]：

StrComp(string1,string2[,compare])返回string1字符串与string2字符串的比较结果，

如果两个字符串相同，则返回0，如果小于则返回-1，如果大于则返回1；

如果compare参数为1执行文本比较，如果compare参数为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

17、Split函数

[格式]：

Split(string1,delimiter[,count[,start]])

[说明]：

将string根据delimiter拆分成一维数组，其中delimiter用于标识子字符串界限。如果省略，使用空格("")作为分隔符。

count返回的子字符串数目，-1指示返回所有子字符串。

start为1执行文本比较；如果为0或者省略执行二进制比较。

[范例]：

Dim MyString,MyArray,Msg

MyString="VBScriptXisXfun!"

MyArray=Split(MyString,"x",-1,1)

’MyArray(0) contains "VBScript"

’MyArray(1) contains "is"

MyArray(2) contains "fun!"

Response.Write(MyArray(0))

18、

CBool(expression) ’将一表达式转成 Boolean 值。如果表达式的结果为非零的值，CBool 返回 True；否则返回 False。

CByte(expression) ’将一表达式转成 Byte

CCur(expression) ’将表达式转成 Currency

CDate(expression) ’将字符串转换成 Date。一般说来，字符串格式的日期与时间硬编码（如示例中所示）并不好。较好的做法是使用日期原义表达式和时间的原义表达式（如 #2/12/1969#，#4:45:23 PM#）

CDbl(expression) ’将表达式转换为 Double 类型

CDec(expression) ’将数字值转换为 Decimal

CInt(expression) ’将一数值转换为 Integer

CLng(expression) ’将一数值转换为 Long

CSng(expression) ’将一数值转换为 Single

CStr(expression) ’将数值转换成string

CVar(expression) ’将表达式转换为 Variant

http://blog.tianya.cn/blogger/post_show.asp?BlogID=41763&PostID=14798768