Loc 函数

项目
08/18/2008

更新：2007 年 11 月

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

Public Function Loc(ByVal FileNumber As Integer) As Long

参数

FileNumber
必选。任何有效的 Integer 文件号。

异常

异常类型	错误号	条件
IOException	52	FileNumber 不存在。
IOException	54	文件模式无效。

如果正在升级使用无结构错误处理的 Visual Basic 6.0 应用程序，请参见“错误号”一列。（您可以根据 Number 属性（Err 对象）比较错误号。）然而，如果可能，应当考虑用 Visual Basic 的结构化异常处理概述替换这种错误控制。

备注

Loc 函数从零开始，使用此函数获取文件中的第一个字节将返回 0。

提供 Loc 函数是为了实现向后兼容性，可能会影响性能。对于非旧式应用程序，My.Computer.FileSystem 对象将提供更好的性能。有关更多信息，请参见使用 Visual Basic 访问文件。

各文件访问模式的返回值如下：

模式	返回值
Random	上次从文件读取或写入文件的记录号。
Sequential	文件中的当前字节位置除以 128 的值。但是，既不使用也不需要 Loc 为顺序文件返回的信息。
Binary	上次读取或写入的字节位置。

示例

本示例使用 Loc 函数返回打开文件中的当前读/写位置。本示例假设 MyFile 是包含几行示例数据的文本文件。

Dim location As Long
Dim oneChar As Char
FileOpen(1, "C:\TESTFILE.TXT", OpenMode.Binary)
While location < LOF(1)
   Input(1, oneChar)
   location = Loc(1)
   WriteLine(1, location & ControlChars.CrLf)
End While
FileClose(1)