Loc 函数

应用对象
Microsoft 365 专属 Access Access 2021 Access 2019 Access 2016

注意

如果 Microsoft Jet 表达式服务在沙盒模式下运行，则禁用本主题中所述的函数、方法、对象或属性，从而阻止计算潜在的不安全表达式。 有关沙盒模式的详细信息，请在“帮助”中搜索“沙盒模式”。

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

语法

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.