VBA字符串处理大全Word文件下载.docx
《VBA字符串处理大全Word文件下载.docx》由会员分享，可在线阅读，更多相关《VBA字符串处理大全Word文件下载.docx（37页珍藏版）》请在冰豆网上搜索。
其中，参数string1和strng2为必需的参数，可以是任何有效的字符串表达式。
参数Compare为可选参数，如果该参数为Null，将发生错误。
如果参数Compare设置为常数vbUseCompareOption或-1或忽略该参数，将使用OptionCompare语句设置进行比较；
如果忽略该参数且没有设置OptionCompare语句，则按二进制进行比较；
如果参数Compare设置为常数vbBinaryCompare或0，则用二进制进行比较；
如果参数Compare设置为常数vbTextCompare或1，则按文本进行比较；
如果参数Compare设置为常数vbDatabaseCompare或2，此时仅适用于MicrosoftAccess，进行基于数据库信息的比较。
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）'
MyComp4=StrComp（MyStr2,MyStr1）'
返回1
MsgBox"
StrComp（MyStr1,MyStr2,1）的结果为:
"
&
MyComp1
StrComp（MyStr1,MyStr2,0）的结果为:
MyComp2
StrComp（MyStr1,MyStr2）的结果为:
MyComp3
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.Printx（i）
Next
下面的例子将句子中每个词语的首字母转换为大写：
SubtestConverseString2（）
Debug.PrintStrConv（"
mybookisthisbook."
vbProperCase）
程序运行后，在VBE窗口中的立即窗口中将会看到上述结果。
下面的示例演示了如何把一个字符串转换为字节数组，以便使用在API函数调用中：
SubTest（）
DimbyArray（）AsByte
DimsStringAsString
sString="
Somestuff"
byArray=StrConv（sString,vbFromUnicode）
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"
该函数可用于在调用外部DLL时建立字符串缓冲区，特别是在调用WindowAPI时。
此外，使用该函数还可以使字符串在特定长度的缓冲区左对齐或右对齐。
注意，如果参数number是负数，则会产生运行时错误5：
“无效的过程调用或参数”。
[编程方法和技巧]可以使用Space函数添加和清除存储在定长字符串中的数据，例如，下面的代码用空格填充一个定长字符串：
DimstrFixedAsString*32
……
strFixed=Space（Len（strFixed））
2.3.2String函数
该函数返回重复的字符或字符串。
String（number,character）
其中，参数number必须，指定所返回的字符串的长度；
参数character必须，指定字符的字符代码或字符串表达式。
例如，下面使用String函数生成指定长度且只含单一字符的字符串。
SubCreateString2（）
MyString=String（5,"
*"
）'
*****"
MyString=String（5,42）'
MyString=String（10,"
ABC"
AAAAAAAAAA"
如果参数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函数来获取某字符串的长度（字符数）或某变量的大小（位数）。
TypeCustomerRecord'
定义用户自定义的数据类型
IDAsInteger'
将此定义放在常规模块中
NameAsString*10
AddressAsString*30
EndType
SubGetStrLen（）
DimCustomerAsCustomerRecord'
声明变量
DimMyIntAsInteger,MyCurAsCurrency
DimMyString,MyLen
HelloWorld"
设置变量初值
MyLen=Len（MyInt）'
返回2
MyLen=Len（Customer）'
返回42
MyLen=Len（MyString）'
返回11
MyLen=Len（MyCur）'
返回8
此外，在需要大量判断是否为空字符串的代码中，使用Len函数也可以加快代码执行的速度。
例如：
IfstrTemp="
Then
要执行的代码
EndIf
上面的代码可以用以下代码代替：
IfLen（strTemp）=0Then
注意：
（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
MsgBoxLenB（vVar）'
返回16
很显然，Variant类型变量比强制声明的类型变量要占用更多的内存。
可以使用Format函数规定输出的字符串的格式，其语法为：
Format（expression[,format[,firstdayofweek[,firstweekofyear]]]）
其中，参数expression必须，为任何有效的表达式；
其余参数均可选。
参数format表示所要采用的格式，参数firstdayofweek使用常数，表示一星期的第一天，参数firstweekofyear使用常数，表示一年的第一周。
在参数format中，使用字符“@”，表示空格或字符占位符，如果在输入的字符串相应位置有字符，则显示该字符，否则显示空格；
使用字符“&
”，表示空或字符占位符，如果在输入的字符串的相应位置有字符，则显示该字符，否则不显示；
使用字符“<
”，则将所有字符显示为小写格式；
使用字符“>
”，则将所有字符显示为大写格式；
使用字符“！
”，强制占位符从左向右填满，满足默认为从右向左。
例如下面的代码：
DimstrOut
strOut=Format（"
8888888"
"
（@@@）&
&
-&
返回（）888-8888
（&
）&
返回（）888-8888
在Format函数中，还可以同时格式化普通字符串和空字符串，只须在指定的格式中用分号隔开两个部分，第一部分用于非空字符串，第二部分用于空字符串。
strOut=Format（"
6666666"
;
NoPhone"
返回（）666-6666
返回NoPhone
又如，下面的代码将字母全部转换为大写：
@@@@@"
）‘返回HELLO
同理，可以使用“<
”将字母全部转换为小写。
Format函数的简要使用规则：
（1）允许用预先定义或用户定义的格式来建立多种用于输出字符串、数字和日期/时间数据的方法。
（2）创建用户定义的数值格式最多可以有四个部分，每个部分代表一种不同类型的数值，且用分号分隔。
第一部分在单独命名使用时可用于所有值，与其它多个部分一起使用时只用于正数；
第二部分用于负数；
第三部分用于零值；
第四部分用于Null值。
在参数format中不必包括所有四部分，但所用部分的数目决定了每一个部分所定义的数值类型：
只有一个部分，则应用于所有数值；
有两个部分，则第一部分应用于正数和零值，第二部分应用于负数；
有三个部分，则第一部分用于正数，第二部分应用于负数，第三部分应用于零值；
有四个部分，则每部分的使用如前所述。
如果忽略了一个部分，则该部分使用与定义正数的部分一样的格式，例如：
“#.00;
#,##”
表示负数值与正数值使用同一种格式显示。
如果参数含有命名格式，则只能有一个部分。
（3）字符串值的用户定义格式有两个部分，第一部分可应用于所有值，第二部分只应用于Null值或零长字符串。
（4）预定义的日期和时间格式如下：
GeneralDate
范例：
Format（"
28/02/2007"
"
GeneralDate"
）
返回：
2007-2-28
LongDate
LongDate"
2007年2月28日
MediumDate
MediumDate"
07-02-28
ShortDate
ShortDate"
LongTime
17:
30:
03"
LongTime"
17:
03
MediumTime
MediumTime"
下午05:
30
ShortTime
ShortTime"
（5）预定义的数值格式如下：
GeneralNumber
Format（123456.0789,"
GeneralNumber"
123456.0789
Currency
Currency"
￥123,456.08
Fixed
Format（0.2,"
Fixed"
0.20
Standard
Standard"
123,456.08
Percent
Format（.7321,"
Percent"
73.21%
Scientific
Scientific"
1.23E+05
Yes/No
范例1：
Format（0,"
Yes/No"
No
范例2：
Format（23,"
Yes
True/False
True/False"
False
True
On/Off
On/Off"
Off
On
（6）创建用户自定义的日期和时间格式的字符：
C
元素：
日期
显示：
基于当前Windows系统的短日期和短时间国际设置格式的日期或时间。
Format（"
28/02/200717:
c"
2007-2-2817:
dddddd
基于当前Windows系统的长日期国际设置格式的完整日期。
dddddd"
2007年2月28日
/
日期分隔符
mm-dd-yyyy"
02-28-2007
d
日
1～31范围内的一个数字，无前导0。
02/02/2007"
d"
2
dd
01～31范围内的一个数字，有前导0。
dd"
02
ddd
英文简写（Sun～Sat）
ddd"
Fri
dddd
英文全称（Sunday～Saturday）
dddd"
Friday
ddddd
基于计算机Windows国际设置短日期格式的日期。
ddddd"
2007-2-2
h
小时
0～23范围内的一个数字，无前导0。
05:
08:
06"
h"
5
hh
00～23范围内的一个数字，有前导0。
hh"
05
n
分
0～59范围内的一个数字，无前导0。
n"
8
nn
升级会员 