Visual Basic中的常用字符串函数

　　本文对Visual Basic中的常用字符串函数进行了汇总介绍，对于VB初学者来说还是非常有价值的。

　　1. ASC(X)，Chr(X)：转换字符字符码

　　[格式]：

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

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

　　[范例]：

　　(1)P=Chr(65)

　　‘ 输出字符A,因为A的ASCII码等于65

　　(2)P=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. Replace: 将字符串中的某些特定字符串替换为其他字符串

　　[格式]：

　　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) 则返回 "XIAO",而strconv("XIAO",vbnarrow) 则返回 "XIAO"

　　'备注 vbwide = 4 ,vbnarrow = 8

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

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

　　------------------------------------------------------------------------------------------

　　Len 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长度的字符串

　　Right Right(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 或者省略执行二进制比较。

　　Replace Replace(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"。

　　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) '返回 "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("Hello World") ' 返回"HELLO WORLD"。

　　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, SearchChar, MyPos 　　SearchString ="XXpXXpXXPXXP"??? 　　SearchChar = "P"?? 　　MyPos = 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". 　　' MyArray(2) contains "fun!". 　　Response.Write(MyArray(0))

　　11、Replace函数示例：

　　Replace("ABCD", "BC", "12") '得到A12D

　　------------------------------------------------------------------------------------------------

　　1.Chr[$](数值)函数

　　返回标准扩展码的对应字符。

　　说明：

　　(1)数值范围在0到255之间。

　　(2)Chr()返回的是数值类型，而Chr$()则返回字符类型。

　　(3)ANSI是ASCII码的扩充，其前128个字符都与ASCII码相同。

　　例如，我们常用以下的语句加入回车换行符。Chr(13)+Chr(10)

　　2.Asc("字符")函数

　　此函数用来返回字符的ANSI码值。

　　说明： 若输入为一字符串，则只返回第一个字符的ASCII码值。

　　例如，

　　x=Asc("a")，则， x=97

　　x=Asc("ab")，则，x=97

　　3.String[$](个数，字符)

　　用于重复某一个字符。

　　说明：

　　(1)“个数”用来指定重复的次数。

　　(2)若“字符”为一字符串，则只重复复制第一个字符。

　　4.Len(字符串) 函数

　　用于返回字符串的长度。

　　5.Left[$](字符串，字符个数)

　　用于返回“字符串”最左边的长度为“字符个数”的字符串。

　　例如，

　　Dim substr As String

　　substr=Left("Visual Basic",3)

　　则

　　substr="Vis"

　　6.Right[$](字符串，字符个数)

　　用于返回“字符串”最右边的长度为“字符个数”的字符串。

　　例如，

　　Dim substr As String

　　substr=Right("Visual Basic",3)

　　则

　　substr="sic"

　　7.Mid[$](字符串，起始位置，[字符个数])

　　用于返回一个子字符串。

　　说明：

　　(1)子字符串从“起始位置”开始，以“字符个数”为长度。

　　(2)若省略“字符个数”，则从起始位置到字符串的结尾。

　　8.Lcase(字符串)和Ucase(字符串)函数

　　Lcase：不论字符串中的字符为大写还是小写，一律输出为小写。

　　Ucase：不论字符串中的字符为大写还是小写，一律输出为小写。

　　9.Ltrim(字符串)、Rtrim(字符串)、Trim(字符串)函数

　　Ltrim(字符串)：用于去掉字符串中左边的空格。

　　Rtrim(字符串)：用于去掉字符串中右边的空格。

　　Trim(字符串)：用于去掉字符串中左右两边的空格。

　　10.Str(数值)函数 和 Val(字符串) 函数

　　Str(数值)：用于将数字转化为字符串。

　　Val(字符串)：用于将字符串转化为数值。

　　例如，

　　Dim a As String

　　Dim b As Long

　　a=Str(345.45)

　　b=Val("234.45")

　　则

　　a="345.45"

　　b=234.45