VBA计算字符串长度——Len函数

Len 函数

返回 Long，其中包含字符串内字符的数目，或是存储一变量所需的字节数。

语法

Len(string | varname)

Len 函数的语法有下面这些部分：

部分	说明
string	任何有效的字符串表达式。如果 string 包含 Null，会返回 Null。
Varname	任何有效的变量名称。如果 varname 包含 Null，会返回 Null。如果 varname 是 Variant，Len 会视其为 String 并且总是返回其包含的字符数。

说明

两个可能的参数必须有其一（而且只能有其一）。如为用户定义类型，Len 会返回其写至文件的大小。

注意 LenB 函数作用于字符串中的字节数据，如同在双字节字符集(DBCS)语言中一样。所以 LenB 返回的是用于代表字符串的字节数，而不是返回字符串中字符的数量。如为用户自定义类型，LenB 返回在内存中的大小，包括元素之间的衬垫。对于使用 LenB的示例代码，请参阅示例主题中的第二个示例。

注意 当在用户自定义数据类型中使用变长字符串时，Len 可能不能确定实际存储所需的字节数目。

Len 函数示例

本示例使用 Len 函数来得知某字符串的长度（字符数）或某变量的大小（位数）。Type...End Type 程序区块定义一个自定义数据类型 CustomerRecord。如果该数据类型定义在对象类模块中，则必需以关键字 Private 开头（表示为私有）。若定义在常规模块中，Type 定义就可以为 Public。

Type CustomerRecord    ' 定义用户自定义的数据类型。
    ID As Integer    ' 将此定义放在常规模块中。
    Name As String * 10
    Address As String * 30
End Type

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。