比使用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字符串:
#codesample
SubtestConverseString()
DimiAsLong
Dimx()AsByte
x=StrConv("ABCDEFG",vbFromUnicode)'转换字符串。
Fori=0ToUBound(x)
Debug.Printx(i)
Next
EndSub
下面的例子将句子中每个词语的首字母转换为大写:
#codesample
SubtestConverseString2()
Debug.PrintStrConv("mybookisthisbook.",vbProperCase)
EndSub
程序运行后,在VBE窗口中的立即窗口中将会看到上述结果。
下面的示例演示了如何把一个字符串转换为字节数组,以便使用在API函数调用中:
#codesample
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时建立字符串缓冲区,特别是在调用WindowAPI时。
此外,使用该函数还可以使字符串在特定长度的缓冲区左对齐或右对齐。
注意,如果参数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函数来获取某字符串的长度(字符数)或某变量的大小(位数)。
TypeCustomerRecord'定义用户自定义的数据类型
IDAsInteger'将此定义放在常规模块中
NameAsString*10
AddressAsString*30
EndType
SubGetStrLen()
DimCustomerAsCustomerRecord'声明变量
DimMyIntAsInteger,MyCurAsCurrency
DimMyString,MyLen
MyString="HelloWorld"'设置变量初值
MyLen=Len(MyInt)'返回2
MyLen=Len(Customer)'返回42
MyLen=Len(MyString)'返回11
MyLen=Len(MyCur)'返回8
EndSub
此外,在需要大量判断是否为空字符串的代码中,使用Len函数也可以加快代码执行的速度。
例如:
IfstrTemp=""Then
'要执行的代码
EndIf
上面的代码可以用以下代码代替:
#samecode
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
MsgBoxLenB(vVar)'返回16
EndSub
很显然,Variant类型变量比强制声明的类型变量要占用更多的内存。
2.5格式化字符串
可以使用Format函数规定输出的字符串的格式,其语法为:
Format(expression[,format[,firstdayofweek[,firstweekofyear]]])
其中,参数expression必须,为任何有效的表达式;
其余参数均可选。
参数format表示所要采用的格式,参数firstdayofweek使用常数,表示一星期的第一天,参数firstweekofyear使用常数,表示一年的第一周。
在参数format中,使用字符“@”,表示空格或字符占位符,如果在输入的字符串相应位置有字符,则显示该字符,否则显示空格;使用字符“&”,表示空或字符占位符,如果在输入的字符串的相应位置有字符,则显示该字符,否则不显示;使用字符“<”,则将所有字符显示为小写格式;使用字符“>”,则将所有字符显示为大写格式;使用字符“!
”,强制占位符从左向右填满,满足默认为从右向左。
例如下面的代码:
DimstrOut
strOut=Format("8888888","(@@@)&&&-&&&&")'返回()888-8888
strOut=Format("8888888","(&&&)&&&-&&&&")'返回()888-8888
在Format函数中,还可以同时格式化普通字符串和空字符串,只须在指定的格式中用分号隔开两个部分,第一部分用于非空字符串,第二部分用于空字符串。
例如:
strOut=Format("6666666","(@@@)&&&-&&&&;NoPhone")'返回()666-6666
strOut=Format("","(@@@)&&&-&&&&;NoPhone")'返回NoPhone
又如,下面的代码将字母全部转换为大写:
DimstrOut
strOut=Format("Hello",">@@@@@")‘返回HELLO
同理,可以使用“<”将字母全部转换为小写。
Format函数的简要使用规则:
(1)允许用预先定义或用户定义的格式来建立多种用于输出字符串、数字和日期/时间数据的方法。
(2)创建用户定义的数值格式最多可以有四个部分,每个部分代表一种不同类型的数值,且用分号分隔。
第一部分在单独命名使用时可用于所有值,与其它多个部分一起使用时只用于正数;第二部分用于负数;第三部分用于零值;第四部分用于Null值。
在参数format中不必包括所有四部分,但所用部分的数目决定了每一个部分所定义的数值类型:
只有一个部分,则应用于所有数值;有两个部分,则第一部分应用于正数和零值,第二部分应用于负数;有三个部分,则第一部分用于正数,第二部分应用于负数,第三部分应用于零值;有四个部分,则每部分的使用如前所述。
如果忽略了一个部分,则该部分使用与定义正数的部分一样的格式,例如:
“#.00;;#,##”
表示负数值与正数值使用同一种格式显示。
如果参数含有命名格式,则只能有一个部分。
(3)字符串值的用户定义格式有两个部分,第一部分可应用于所有值,第二部分只应用于Null值或零长字符串。
(4)预定义的日期和时间格式如下:
GeneralDate
范例:
Format("28/02/2007","GeneralDate")
返回:
2007-2-28
LongDate
范例:
Format("28/02/2007","LongDate")
返回:
2007年2月28日
MediumDate
范例:
Format("28/02/2007","MediumDate")
返回:
07-02-28
ShortDate
范例:
Format("28/02/2007","ShortDate")
返回:
2007-2-28
LongTime
范例:
Format("17:
30:
03","LongTime")
返回:
17:
30:
03
MediumTime
范例:
Format("17:
30:
03","MediumTime")
返回:
下午05:
30
ShortTime
范例:
Format("17:
30:
03","ShortTime")
返回:
17:
30
(5)预定义的数值格式如下:
GeneralNumber
范例:
Format(123456.0789,"GeneralNumber")
返回:
123456.0789
Currency
范例:
Format(123456.0789,"Currency")
返回:
¥123,456.08
Fixed
范例:
Format(0.2,"Fixed")
返回:
0.20
Standard
范例:
Format(123456.0789,"Standard")
返回:
123,456.08
Percent
范例:
Format(.7321,"Percent")
返回:
73.21%
Scientific
范例:
Format(123456.0789,"Scientific")
返回:
1.23E+05
Yes/No
范例1:
Format(0,"Yes/No")
返回:
No
范例2:
Format(23,"Yes/No")
返回:
Yes
True/False
范例1:
Format(0,"True/False")
返回:
False
范例2:
Format(23,"True/False")
返回:
True
On/Off
范例1:
Format(0,"On/Off")
返回:
Off
范例2:
Format(23,"On/Off")
返回:
On
(6)创建用户自定义的日期和时间格式的字符:
C
元素:
日期
显示:
基于当前Windows系统的短日期和短时间国际设置格式的日期或时间。
范例:
Format("28/02/200717:
30:
03","c")
返回:
2007-2-2817:
30:
03
dddddd
元素:
日期
显示:
基于当前Windows系统的长日期国际设置格式的完整日期。
范例:
Format("28/02/2007","dddddd")
返回:
2007年2月28日
/
元素:
日期分隔符
范例:
Format("28/02/2007","mm-dd-yyyy")
返回:
02-28-2007
d
元素:
日
显示:
1~31范围内的一个数字,无前导0。
范例:
Format("02/02/2007","d")
返回:
2
dd
元素:
日
显示:
01~31范围内的一个数字,有前导0。
范例:
Format("02/02/2007","dd")
返回:
02
ddd
元素:
日
显示:
英文简写(Sun~Sat)
范例:
Format("02/02/2007","ddd")
返回:
Fri
dddd
元素:
日
显示:
英文全称(Sunday~Saturday)
范例:
Format("02/02/2007","dddd")
返回:
Friday
ddddd
元素:
日期
显示:
基于计算机Windows国际设置短日期格式的日期。
范例:
Format("02/02/2007","ddddd")
返回:
2007-2-2
h
元素:
小时
显示:
0~23范围内的一个数字,无前导0。
范例:
Format("05:
08:
06","h")
返回:
5
hh
元素:
小时
显示:
00~23范围内的一个数字,有前导0。
范例:
Format("05:
08:
06","hh")
返回:
05
n
元素:
分
显示:
0~59范围内的一个数字,无前导0。
范例:
Format("05:
08:
06","n")
返回:
8
nn
元素:
分
显示:
00~59范围内的一个数字,有前导0。
范例:
Format("05:
08:
06","nn")
返回:
08
s
元素:
秒
显示:
0~59范围内的一个数字,无前导0。
范例:
Format("05:
08:
06","s")
返回:
6
ss
元素:
秒
显示:
00~59范围内的一个数字,有前导0。
范例:
Format("05:
08:
06","ss")
返回:
06
ttttt
元素:
时间
显示:
基于12小时制的时间,包含Windows区域设置中指定的