返回 类型的值，指定打开的文件中当前的读/写位置。
语法
Loc(filenumber)
必选的 filenumber 是任何有效的 类型的。
注解
下面对每种文件访问模式的返回值进行了说明：
| 模式 |
返回值 |
| 随机 |
上一次对文件进行读取或写入的记录编号。 |
| 有序 |
文件中的当前字节位置除以 128 所得的值。不过，对于顺序文件，不使用也不需要使用 Loc 返回的信息。 |
| 二进制 |
上一次读取或写入的字节位置。 |
示例
注释 以下示例演示了此功能在 Visual Basic for Applications (VBA) 模块中的使用。有关使用 VBA 的详细信息，请在“搜索”旁边的下拉列表中选择“开发人员参考”，然后在搜索框中输入一个或多个词条。
此示例使用 Loc 函数返回打开的文件中当前的读/写位置。此示例假定 TESTFILE 是带有几行示例数据的文本文件。
Dim MyLocation, MyLine
' Open file just created.
Open "TESTFILE" For Binary As #1
' Loop until end of file.
Do While MyLocation < LOF(1)
' Read character into variable.
MyLine = MyLine & Input(1, #1)
' Get current position within file.
MyLocation = Loc(1)
' Print to the Immediate window.
Debug.Print MyLine; Tab; MyLocation
Loop
Close #1 ' Close file.
中国 ()
打印版
全部显示
全部隐藏