VBA中的字符串操作Word文件下载.docx
- 文档编号:22700060
- 上传时间:2023-02-05
- 格式:DOCX
- 页数:26
- 大小:30.10KB
VBA中的字符串操作Word文件下载.docx
《VBA中的字符串操作Word文件下载.docx》由会员分享,可在线阅读,更多相关《VBA中的字符串操作Word文件下载.docx(26页珍藏版)》请在冰豆网上搜索。
参数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
00
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- VBA 中的 字符串 操作