在VBA中处理字符串基本操作篇1.docx
《在VBA中处理字符串基本操作篇1.docx》由会员分享，可在线阅读，更多相关《在VBA中处理字符串基本操作篇1.docx（10页珍藏版）》请在冰豆网上搜索。
在VBA中处理字符串基本操作篇1
在VBA中处理字符串（基本操作篇1）
---------------
---------------
2
VBA中处理字符串的函数
2.1比较字符串
通常，在VBA中进行字符串比较时，会用到比较运算符（如=、>等）、Like运算符和StrComp函数。
此外，在模块的开头用Option
Compare语句指定比较方式。
2.1.1比较运算符
可以采用简单的逻辑运算符进行两个字符串的比较，即<（小于）、<=（小于或等于）、>（大于）、>=（大于或等于）、=（等于）、<>（不等于）。
此外，还可以使用Like运算符进行比较。
2.1.2StrComp函数
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。
看看下面的示例：
SubtestStringCompare（）
DimMyStr1AsString,MyStr2AsString,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
EndSub
示例说明：
如果StrComp函数的第三个参数值为1，则以文本比较的方式进行字符串比较；如果第三个参数值为0或忽略该参数，则以二进制比较的方式进行字符串比较。
注意，文本比较的方式不区分字母大小写，而二进制比较方式则区分大小写。
[编程方法和技巧]完成一次简单的单一比较，如
IfUCase（sString1）<UCase（sString2）Then
比使用StrComp函数：
IfStrComp（sString1,sString2,vbTextCompare）=-1Then
在性能上要提高30%，且更容易阅读和理解。
2.2转换字符串
2.2.1StrConv函数
使用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字符串：
SubtestConverseString（）
DimiAsLong
Dimx（）AsByte
x=StrConv（"ABCDEFG",
vbFromUnicode）'
转换字符串。
Fori=0ToUBound（x）
Debug.Print
x（i）
Next
EndSub
下面的例子将句子中每个词语的首字母转换为大写：
SubtestConverseString2（）
Debug.PrintStrConv（"mybookisthisbook.",
vbProperCase）
EndSub
程序运行后，在VBE窗口中的立即窗口中将会看到上述结果。
下面的示例演示了如何把一个字符串转换为字节数组，以便使用在API函数调用中：
SubTest（）
DimbyArray（）AsByte
DimsStringAsString
sString="Somestuff"
byArray=StrConv（sString,vbFromUnicode）
EndSub
StrConv函数将下面的字符看成是字的分隔符：
Null：
Chr$（0）
水平制表符：
Chr$（9）
换行符：
Chr$（10）
垂直制表符：
Chr$（11）
换页符：
Chr$（12）
回车符：
Chr$（13）
空格：
Chr$（32）
[编程方法和技巧]在使用API时该函数很重要，很多程序调用都要求传递给它们Unicode字符，或者赋给返回变量Unicode字符。
2.2.2Str函数
将数值转换成字符串，即返回代表一个数值的字符串。
其语法为：
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.3CStr函数
CStr将数值表达式转换成String数据类型。
示例如下：
MyDouble=
437.324'
MyDouble为Double类型
MyString=
CStr（MyDouble）'
MyString的内容为"437.324"
[编程方法和技巧]传递给CStr的未初始化的数字数据类型返回“0”，传递给CStr的未初始化的日期变量返回“0:
00:
00”。
2.3创建字符串
2.3.1Space函数
该函数返回指定数的空格的字符串。
语法为：
Space（number）
其中，参数number必须，为字符串中指定的空格数。
如下例所示：
SubCreateString1（）
DimMyString
'返回10
个空格的字符串。
MyString=Space（10）
'将10
个空格插入两个字符串中间。
MyString="Hello"
&Space（10）&"World"
EndSub
该函数可用于在调用外部DLL时建立字符串缓冲区，特别是在调用Window
API时。
此外，使用该函数还可以使字符串在特定长度的缓冲区左对齐或右对齐。
注意，如果参数number是负数，则会产生运行时错误5：
“无效的过程调用或参数”。
[编程方法和技巧]可以使用Space函数添加和清除存储在定长字符串中的数据，例如，下面的代码用空格填充一个定长字符串：
DimstrFixedAsString*32
……
strFixed=Space（Len（strFixed））
2.3.2String函数
该函数返回重复的字符或字符串。
其语法为：
String（number,character）
其中，参数number必须，指定所返回的字符串的长度；参数character必须，指定字符的字符代码或字符串表达式。
例如，下面使用String函数生成指定长度且只含单一字符的字符串。
SubCreateString2（）
DimMyString
MyString=String（5,
"*"）'
返回"*****"
MyString=String（5,
42）'返回
"*****"
MyString=String（10,
"ABC"）'返回
"AAAAAAAAAA"
EndSub
如果参数number包含Null，则返回Null；如果参数character包含Null，则返回Null；参数character可以指定为字符串或者是ANSI字符代码，如：
strString1=String（128,”=”）‘用”=”填充
strString2=String（128,0）‘用Chr$（0）填充
[编程方法和技巧]
（1）String函数在用于创建较长的“_”，“-”，或者“=”构成的水平线以便给报表分段时十分有用。
（2）
当调用API函数向缓冲区写入字符串值时，首先要用String函数创建一个长度合适的字符串变量，并且用诸如Chr$（0）之类的单个字符来填充。
2.4获取字符串的长度
可以使用Len函数来确定任何字符串或字符串表达式的长度，其语法为：
Len（string|varname）
其中，参数string为任何有效的字符串表达式；参数varname为任何有效的变量名称。
两个参数必须取一。
利用LenB函数可以确定存储某变量所需的实际字节数。
下面的示例使用Len函数来获取某字符串的长度（字符数）或某变量的大小（位数）。
Type
CustomerRecord'
定义用户自定义的数据类型
IDAs
Integer'
将此定义放在常规模块中
NameAsString*10
AddressAs
String*30
EndType
SubGetStrLen（）
DimCustomerAs
CustomerRecord'
声明变量
DimMyIntAsInteger,MyCurAs
Currency
DimMyString,MyLen
MyString="Hello
World"'
设置变量初值
MyLen=
Len（MyInt）'
返回2
MyLen=
Len（Customer）'
返回42
MyLen=
Len（MyString）'返回
11
MyLen=
Len（MyCur）'返回8
End
Sub
此外，在需要大量判断是否为空字符串的代码中，使用Len函数也可以加快代码执行的速度。
例如：
IfstrTemp=""Then
'要执行的代码
EndIf
上面的代码可以用以下代码代替：
IfLen（strTemp）=0Then
'要执行的代码
EndIf
注意：
（1）参数string和参数varname互不相容，即只能指定这两个参数中的某一个，不能同时指定这两个参数。
（2）如果参数string或参数varname中包含Null，则Len函数会返回Null。
（3）在向文件写入某种用户自定义类型数据时，Len函数会返回数据的大小（字符数）。
（4）LenB函数返回用户自定义类型数据实际占用的内存大小。
（5）在对字节数据或Unicode字符串使用LenB函数时，LenB函数返回表示数据或字符串的字节数。
（6）不能对对象变量使用Len函数。
（7）
如果参数varname是一个数组，则必须指定一个有效的下标，即Len函数不能确定数组中元素的总数或数组占用内存的大小。
（8）Len函数对Variant类型变量的处理和字符串变量一样，Len函数返回变量所存储的实际字符数，如下面的代码：
DimvVar
vVar=100
MsgBoxLen（vVar）
结果为3。
（9）
由于VB本质上使用的是Unicode字符串（用两个字节的空间来存储一个字符），因此当相同的字符串变量传递给Len函数和LenB函数时会出现不同的返回值。
例如，对于一个包含4个字符的字符串，使用Len函数时返回值为4，使用LenB函数则为8。
（10）使用强类型变量（即强制声明该变量的类型）时，Len函数会返回存储该变量所需的字节数。
例如，长整型变量的长度为4。
下面的示例说明了为什么要显式声明数据类型：
Subtest（）
DimlVarAsLong
DimvVar
lVar=10000000
vVar=10000000
MsgBoxLenB（lVar）'返回4
MsgBox
LenB（vVar）'返回16
EndSub
很显然，Variant类型变量比强制声明的类型变量要占用更多的内存。
<未完待续>
分类:
ExcelVBA>>常用函数
Byfanjyin2007-2-28
升级会员 