Seek （函数）
 
获取文件或设备的下一个读/写操作的位置

语法

Declare Function Seek ( ByVal filenum As Integer ) As LongInt

参数

filenum
打开文件的文件号

返回值

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

说明

如果文件以Random访问模式打开，则以记录形式显示位置，在任何其他情况下为字节。返回的文件位置为1，因此文件的第一个记录为1。

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

例子

Dim f As Integer, position As Integer

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

position = Seek(f)

Close #f


与QB差别

  • 没有

参考