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

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

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

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

4、 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

5、MsgBox StrComp(MyStr1, MyStr2, 0)的结果为:& MyComp2 MsgBox StrComp(MyStr1, MyStr2)的结果为:& MyComp3 MsgBox StrComp(MyStr2, MyStr1)的结果为:& MyComp4End Sub示例说明：如果StrComp函数的第三个参数值为1，则以文本比较的方式进行字符串比较；如果第三个参数值为0或忽略该参数，则以二进制比较的方式进行字符串比较。注意，文本比较的方式不区分字母大小写，而二进制比较方式则区分大小写。编程方法和技巧 完成一次简单的单一比较，如If UCase(sS

6、tring1)<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，则将字符串转换成大写；设置为v

7、bLowerCase或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

8、x = StrConv(ABCDEFG,vbFromUnicode) 转换字符串。 For i = 0 To UBound(x) Debug.Printx(i) NextEnd Sub下面的例子将句子中每个词语的首字母转换为大写：Sub testConverseString2() Debug.Print StrConv(my book is this book.,vbProperCase)End Sub程序运行后，在VBE窗口中的立即窗口中将会看到上述结果。下面的示例演示了如何把一个字符串转换为字节数组，以便使用在API函数调用中：Sub Test() Dim byArray() As Byt

9、e Dim sString As String sString = Some stuff byArray = StrConv(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函数将数值转换成字符串，即返回代表一个数值的字符

10、串。其语法为： 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函数不用为正数的符号而添加

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

12、 CreateString1() Dim MyString 返回 10个空格的字符串。 MyString = Space(10) 将 10个空格插入两个字符串中间。 MyString = Hello& Space(10) & WorldEnd Sub该函数可用于在调用外部DLL时建立字符串缓冲区，特别是在调用WindowAPI时。此外，使用该函数还可以使字符串在特定长度的缓冲区左对齐或右对齐。注意，如果参数number是负数，则会产生运行时错误5：“无效的过程调用或参数”。编程方法和技巧 可以使用Space函数添加和清除存储在定长字符串中的数据，例如，下面的代码用空格填充一个定

13、长字符串：Dim strFixed As String * 32strFixed = Space(Len(strFixed)2.3.2 String函数该函数返回重复的字符或字符串。其语法为： String(number,character)其中，参数number必须，指定所返回的字符串的长度；参数character必须，指定字符的字符代码或字符串表达式。例如，下面使用String函数生成指定长度且只含单一字符的字符串。Sub CreateString2() Dim MyString MyString = String(5,*) 返回 * MyString = String(5,42) 返回*

14、 MyString = String(10,ABC) 返回AAAAAAAAAAEnd Sub如果参数number包含Null，则返回Null；如果参数character包含Null，则返回Null；参数character可以指定为字符串或者是ANSI字符代码，如：strString1=String(128,”=”) 用”=”填充strString2=String(128,0) 用Chr$(0)填充编程方法和技巧 (1) String函数在用于创建较长的“_”，“-”，或者“=”构成的水平线以便给报表分段时十分有用。(2)当调用API函数向缓冲区写入字符串值时，首先要用String函数创建一个长

15、度合适的字符串变量，并且用诸如Chr$(0)之类的单个字符来填充。2.4 获取字符串的长度可以使用Len函数来确定任何字符串或字符串表达式的长度，其语法为： Len(string|varname)其中，参数string为任何有效的字符串表达式；参数varname为任何有效的变量名称。两个参数必须取一。利用LenB函数可以确定存储某变量所需的实际字节数。下面的示例使用Len函数来获取某字符串的长度(字符数)或某变量的大小(位数)。TypeCustomerRecord 定义用户自定义的数据类型 ID AsInteger 将此定义放在常规模块中 Name As String * 10 Address

16、 AsString * 30End TypeSub GetStrLen() Dim Customer AsCustomerRecord 声明变量 Dim MyInt As Integer, MyCur AsCurrency Dim MyString, MyLen MyString = HelloWorld 设置变量初值 MyLen =Len(MyInt) 返回 2 MyLen =Len(Customer) 返回 42 MyLen =Len(MyString) 返回11 MyLen =Len(MyCur) 返回 8EndSub此外，在需要大量判断是否为空字符串的代码中，使用Len函数也可以加快代

17、码执行的速度。例如：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函数返回用户自定义类型数据实际占用的内存大小。(5) 在对字节数据或Unicode字符串使用LenB函数时，

18、LenB函数返回表示数据或字符串的字节数。(6) 不能对对象变量使用Len函数。(7)如果参数varname是一个数组，则必须指定一个有效的下标，即Len函数不能确定数组中元素的总数或数组占用内存的大小。(8) Len函数对Variant类型变量的处理和字符串变量一样，Len函数返回变量所存储的实际字符数，如下面的代码：Dim vVarvVar=100MsgBox Len(vVar)结果为3。(9)由于VB本质上使用的是Unicode字符串(用两个字节的空间来存储一个字符)，因此当相同的字符串变量传递给Len函数和LenB函数时会出现不同的返回值。例如，对于一个包含4个字符的字符串，使用Len

19、函数时返回值为4，使用LenB函数则为8。(10) 使用强类型变量(即强制声明该变量的类型)时，Len函数会返回存储该变量所需的字节数。例如，长整型变量的长度为4。下面的示例说明了为什么要显式声明数据类型：Sub test() Dim lVar As Long Dim vVar lVar = 10000000 vVar = 10000000 MsgBox LenB(lVar) 返回4 MsgBoxLenB(vVar)返回16End Sub很显然，Variant类型变量比强制声明的类型变量要占用更多的内存。<未完待续>分类:ExcelVBA>>常用函数By fanjy in 2007-2-28