Len 函数

重要:  本文是由机器翻译的,请参阅免责声明。请在 此处 中查找本文的英文版本以便参考。

返回一个 long 类型,包含字符串中的字符数或存储变量所需的字节数。

语法

Len ( 字符串 |varname)

Len函数语法具有以下参数︰

参数

说明

字符串

任何有效字符串表达式。如果字符串包含 Null,则返回空值。

varname

任何有效的变量名称。如果varname包含 Null,则返回空值。如果varname Variant 类型, Len将其相同视为一个字符串,并始终返回它包含的字符数。


注解

一个 (且只有一个) 必须指定的两个可能的参数。使用用户定义的类型, Len会返回写入文件时的大小。

注意: LenB函数用于字节包含字符串,如下所示双字节字符集 (DBCS) 语言中的数据。而不是返回字符串中的字符数, LenB返回用于表示该字符串的字节数。使用用户定义的类型, LenB返回内存中的大小,包括任何元素之间的边距。有关使用LenB的示例代码,请参阅示例主题中的第二个示例。

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

示例

注意: 下面的示例说明使用此函数在 Visual Basic for Applications (VBA) 模块。有关处理 VBA 的详细信息,搜索旁边的下拉列表中选择开发人员参考,然后在搜索框中输入一个或多个术语。

第一个示例使用Len为字符串或存储变量所需的字节数返回的字符数。类型中...结束类型块定义CustomerRecord前面必须是私有的关键字如果它将出现在类模块。在标准模块中,键入语句可以是公共的。

Type CustomerRecord    ' Define user-defined type.
ID As Integer ' Place this definition in a
Name As String * 10 ' standard module.
Address As String * 30
End Type
Dim Customer As CustomerRecord ' Declare variables.
Dim MyInt As Integer, MyCur As Currency
Dim MyString, MyLen
MyString = "Hello World" ' Initialize variable.
MyLen = Len(MyInt) ' Returns 2.
MyLen = Len(Customer) ' Returns 42.
MyLen = Len(MyString) ' Returns 11.
MyLen = Len(MyCur) ' Returns 8.

第二个示例使用LenB和用户定义函数 (LenMbcs) 返回字符串中的字节字符数,如果 ANSI 用于表示字符串。

Function LenMbcs (ByVal str as String)
LenMbcs = LenB(StrConv(str, vbFromUnicode))
End Function
Dim MyString, MyLen
MyString = "ABc"
' Where "A" and "B" are DBCS and "c" is SBCS.
MyLen = Len(MyString)
' Returns 3 - 3 characters in the string.
MyLen = LenB(MyString)
' Returns 6 - 6 bytes used for Unicode.
MyLen = LenMbcs(MyString)
' Returns 5 - 5 bytes used for ANSI.

注意: 机器翻译免责声明:本文是由无人工介入的计算机系统翻译的。Microsoft 提供机器翻译是为了帮助非英语国家/地区用户方便阅读有关 Microsoft 产品、服务和技术的内容。由于机器翻译的原因,本文可能包含词汇、语法或文法方面的错误。

扩展你的技能
了解培训
抢先获得新功能
加入 Office 预览体验计划

此信息是否有帮助?

谢谢您的反馈!

谢谢你的反馈! 可能需要转接到 Office 支持专员。

×