Loc

返回一个Long，指定打开文件中当前的读/写位置。

语法：Loc( filenumber )

filenumber

必需 Integer，包含有效的文件号。

备注

返回值取决于文件访问模式：

模式	返回值
Random	从文件读取或写入的最后一条记录的编号。
Sequential	文件中当前字节位置除以128。
Binary	最后读取或写入的字节位置。

示例

本示例使用Loc函数返回打开文件中当前的读/写位置。本示例假设TESTFILE是一个包含几行示例数据的文本文件。

Dim MyLocation, MyLine
Open "TESTFILE" For Binary As #1    ' Open file.
Do While MyLocation < LOF(1)    ' Loop until end of file.
    MyLine = MyLine & Input(1, #1)    ' Read character into variable.
    MyLocation = Loc(1)    ' Get current position within file.
    Debug.Print MyLine; Tab; MyLocation
Loop
Close #1    ' Close file.

另请参阅

• LOF函数
• Seek函数
• EOF函数