|
2.4 获取字符串的长度
可以使用Len函数来确定任何字符串或字符串表达式的长度，其语法为：
Len(string|varname)
其中，参数string为任何有效的字符串表达式；参数varname为任何有效的变量名称。两个参数必须取一。
利用LenB函数可以确定存储某变量所需的实际字节数。
下面的示例使用Len函数来获取某字符串的长度(字符数)或某变量的大小(位数)。
Type CustomerRecord ' 定义用户自定义的数据类型
ID As Integer ' 将此定义放在常规模块中
Name As String * 10
Address As String * 30
End Type
Sub GetStrLen()
Dim Customer As CustomerRecord ' 声明变量
Dim MyInt As Integer, MyCur As Currency
Dim MyString, MyLen
MyString = "Hello World" ' 设置变量初值
MyLen = Len(MyInt) ' 返回 2
MyLen = Len(Customer) ' 返回 42
MyLen = Len(MyString) ' 返回 11
MyLen = Len(MyCur) ' 返回 8
End Sub
此外，在需要大量判断是否为空字符串的代码中，使用Len函数也可以加快代码执行的速度。例如：
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函数时，LenB函数返回表示数据或字符串的字节数。
(6) 不能对对象变量使用Len函数。
(7) 如果参数varname是一个数组，则必须指定一个有效的下标，即Len函数不能确定数组中元素的总数或数组占用内存的大小。
(8) Len函数对Variant类型变量的处理和字符串变量一样，Len函数返回变量所存储的实际字符数，如下面的代码：
Dim vVar
vVar=100
MsgBox Len(vVar)
结果为3。
(9) 由于VB本质上使用的是Unicode字符串(用两个字节的空间来存储一个字符)，因此当相同的字符串变量传递给Len函数和LenB函数时会出现不同的返回值。例如，对于一个包含4个字符的字符串，使用Len函数时返回值为4，使用LenB函数则为8。
(10) 使用强类型变量(即强制声明该变量的类型)时，Len函数会返回存储该变量所需的字节数。例如，长整型变量的长度为4。
下面的示例说明了为什么要显式声明数据类型：
Sub test()
Dim lVar As Long
Dim vVar
lVar = 10000000
vVar = 10000000
MsgBox LenB(lVar) '返回4
MsgBox LenB(vVar)'返回16
End Sub
很显然，Variant类型变量比强制声明的类型变量要占用更多的内存。
<未完待续>
分类:ExcelVBA>>常用函数
2.5 格式化字符串
可以使用Format函数规定输出的字符串的格式，其语法为：
Format(expression[,format[,firstdayofweek[,firstweekofyear]]])
其中，参数expression必须，为任何有效的表达式；其余参数均可选。参数format表示所要采用的格式，参数firstdayofweek使用常数，表示一星期的第一天，参数firstweekofyear使用常数，表示一年的第一周。
在参数format中，使用字符“@”，表示空格或字符占位符，如果在输入的字符串相应位置有字符，则显示该字符，否则显示空格；使用字符“&”，表示空或字符占位符，如果在输入的字符串的相应位置有字符，则显示该字符，否则不显示；使用字符“<”，则将所有字符显示为小写格式；使用字符“>”，则将所有字符显示为大写格式；使用字符“！”，强制占位符从左向右填满，满足默认为从右向左。
例如下面的代码：
Dim strOut
strOut = Format("8888888", "(@@@)&&&-&&&&") '返回( )888-8888
strOut = Format("8888888", "(&&&)&&&-&&&&") '返回()888-8888
在Format函数中，还可以同时格式化普通字符串和空字符串，只须在指定的格式中用分号隔开两个部分，第一部分用于非空字符串，第二部分用于空字符串。例如：
strOut = Format("6666666", "(@@@)&&&-&&&&;No Phone") '返回( )666-6666
strOut = Format("", "(@@@)&&&-&&&&;No Phone") '返回No Phone
又如，下面的代码将字母全部转换为大写：
Dim strOut
strOut = Format("Hello", ">@@@@@") ‘返回HELLO
同理，可以使用“<”将字母全部转换为小写。
Format函数的简要使用规则：
(1) 允许用预先定义或用户定义的格式来建立多种用于输出字符串、数字和日期/时间数据的方法。
(2) 创建用户定义的数值格式最多可以有四个部分，每个部分代表一种不同类型的数值，且用分号分隔。第一部分在单独命名使用时可用于所有值，与其它多个部分一起使用时只用于正数；第二部分用于负数；第三部分用于零值；第四部分用于Null值。
在参数format中不必包括所有四部分，但所用部分的数目决定了每一个部分所定义的数值类型：只有一个部分，则应用于所有数值；有两个部分，则第一部分应用于正数和零值，第二部分应用于负数；有三个部分，则第一部分用于正数，第二部分应用于负数，第三部分应用于零值；有四个部分，则每部分的使用如前所述。
如果忽略了一个部分，则该部分使用与定义正数的部分一样的格式，例如：
“#.00;;#,##”
表示负数值与正数值使用同一种格式显示。
如果参数含有命名格式，则只能有一个部分。
(3) 字符串值的用户定义格式有两个部分，第一部分可应用于所有值，第二部分只应用于Null值或零长字符串。
(4) 预定义的日期和时间格式如下：
General Date
范例： Format("28/02/2007","General Date")
返回： 2007-2-28
Long Date
范例： Format("28/02/2007","Long Date")
返回： 2007年2月28日
Medium Date
范例： Format("28/02/2007","Medium Date")
返回： 07-02-28
Short Date
范例： Format("28/02/2007","Short Date")
返回： 2007-2-28
Long Time
范例： Format("17:30:03","Long Time")
返回： 17:30:03
Medium Time
范例： Format("17:30:03","Medium Time")
返回： 下午 05:30
Short Time
范例： Format("17:30:03","Short Time")
返回： 17:30
(5) 预定义的数值格式如下：
General Number
范例： Format(123456.0789,"General Number")
返回： 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/2007 17:30:03","c")
返回：2007-2-28 17: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)
|