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。