SEEK（语句）

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

---

设置文件下一次读/写操作的位置

语法

Seek [#]filenum, position

参数

filenum

已打开文件的文件编号

position

I/O 操作的新位置

说明

设置文件下一次读取或写入操作将发生的位置。

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

Seek 函数用于获取下一次读取或写入操作的位置。

示例

start GeSHi

' e.g. if you want to skip to the 100th byte in the file for reading/writing:

Dim f As Long

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

Seek f, 100

Close #f

end GeSHi

与QB的区别

• 无

参见

• Seek (Function)
• Open

返回 目录