SEEK（函数）

• 来源: https://www.freebasic.net/wiki/wikka.php?wakka=KeyPgSeekreturn
• 最后更新: 2022-03-26

---

获取文件或设备下一次读/写操作的位置

语法

declare function Seek ( byval filenum as long ) as longint

参数

filenum

已打开文件的文件编号

返回值

下一次读取或写入操作将在此处进行的文件位置。

说明

如果文件以 Random 访问模式打开，位置以记录为单位；否则以字节为单位。返回的文件位置从 1 开始，文件的第一条记录为 1。

Seek 语句用于设置下一次读取或写入操作的位置。

示例

start GeSHi

Dim f As Long, position As LongInt

f = FreeFile
Open "file.ext" For Binary As #f

position = Seek(f)

Close #f

end GeSHi

与QB的区别

• 无

参见

• Seek (Statement)
• Loc
• Open

返回 目录