VBA-函数Len、Loc、LOF_vba lof

66，Len 函数
        返回 Long，其中包含字符串内字符的数目，或是存储一变量所需的字节数。
（6601）语法：Len(string | varname)
                Len 函数的语法有下面这些部分：
部分         说明
string       任何有效的字符串表达式。如果 string 包含 Null，会返回 Null。
Varname  任何有效的变量名称。如果 varname 包含 Null，会返回 Null。如果 varname 是 Variant，Len 会视其为 String 并且总是返回其包含的字符数。

（6602）说明：
               两个可能的参数必须有其一（而且只能有其一）。如为用户定义类型，Len 会返回其写至文件的大小。
               注意 LenB 函数作用于字符串中的字节数据，如同在双字节字符集(DBCS)语言中一样。所以 LenB 返回的是用于代表字符串的字节数，而不是返回字符串中字符的数量。如为用户自定义类型，LenB 返回在内存中的大小，包括元素之间的衬垫。对于使用 LenB的示例代码，请参阅示例主题中的第二个示例。
           注意 当在用户自定义数据类型中使用变长字符串时，Len 可能不能确定实际存储所需的字节数目。

（6603）示例：
               本示例使用 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。

（6604）请参阅：（01）InStr 函数、（02）数据类型概述。

67，Loc 函数
        返回一个 Long，在已打开的文件中指定当前读/写位置。
（6701）语法：Loc(filenumber)
               必要的 filenumber 参数是任何一个有效的 Integer 文件号。
（6702）说明：
               Loc 函数对各种文件访问方式的返回值如下：
方式            返回值
Random     上一次对文件进行读出或写入的记录号。
Sequential 文件中当前字节位置除以 128 的值。但是，对于顺序文件而言，不会使用 Loc 的返回值，也不需要使用 Loc 的返回值。
Binary     上一次读出或写入的字节位置。

（6703）示例：
              本示例使用 Loc 函数来返回在打开的文件中当前读写的位置。 本示例假设 TESTFILE 文件内含数行文本数据。
Dim MyLocation, MyLine
Open "TESTFILE" For Binary As #1    ' 打开刚创建的文件。
Do While MyLocation < LOF(1)    ' 循环至文件尾。
    MyLine = MyLine & Input(1, #1)    ' 读入一个字符到变量中。
    MyLocation = Loc(1)    ' 取得当前位置。
' 在立即窗口中显示。
    Debug.Print MyLine : Tab : MyLocation
Loop
Close #1    ' 关闭文件。

（6704）请参阅：（01）EOF 函数、（02）LOF 函数、（03）Seek 函数、（04）Seek 语句。

68，LOF 函数
     返回一个 Long，表示用 Open 语句打开的文件的大小，该大小以字节为单位。
（6801）语法：LOF(filenumber)
        必要的 filenumber 参数是一个 Integer，包含一个有效的文件号。
        注意 对于尚未打开的文件，使用 FileLen 函数将得到其长度。

（6802）示例：
        本示例使用 LOF 函数来得知已打开文件的大小。本示例假设 TESTFILE 文件内含文本数据。
Dim FileLength
Open "TESTFILE" For Input As #1    ' 打开文件。
FileLength = LOF(1)    ' 取得文件长度。
Close #1    ' 关闭文件。

（6803）请参阅：（01）EOF 函数、（02）FileLen 函数、（03）Loc 函数、（04）Open 语句。

VBA-函数Len、Loc、LOF