VBA,字符串处理大全

1 VBA中的字符串

2 VBA中处理字符串的函数

2.1 比较字符串

2.2 转换字符串

2.3 创建字符串

2.4 获取字符串的长度

2.5 格式化字符串

2.6 查找字符串

2.7 提取字符/字符串

2.8 删除空格

2.9 返回字符代码

2.10 返回数值代表的相应字符

2.11 使用字节的函数

2.12 返回数组的函数

2.13 连接字符串

2.14 替换字符串

2.15 反向字符串

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

1 VBA中的字符串

VBA不仅可以处理数字，也可以处理文本(字符串)。VBA提供了两类字符串：

一类为固定长度的字符串，声明时包含指字的字符数。例如，下面的语句

Dim strFixedLong As String*100

声明字符串变量后，无论赋予该变量多少个字符，总是只包含100个字符，但字符串最长不超过65526个字符，且需要使用Trim函数去掉字符串中多余的空格。定长字符串只有在必要时才使用。

另一类为动态字符串。例如，声明字符串变量Dim strDynamic As String后，可以给该变量任意赋值，最多可包含20亿个字符。

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

2 VBA中处理字符串的函数

2.1 比较字符串

通常，在VBA中进行字符串比较时，会用到比较运算符(如=、>等)、Like运算符和StrComp 函数。此外，在模块的开头用Option Compare语句指定比较方式。

2.1.1 比较运算符

可以采用简单的逻辑运算符进行两个字符串的比较，即<(小于)、<=(小于或等于)、>(大于)、>=(大于或等于)、=(等于)、<>(不等于)。此外，还可以使用Like运算符进行比较。2.1.2 StrComp函数

StrComp函数返回字符串比较的结果。其语法为：

StrComp(string1,string2[,compare])

其中，参数string1和strng2为必需的参数，可以是任何有效的字符串表达式。

参数Compare为可选参数，如果该参数为Null，将发生错误。如果参数Compare设置为常数vbUseCompareOption或-1或忽略该参数，将使用Option Compare语句设置进行比较；如果忽略该参数且没有设置Option Compare语句，则按二进制进行比较；如果参数Compare 设置为常数vbBinaryCompare或0，则用二进制进行比较；如果参数Compare设置为常数vbTextCompare或1，则按文本进行比较；如果参数Compare设置为常数vbDatabaseCompare

或2，此时仅适用于Microsoft Access，进行基于数据库信息的比较。

StrComp函数的返回值为：如果String1String2，则返回值为1；如果String1或String2为Null，则返回值为Null。

看看下面的示例：

Sub testStringCompare()

Dim MyStr1 As String, MyStr2 As String, MyComp1, MyComp2, MyComp3, MyComp4 MyStr1 = "ABCD"

MyStr2 = "abcd"

MyComp1 = StrComp(MyStr1, MyStr2, 1) ' 返回0

MyComp2 = StrComp(MyStr1, MyStr2, 0) ' 返回-1

MyComp3 = StrComp(MyStr1, MyStr2) ' 返回-1

MyComp4 = StrComp(MyStr2, MyStr1) '返回1

MsgBox "StrComp(MyStr1, MyStr2, 1)的结果为:" & MyComp1

MsgBox "StrComp(MyStr1, MyStr2, 0)的结果为:" & MyComp2

MsgBox "StrComp(MyStr1, MyStr2)的结果为:" & MyComp3

MsgBox "StrComp(MyStr2, MyStr1)的结果为:" & MyComp4

End Sub

示例说明：如果StrComp函数的第三个参数值为1，则以文本比较的方式进行字符串比较；如果第三个参数值为0或忽略该参数，则以二进制比较的方式进行字符串比较。注意，文本比较的方式不区分字母大小写，而二进制比较方式则区分大小写。

[编程方法和技巧] 完成一次简单的单一比较，如

If UCase(sString1)

比使用StrComp函数：

If StrComp(sString1,sString2,vbTextCompare)=-1 Then

在性能上要提高30%，且更容易阅读和理解。

2.2 转换字符串

2.2.1 StrConv函数

使用StrConv函数来按指定类型转换字符串。其语法为：

StrConv(string,conversion,LCID)

其中，参数string为要转换的字符串，参数conversion为指定转换的类型，参数LCID为可选参数。

如果将参数conversion设置为vbUpperCase或1，则将字符串转换成大写；设置为vbLowerCase或2，则将字符串转换成小写；设置为vbProperCase或3，则将字符串中每个字的开头字母转换成大写；设置为vbUnicode或64，则根据系统的缺省码页将字符串转换成Unicode；设置为vbFromUnicode或128，则将字符串由Unicode转换成系统的缺省码页。在将ANSI格式的Byte数组转换成字符串时，应使用StrConv函数；转换Unicode格式的数组时，使用赋值语句。下面的例子使用StrConv函数将Unicode字符串转换成ANSI字符串：Sub testConverseString()

Dim i As Long

Dim x() As Byte

x = StrConv("ABCDEFG", vbFromUnicode) ' 转换字符串。

For i = 0 To UBound(x)

Debug.Print x(i)