注意: 如果 Microsoft Jet 表达式服务在沙盒模式下运行,则禁用本主题中所述的函数、方法、对象或属性,这会阻止计算潜在的不安全表达式。 有关沙盒模式的详细信息,请在“帮助”中搜索“沙盒模式”。
返回一个 Long 类型的值,指定打开文件中的当前读/写位置。
语法
Loc ( filenumber )
所需的 filenumber参数 是任何有效的整数 文件编号 。
备注
下面介绍了每个文件访问模式的返回值:
Mode |
返回值 |
随机 |
从文件读取或写入文件的最后一条记录的编号。 |
顺序 |
文件中的当前字节位置除以 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.