[转]VBA字符串处理（1）
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语句指定比较方式。
vb 字符串转数组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函数的返回值为：如果String1<String2，则返回值为-1；如果String1=String2，则返回值为0；如果String1>String2，则返回值为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)<UCase(sString2) Then
比使用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)
Next
End Sub
下面的例子将句子中每个词语的首字母转换为大写：
Sub testConverseString2()
Debug.Print StrConv('my book is this book.', vbProperCase)
End Sub
程序运行后，在VBE窗口中的立即窗口中将会看到上述结果。
下面的示例演示了如何把一个字符串转换为字节数组，以便使用在API函数调用中：
Sub Test()
Dim byArray() As Byte
Dim sString As String
sString = 'Some stuff'
byArray = StrConv(sString, vbFromUnicode)
End Sub
StrConv函数将下面的字符看成是字的分隔符：
Null：Chr$(0)
水平制表符：Chr$(9)
换行符：Chr$(10)
垂直制表符：Chr$(11)
换页符：Chr$(12)
回车符：Chr$(13)
空格：Chr$(32)
[编程方法和技巧] 在使用API时该函数很重要，很多程序调用都要求传递给它们Unicode字符，或者赋给返回变量Unicode字符。
2.2.2 Str函数
将数值转换成字符串，即返回代表一个数值的字符串。其语法为：
Str(number)
当一个数字转成字符串时，总会在前面保留一个空位来表示正负，即字符串的第一位一定是空格或正负号。如果参数number为正，返回的字符串前面包含一空格。Str函数将句点(.)作为有效的小数点。示例如下：
MyString = Str(459)    ' 返回 ' 459'
MyString = Str(-459.65)   ' 返回 '-459.65'
MyString = Str(459.001)    ' 返回 ' 459.001'
[编程方法和技巧] 使用LTrim函数可删除Str函数在返回的字符串开头添加的前导空格。此外，CStr函数和Format函数已经取代了Str函数，CStr函数不用为正数的符号而添加前导空格，Format函数能够用来识别小数点。
2.2.3 CStr函数
CStr将数值表达式转换成String数据类型。示例如下：
MyDouble = 437.324   ' MyDouble 为 Double 类型
MyString = CStr(MyDouble)    ' MyString 的内容为'437.324'

版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。