Loc 函数

返回指定打开的文件内的当前可读/写位置的 Long。

语法

Loc (filenumber)

所需的 filenumber参数 是任何有效的 整数文件编号。

备注

下面描述了每个文件访问模式的返回值：

模式	返回值
随机	在文件中读取或写入的最后一个记录的编号。
顺序	文件中除以 128 的当前字节位置。 但是，不使用也不需要 Loc 为顺序文件返回的信息。
Binary	读取或写入的最后一个字节的位置。

示例

此示例使用 Loc 函数返回打开的文件内的当前可读/写位置。 此示例假定 TESTFILE 是包含几行示例数据的文本文件。

Dim MyLocation, MyLine
Open "TESTFILE" For Binary As #1    ' Open file just created.
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.
' Print to the Immediate window.
    Debug.Print MyLine; Tab; MyLocation
Loop
Close #1    ' Close file.

另请参阅

• 函数 (Visual Basic for Applications)

支持和反馈

有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。