注意: 如果 Microsoft Jet Expression Service 在沙盒模式下运行,则禁用本主题中所述的函数、方法、对象或属性,这会阻止评估可能不安全的表达式。 有关沙盒模式的详细信息,请搜索"帮助"中的"沙盒模式"。

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

语法

Loc ( filenumber )

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

备注

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

Mode

返回值

随机

从文件读取或写入文件的最后一条记录数。

顺序

文件中当前的字节位置除以 128。 但是 ,Loc 为顺序文件返回的信息既不使用也不是必需的。

二进制

最后一个字节读取或写入的位置。


示例

注意: 以下示例演示了在 VBA Visual Basic for Applications (模块) 函数。 有关使用 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.

Need more help?

Expand your skills
Explore Training
Get new features first
Join Microsoft Office Insiders

Was this information helpful?

How satisfied are you with the translation quality?
What affected your experience?

Thank you for your feedback!

×