在VBA中处理字符串基本操作篇1

1、在 VBA 中处理字符串 （ 基本操作篇 1）VBA 中处理字符串的函数2.1 比较字符串通常，在 VBA 中进行字符串比较时，会用到比较运算符（如 =、>等）、Like运算符和StrComp函数。此外，在模块的开头用 OptionCompare 语句指定比较方式。2.1.1 比较运算符 可以采用简单的逻辑运算符进行两个字符串的比较，即Like 运<（小于）、<=（小于或等于）、>（大于）、>=（大于或等于）、 =（等于）、 <>（ 不等于 ）。此外，还可以使用算符进行比较。2.1.2 StrCo

2、mp 函数StrComp 函数返回字符串比较的结果。其语法为：StrComp(string1,string2,compare)其中，参数 string1 和 strng2 为必需的参数， 可以是任何有效 的字符串表达式。参数 Compare 为可选参数， 如果该参数为 Null ，将发生错误。如果参数 Compare 设置为常数 vbUseCompareOption 或-1 或 忽略该参数，将使用 OptionCompare 语句设置进行比较；如果忽略该参数且没有设置OptionCompare 语句，则按二进制进行比较；如果参数 Compare 设 置为常数 vbBinaryCompare 或

3、 0，则用二进制进行比较；如果参数 Compare 设置为常数 vbTextCompare 或 1，则按文本进行比较；如果参数 Compare 设置为常数 vbDatabaseCompare或 2 ，此时仅适用于 MicrosoftAccess,进行基于数据库信息的比较。StrComp 函数的返回值为：如果 String1<String2 ，则返回 值为-1；如果 String1=String2 ，则返回值为 0；如果String1>String2 ，则返回值为 1；如果 String1 或 String2 为Null ，则返回值为 Null 。看看下面的示例：Su

4、b testStringCompare()Dim MyStr1 As String, MyStr2 As String, MyComp1,MyComp2, MyComp3, MyComp4MyStr1 = "ABCD"MyStr2 = "abcd"MyComp1 = StrComp(MyStr1, MyStr2, 1) ' 返回MyComp2 = StrComp(MyStr1, MyStr2, 0) ' 返回0-1MyComp3 = StrComp(MyStr1,MyStr2) ' 返回-1MyComp4 = StrComp(My

5、Str2,MyStr1) '返回 1MsgBox "StrComp(MyStr1, MyStr2, 1) 的结果为 :" & MyComp1MsgBox "StrComp(MyStr1, MyStr2, 0) 的结果为 :" & MyComp2MsgBox "StrComp(MyStr1, MyStr2) 的结果为 :" & MyComp3MsgBox "StrComp(MyStr2, MyStr1) 的结果为 :" & MyComp4End

6、Sub示例说明：如果 StrComp 函数的第三个参数值为 1，则以文本比较的方式进行字符串比较；如果第三个参数值为 0 或忽 略该参数，则以二进制比较的方式进行字符串比较。注意， 文本比较的方式不区分字母大小写，而二进制比较方式则区 分大小写。 编程方法和技巧 完成一次简单的单一比较，如If UCase(sString1)<UCase(sString2) Then比使用 StrComp 函数：If StrComp(sString1,sString2,vbTextCompare)=-1 Then在性能上要提高 30%，且更容易阅读和理解。2.2 转换字符串2.2.1 StrCon

7、v 函数使用 StrConv 函数来按指定类型转换字符串。其语法为：StrConv(string,conversion,LCID)其中，参数 string 为要转换的字符串，参数 conversion 为指 定转换的类型，参数 LCID 为可选参数。如果将参数 conversion 设置为 vbUpperCase 或 1，则将字符串转换成大写；设置为 vbLowerCase 或 2，则将字符串转换成小写；设置为 vbProperCase 或 3，则将字符串中每个字的开头字母转换成大写；设置为 vbUnicode 或 64，则根据系统的缺省码页将字符串转换成 Unicode ；设置为 vbFro

8、mUnicode或 128 ，则将字符串由 Unicode 转换成系统的缺省码页。在将 ANSI 格式的 Byte 数组转换成字符串时， 应使用 StrConv函数；转换 Unicode 格式的数组时，使用赋值语句。下面的 例子使用 StrConv 函数将 Unicode 字符串转换成 ANSI 字符 串：Sub testConverseString()Dim i As LongDim x() As Bytex = StrConv("ABCDEFG", vbFromUnicode)转换字符串。For i = 0 To UBound(x)Debug.Printx(i)Next

9、End Sub面的例子将句子中每个词语的首字母转换为大写：Sub testConverseString2()Debug.Print StrConv("my book is this book.", vbProperCase)End Sub程序运行后，在 VBE 窗口中的立即窗口中将会看到上述结 果。面的示例演示了如何把一个字符串转换为字节数组，以便 使用在 API 函数调用中：Sub Test()Dim byArray() As ByteDim sString As StringsString = "Some stuff"byArray = StrCon

