VB常用字符串函数

1、VB 常用字符串函数 (1作者:来源:发布时间:07-11-03 浏览:12899 次PART 11. ASC (X, Chr(X:转换字符字符码格式 :P=Asc(X 返回字符串 X 的第一个字符的字符码P=Chr(X 返回字符码等于 X 的字符范例 :(1P=Chr(65 输出字符 A, 因为 A 的 ASCII 码等于 65(2P=Asc(“A” 输出 652. Len (X:计算字符串 X 的长度格式 :P=Len(X说明 :空字符串长度为 0, 空格符也算一个字符, 一个中文字虽然占用 2 Bytes, 但也算一个字符。范例 :(1 令 X=” (空字符串 Len(X 输出结果为 0

2、(2 令 X=”abcd”Len(X 输出结果为 4(3 令 X=”VB 教程 ”Len(X 输出结果为 43. 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. Replace : 将字符串中的某些特定字符串替换为其他字符串 格式 :P=Replace(X,S,R说明 :将字符串 X 中的字符串

3、 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 字符串中的小写字母转换成大写说明 :除了英文字母外,其他字符或中文字都不会受到影

4、响。范例 :(1 令 X=”VB and VC”则 Lcase(X的结果为 ”vb and vc” , Ucase(X的结果为 ”VB AND VC”7. InStr 函数:寻找字符串格式 :P=InStr(X,Y Page从 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。-PA

5、RT 2mid(字符串,从第几个开始,长度 ByRef 在 字符串 中 从第几个开始 取出 长度个字符 串 例如 mid("小欣无敌 ",1,3 则返回 " 小欣无 "instr(从第几个开始 , 字符串 1, 字符串 2 ByV al 从规定的位置开始查找, 返回字符串 2在字 符串 1中的位置例如 instr(1,"小欣无敌 "," 小 " 则返回 1,instr(2,"小欣无敌 "," 小 " ,则返回 0 。 0 表示未找 到InStrRev(字符串 1, 字符串 2

6、, 从第几个开始 ByVal 从规定的位置开始,从后住前查找,返回 字符串 2在字符串 1中的位置, 此处注意, 虽是从后住前查找, 但是返回的值还是从前往后 算的。例如 instrRev("小欣无敌 "," 小 ",2 则返回 2 ; instrRev("小欣无敌 "," 欣 ",1 则返回 0 , 因为它 从 " 小欣无敌 " 的第 1个字开始往前查找,所以找不到 。 0 表示未找到left(字符串 , 长度 ByVal 从 字符串 的左边开始返回 长度 个字符例如 Left("小

7、欣无敌 ,3 则返回 " 小欣无 "right(字符串 , 长度 ByVal 从 字符串 的右边开始返回 长度 个字符例如 Right("小欣无敌 ",3 则返回 " 欣无敌 "ucase(字符串 ByVal 返回 字符串 的大写形式,只对英文字符有效例如 ucase("xiaoXINwuDi" 则返回 "XIAOXINWUDI"lcase(字符串 ByVal 返回 字符串 的小写形式,只对英文字符有效例如 lcase("xiaoXINwuDi" 则返回 "xiao

8、xinwudi"asc(字符 Byval返回 字符 的 ascii 编码, 若有多个字符, 则只返回首字符的 ascii 编码 , 和 Chr(函数是一个可逆的过程例如 asc("小 " 则返回 -12127 ; asc("小欣无敌 " 也返回 -12127chr(ASCii编码 Byval 返回 Ascii编码所代表的字符,和 Chr(函数是一个可逆的过程 例如 chr(-12127 则返回 " 小 " ; chr(asc("小 " 则返回 " 小 "(这里是为了说明 asc 和 c

9、hr 的可 逆性,例用此特性可以加密文本 trim(字符串 Byval 返回去掉了前、后之后的 字符串 例如 trim(" 小 欣 无敌 " 则返回 " 小 欣 无敌 " ,中间的空格不受任何影响 string(个数 , 字符 Byval 返回 个数 个 字符 例如 string(3,"小 " 则返回 " 小小小 " , 而 string(3,"小欣无敌 " 也返回 " 小 " ,只有首字符才 有效space(个数 Byval 返回 个数 个空格例如 space(5 则返回

10、" "strconv(字符串 , 转换的类型 Byval 将字符串转成指定的类型。常用的类型只有两个 ,vbwide 半角转成全角 ,vbNarrow 全角转成半角 Page例如 strconv("xiao",vbwide 则返回 " XIAO ", 而 strconv("XIAO ",vbnarrow 则返回 "XIAO"' 备注 vbwide = 4 ,vbnarrow = 8len(字符串 Byval 返回 字符串 的长度例如 len("小欣无敌 " 则返回 4

11、-PART 3Len 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 长度的字

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

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

14、数目的某子字符串 (find被替换为另一个子字符串 (replacewith示例:1、 Len 函数示例:下面的示例利用 Len 函数返回字符串中的字符数目:Dim MyStringMyString = Len("VBSCRIPT" 'MyString 包含 8。2、 Trim 、 Ltrim 、 Rtrim 函数示例:下面的示例利用 LTrim, RTrim, 和 Trim 函数分别用来除去字符串开始的空格、尾部空格、 开始和尾部空格:Dim MyVarMyVar = LTrim(" vbscript " 'MyVar 包含 "

15、;vbscript "。MyVar = RTrim(" vbscript " 'MyVar 包含 " vbscript" 。MyVar = Trim(" vbscript " 'MyVar 包含 "vbscript" 。3、 Mid 函数示例:下面的示例利用 Mid 函数返回字符串中从第四个字符开始的六个字符:Dim MyVarMyVar = Mid("VB脚本 is fun!", 4, 6 'MyVar 包含 "Script" 。4、 Le

16、ft 函数示例:下面的示例利用 Left 函数返回 MyString 的左边三个字母:Dim MyString, LeftStringMyString = "VBSCript"LeftString = Left(MyString, 3 'LeftString 包含 "VBSPage5、 Right 函数示例:下面的示例利用 Right 函数从字符串右边返回指定数目的字符:Dim AnyString, MyStrAnyString = "Hello World" ' 定义字符串。MyStr = Right(AnyString, 1

17、 ' 返回 "d" 。MyStr = Right(AnyString, 6 ' 返回 " World"。MyStr = Right(AnyString, 20 ' 返回 "Hello World"。6、 LCase 函数示例:下面的示例利用 LCase 函数把大写字母转换为小写字母:Dim MyStringDim LCaseStringMyString = "VBSCript"LCaseString = LCase(MyString ' LCaseString 包含 "vb

18、script" 。7、 UCase 函数示例:下面的示例利用 UCase 函数返回字符串的大写形式:Dim MyWordMyWord = UCase("Hello World" ' 返回 "HELLO WORLD"。8、 StrComp 函数示例:下面的示例利用 StrComp 函数返回字符串比较的结果。如果第三个参数为 1 执行文本比 较；如果第三个参数为 0 或者省略执行二进制比较。 Dim MyStr1, MyStr2, MyComp MyStr1 = "ABCD": MyStr2 = "abcd&q

19、uot; '定义变量。 MyComp = StrComp(MyStr1, MyStr2, 1 ' 返回 0。 MyComp = StrComp(MyStr1, MyStr2, 0 ' 返回 -1。 MyComp = StrComp(MyStr2, MyStr1 ' 返回 1。 9、InStr 示例： 下面的示例利用 InStr 搜索字符串： Dim SearchString, SearchChar, MyPos SearchString ="XXpXXpXXPXXP"? SearchChar = "P"? MyPos =

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

21、9; MyArray(2 contains "fun!". Response.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=97 x=Asc（"ab"），则，x=97 3String$（个数，字符） 用于重复某一个字符。 说明： （1）“个数”用来指定重复的次数。 （2）若“字符”为一字符串，则只重复复制第一个字符。 4Len（字符串） 函数 用于返回字符串的长度。Page 5Left$（字符串，字符个