VB常用字符串操作函数..pdf

《VB常用字符串操作函数..pdf》由会员分享，可在线阅读，更多相关《VB常用字符串操作函数..pdf（5页珍藏版）》请在taowenge.com淘文阁网|工程机械CAD图纸|机械工程制图|CAD装配图下载|SolidWorks_CaTia_CAD_UG_PROE_设计图分享下载上搜索。

1、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教程

2、”Len(X 输出结果为 4 3.Mid(X函数：读取字符串 X中间的字符 格式：P=Mid(X,n 由 X的第 n个字符读起，读取后面的所有字符。P=Mid(X,n,m 由 X的第 n个字符读起，读取后面的 m 个字符。范例：(1X=”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

3、,good,nice 输出结果为：P=”VB is verynice”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 andVC”则 Lcase(X的结果为”vb and vc”，Ucase(X 的结

4、果为”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(从第几个开始,

5、字符串 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(字

6、符串,长度 ByVal 从字符串的左边开始返回长度个字符 例如 Left(小欣无敌,3 则返回 小欣无 right(字符串,长度 ByVal 从字符串的右边开始返回长度个字符 例如 Right(小欣无敌,3 则返回 欣无敌ucase(字符串 ByVal 返回字符串的大写形式，只对英文字符有效 例如ucase(xiaoXINwuDi 则返回 XIAOXINWUDI lcase(字符串 ByVal 返回字符串的小写形式，只对英文字符有效 例如 lcase(xiaoXINwuDi 则返回 xiaoxinwudiasc(字符 Byval 返回字符的 ascii编码，若有多个字符，则只返回首字符的 as

7、cii编码,和 Chr(函数是一个可逆的过程 例如 asc(小 则返回-12127;asc(小欣无敌 也返回-12127 chr(ASCii 编码 Byval 返回Ascii编码所代表的字符，和 Chr(函数是一个可逆的过程 例如 chr(-12127 则返回 小；chr(asc(小 则返回小(这里是为了说明 asc和 chr 的可逆性，例用此特性可以加密文本 trim(字符串 Byval 返回去掉了前、后之后的字符串 例如 trim(小 欣 无敌 则返回 小 欣 无敌，中间的空格不受任何影响 string(个数,字符 Byval 返回个数个字符 例如 string(3,小 则返回 小小小,而

8、 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 返回字符串内字符的数目，或是存

9、储一变量所需的字节数 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字符串的右边取得 len

10、gth长度的字符串 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(string

11、1,delimiter,count,start 将字符串根据delimiter拆分成一维数组，其中 delimiter用于标识子字符串界限。如果省略，使用空格(作为分隔符。count 返回的子字符串数目，-1 指示返回所有子字符串。start为 1 执行文本比较；如果为 0 或者省略执行二进制比较。ReplaceReplace(expression,find,replacewith,compare,count,start 返回字符串，其中指定数目的某子字符串(find被替换为另一个子字符串(replacewith 示例：1、Len函数示例：下面的示例利用 Len 函数返回字符串中的字符数目：D

12、im MyStringMyString=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

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

14、回d。MyStr=Right(AnyString,6 返回 World。MyStr=Right(AnyString,20 返回 Hello World。6、LCase函数示例：下面的示例利用 LCase 函数把大写字母转换为小写字母：Dim MyString Dim LCaseString MyString=VBSCript LCaseString=LCase(MyString LCaseString 包含 vbscript。7、UCase函数示例：下面的示例利用 UCase 函数返回字符串的大写形式：Dim MyWord MyWord=UCase(HelloWorld 返回HELLO WOR

15、LD。8、StrComp 函数示例：下面的示例利用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。9、InStr示例：下面的示例利用 InStr 搜索字符串：Dim SearchString,Search

16、Char,MyPos SearchString=XXpXXpXXPXXP?SearchChar=P?MyPos=Instr(SearchString,SearchChar?返回 9.注意：返回的不是一个字符串在另一个字符串中第一次出现的字符位置，而是字节位置。10、Split 函数示例：Dim MyString,MyArray,MsgMyString=VBScriptXisXfun!MyArray=Split(MyString,x,-1,1 MyArray(0contains VBScript.MyArray(1 contains is.MyArray(2 contains fun!.Resp

17、onse.Write(MyArray(0 11、Replace函数示例：Replace(ABCD,BC,12 得到 A12D-1Chr$（数值）函数返回标准扩展码的对应字符。说明：（1）数值范围在 0 到 255 之间。（2）Chr（）返回的是数值类型，而 Chr$（）则返回字符类型。（3）ANSI是 ASCII码的扩充，其前 128 个字符都与 ASCII码相同。例如，我们常用以下的语句加入回车换行符。Chr（13）Chr（10）2Asc（字符）函数此函数用来返回字符的 ANSI码值。说明：若输入为一字符串，则只返回第一个字符的 ASCII 码值。例如，x=Asc（a），则，x=97x=As

18、c（ab），则，x=973String$（个数，字符）用于重复某一个字符。说明：（1）“个数”用来指定重复的次数。（2）若“字符”为一字符串，则只重复复制第一个字符。4Len（字符串）函数用于返回字符串的长度。5Left$（字符串，字符个数）用于返回“字符串”最左边的长度为“字符个数”的字符串。例如，Dim substr As Stringsubstr=Left（Visual Basic,3）则substr=Vis6Right$（字符串，字符个数）用于返回“字符串”最右边的长度为“字符个数”的字符串。例如，Dim substr As Stringsubstr=Right（Visual Basi

19、c,3）则substr=sic7Mid$（字符串，起始位置，字符个数）用于返回一个子字符串。说明：（1）子字符串从“起始位置”开始，以“字符个数”为长度。（2）若省略“字符个数”，则从起始位置到字符串的结尾。8Lcase（字符串）和 Ucase（字符串）函数Lcase：不论字符串中的字符为大写还是小写，一律输出为小写。Ucase：不论字符串中的字符为大写还是小写，一律输出为小写。9Ltrim（字符串）、Rtrim（字符串）、Trim（字符串）函数Ltrim（字符串）：用于去掉字符串中左边的空格。Rtrim（字符串）：用于去掉字符串中右边的空格。Trim（字符串）：用于去掉字符串中左右两边的空格。10Str（数值）函数 和 Val（字符串）函数Str（数值）：用于将数字转化为字符串。Val（字符串）：用于将字符串转化为数值。例如，Dim a As StringDim b As Longa=Str（345.45）b=Val（234.45）则a=345.45b=234.45