VB常用字符串操作函数2009/11/25 18:321. ASC(X，Chr(X：转换字符字符码[格式]： P=Asc(X 返回字符串X的第一个字符的字符码 P=Chr(X 返回字符码等于X的字符 [范例]：(1P=Chr(65 ‘ 输出字符A,因为A的ASCII码等于65(2P=Asc(“A” ‘ 输出65 2. Len(X：计算字符串X的长度 [格式]： P=Len(X [说明]：空字符串长度为0，空格符也算一个字符，一个中文字虽然占用2 Bytes，但也算一个字符。
[范例]： (1 令X=”” (空字符串 Len(X 输出结果为0 (2 令X=”abcd”Len(X 输出结果为4 (3 令X=”VB教程” Len(X 输出结果为4 3. 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” 4. R eplace: 将字符串中的某些特定字符串替换为其他字符串 [格式]：P=Replace(X,S,R [说明]：将字符串X中的字符串S替换为字符串R，然后返回。
[范例]：X=”VB is very good” P=Replace(X,good,nice 输出结果为：P=”VB is very nice” 5. StrReverse：反转字符串 [格式]： P=StrReverse(X [说明]：返回X参数反转后的字符串 [范例]：（1）X=”abc” P=StrReverse(X 输出结果：P=”cba” 6.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” 7. InStr函数：寻找字符串 [格式]： P=InStr(X,Y 从X第一个字符起找出Y出现的位置P=InStr(n,X,Y 从X第n个字符起找出Y出现的位置 [说明]：（1）若在X中找到Y，则返回值是Y第一个字符出现在X中的位置。
（2） InStr(X,Y相当于InStr(1,X,Y。
（3）若字符串长度，或X为空字符串，或在X中找不到Y，则都返回0。
（4）若Y为空字符串，则返回0。
---------------------------------------------------------------------------------------------- mid(字符串，从第几个开始，长度 ByRef 在[字符串]中[从第几个开始]取出[长度个字符串] 例如 mid("小欣无敌",1,3 则返回 "小欣无" instr(从第几个开始,字符串1,字符串2 ByVal 从规定的位置开始查找，返回字符串2在字符串1中的位置例如 instr(1,"小欣无敌","小" 则返回 1,instr(2,"小欣无敌","小"，则返回 0 。
0 表示未找到 InStrRev(字符串1,字符串2,从第几个开始 ByVal 从规定的位置开始，从后住前查找，返回字符串2在字符串1中的位置，此处注意，虽是从后住前查找，但是返回的值还是从前往后算的。
例如 instrRev("小欣无敌","小",2 则返回 2 ; instrRev("小欣无敌","欣",1 则返回 0 ,因为它从"小欣无敌"的第1个字开始往前查找，所以找不到。
0 表示未找到中国自学编程网 left(字符串,长度 ByVal 从[字符串]的左边开始返回[长度]个字符例如 Left("小欣无敌,3 则返回 "小欣无" right(字符串,长度 ByVal 从[字符串]的右边开始返回[长度]个字符例如 Right("小欣无敌",3 则返回 "欣无敌" ucase(字符串 ByVal 返回[字符串]的大写形式，只对英文字符有效例如ucase("xiaoXINwuDi" 则返回 "XIAOXINWUDI" lcase(字符串 ByVal 返回[字符串]的小写形式，只对英文字符有效例如 lcase("xiaoXINwuDi" 则返回 "xiaoxinwudi"asc(字符 Byval返回[字符]的ascii编码，若有多个字符，则只返回首字符的ascii编码,和Chr(函数是一个可逆的过程例如 asc("小" 则返回 -12127 ; asc("小欣无敌" 也返回 -12127 chr(ASCii编码 Byval 返回[Ascii]编码所代表的字符，和Chr(函数是一个可逆的过程例如 chr(-12127 则返回 "小" ；chr(asc("小" 则返回"小"(这里是为了说明asc和chr的可逆性，例用此特性可以加密文本 trim(字符串 Byval 返回去掉了前、后之后的[字符串] 例如 trim(" 小欣无敌 " 则返回 "小欣无敌" ，中间的空格不受任何影响 string(个数,字符 Byval 返回[个数]个[字符] 例如 string(3,"小" 则返回 "小小小" , 而 string(3,"小欣无敌" 也返回 "小"，只有首字符才有效 space(个数 Byval 返回[个数]个空格例如 space(5 则返回 " " strconv(字符串,转换的类型 Byval 将字符串转成指定的类型。
常用的类型只有两个,vbwide 半角转成全角,vbNarrow 全角转成半角例如 strconv("xiao",vbwide 则返回 "ＸＩＡＯ",而strconv("ＸＩＡＯ",vbnarrow 则返回 "XIAO" '备注 vbwide = 4 ,vbnarrow = 8 len(字符串 Byval 返回[字符串]的长度例如 len("小欣无敌" 则返回 4 ------------------------------------------------------------------------------------------ Len Len(string|varname 返回字符串内字符的数目，或是存储一变量所需的字节数 Trim Trim(string 将字符串前后的空格去掉 Ltrim Ltrim(string 将字符串前面的空格去掉 Rtrim Rtrim(string 将字符串后面的空格去掉 MidMid(string,start,length 从string字符串的start字符开始取得length长度的字符串，如果省略第三个参数表示从start字符开始到字符串结尾的字符串 LeftLeft(string,length 从string字符串的左边取得length长度的字符串 RightRight(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] 返回string1字符串在string2字符串中第一次出现的位置 Split Split(string1,delimiter[, count[, start]] 将字符串根据delimiter拆分成一维数组，其中delimiter用于标识子字符串界限。
如果省略，使用空格(""作为分隔符。
count 返回的子字符串数目，-1 指示返回所有子字符串。
start 为 1 执行文本比较；如果为 0 或者省略执行二进制比较。
ReplaceReplace(expression, find, replacewith[, compare[, count[, start]]] 返回字符串，其中指定数目的某子字符串(find被替换为另一个子字符串(replacewith [示例：] 1、Len函数示例：下面的示例利用 Len 函数返回字符串中的字符数目： Dim MyString MyString = Len("VBSCRIPT" 'MyString 包含 8。
2、Trim、Ltrim、Rtrim函数示例：下面的示例利用 LTrim, RTrim, 和 Trim 函数分别用来除去字符串开始的空格、尾部空格、开始和尾部空格： Dim MyVar MyVar = LTrim(" vbscript " 'MyVar 包含 "vbscript "。
MyVar = RTrim(" vbscript " 'MyVar 包含 " vbscript"。
MyVar = Trim(" vbscript " 'MyVar 包含"vbscript"。
3、Mid函数示例：下面的示例利用 Mid 函数返回字符串中从第四个字符开始的六个字符： Dim MyVar MyVar = Mid("VB 脚本is fun!", 4, 6 'MyVar 包含 "Script"。