10、v(sString, vbFromUnicode)End SubStrConv 函数将下面的字符看成是字的分隔符：Null ：Chr$(0) 水平制表符： Chr$(9)换行符： Chr$(10)垂直制表符： Chr$(11)换页符： Chr$(12)回车符： Chr$(13)空格： Chr$(32) 编程方法和技巧 在使用 API 时该函数很重要， 很多程序调 用都要求传递给它们 Unicode 字符，或者赋给返回变量Unicode 字符。2.2.2 Str 函数 将数值转换成字符串，即返回代表一个数值的字符串。其语法为：Str(number)当一个数字转成字符串时，总会在前面保留一个空位来

11、表示 正负，即字符串的第一位一定是空格或正负号。如果参数number 为正，返回的字符串前面包含一空格。 Str 函数将句 点(.)作为有效的小数点。示例如下：MyString =Str(459) ' 返回 " 459"MyString =Str(-459.65)返回 "-459.65"MyString =Str(459.001)返回 " 459.001" 编程方法和技巧 使用 LTrim 函数可删除 Str 函数在返回的字符串开头添加的前导空格。此外，CStr函数和Format函数 已经取代了 Str 函数， CStr 函数

12、不用为正数的符号而添加前 导空格， Format 函数能够用来识别小数点。2.2.3 CStr 函数CStr 将数值表达式转换成 String 数据类型。示例如下：MyDouble = 437.324MyDouble 为 Double 类型MyString =CStr(MyDouble)MyString 的内容为 "437.324" 编程方法和技巧 传递给 CStr 的未初始化的数字数据类型 返回“0”，传递给 CStr 的未初始化的日期变量返回 “0:00:00”。2.3 创建字符串2.3.1 Space 函数 该函数返回指定数的空格的字符串。语法为：Space(numb

13、er)其中，参数 number 必须，为字符串中指定的空格数。如下例所示：Sub CreateString1()Dim MyString' 返回 10个空格的字符串。MyString = Space(10)' 将 10个空格插入两个字符串中间。MyString = "Hello" & Space(10) & "World"End Sub该函数可用于在调用外部 DLL 时建立字符串缓冲区， 特别是在调用 WindowAPI 时。此外，使用该函数还可以使字符串在特定长度的缓 冲区左对齐或右对齐。注意，如果参数

14、number 是负数，则会产生运行时错误 5：“无效的过程调用或参数” 。编程方法和技巧可以使用Space函数添加和清除存储在定长字符串中的数据，例如，下面的代码用空格填充一个定长 字符串：Dim strFixed As String * 32 strFixed = Space(Len(strFixed) 2.3.2 String 函数 该函数返回重复的字符或字符串。其语法为：String(number,character)其中，参数 number 必须，指定所返回的字符串的长度；参 数 character 必须，指定字符的字符代码或字符串表达式。例如，下面使用 String 函数生成指定长度

15、且只含单一字符的 字符串。Sub CreateString2()Dim MyStringMyString = String(5,返回 "*"MyString = String(5, 42) ' 返回MyString = String(10,"ABC")' 返回"AAAAAAAAAA"End Sub如果参数 number 包含 Null ，则返回 Null ；如果参数 character包含 Null ，则返回 Null ；参数 character 可以指定为字符串或 者是 ANSI 字符代码，如：strString1=

16、String(128, ” =”) 用” =”填充 strString2=String(128,0) 用 Chr$(0) 填充 编程方法和技巧 (1) String 函数在用于创建较长的“”，“-”，或者=”构成String函数创建一个长度合适的字符串变量，并且用诸如Chr$(0)的水平线以便给报表分段时十分有用。(2)当调用 API 函数向缓冲区写入字符串值时，首先要用 之类的单个字符来填充。2.4 获取字符串的长度可以使用 Len 函数来确定任何字符串或字符串表达式的长 度，其语法为：Len(string|varname)其中，参数 string 为任何有效的字符串表达式； 参数 varn

17、ame为任何有效的变量名称。两个参数必须取一。利用 LenB 函数可以确定存储某变量所需的实际字节数。面的示例使用 Len 函数来获取某字符串的长度 （字符数 ）或某变量的大小 （位数 ）。TypeCustomerRecord定义用户自定义的数据类型ID AsInteger将此定义放在常规模块中Name As String * 10Address AsString * 30End TypeSub GetStrLen()Dim Customer AsCustomerRecord声明变量Dim MyInt As Integer, MyCur AsCurrencyDim MyString, MyLe

18、nMyString = "HelloWorld"设置变量初值MyLen =Len(MyInt)返回 2MyLen =Len(Customer)返回 42MyLen =Len(MyString) ' 返回11MyLen =Len(MyCur) ' 返回 8EndSub此外，在需要大量判断是否为空字符串的代码中，使用Len函数也可以加快代码执行的速度。例如：If strTemp = "" Then'要执行的代码End If面的代码可以用以下代码代替：If Len(strTemp) = 0 Then'要执行的代码End If注意：(1) 参数 string 和参数 varname 互不相容， 即只能指定这两个 参数中的某一个，不能同时指定这两个参数。(2) 如果参数 string 或参数 varname 中包含 Null ，则 Len 函 数会返回 Null 。(3) 在向文件写入某种用户自定义类型数据时， Len 函数会 返回数据的大小 (字符数 ) 。(4) LenB 函数返回用户自定义类型数据实际占用的内存大 小。 在对字节数据或 Unicode字符串使用LenB函数时，LenB函数返回表示数据或字符串的字节数。(6) 不能对对象变量使用 Len 函数。(7)如果参数