Seek 语句
      在 Open 语句打开的文件中,设置下一个读/写操作的位置。语法Seek [#]filenumber, positionSeek 语句的语法具有以下几个部分:部分 描述 
filenumber 必要。任何有效的文件号。 
position 必要。介于 1 – 2,147,483,647 之间的数字,指出下一个读写操作将要发生的位置。 
说明在 Get 及 Put 语句中指定的记录号将覆盖由 Seek 语句指定的文件位置。若在文件结尾之后进行 Seek 操作,则进行文件写入的操作会把文件扩大。如果试图对一个位置为负数或零的文件进行 Seek 操作,则会导致错误发生。

解决方案 »

  1.   

    咳!真是的……大家忘了Seek()了?Seek返回一个 Long,在 Open 语句打开的文件中指定当前的读/写位置。语法Seek(filenumber)必要的 filenumber 参数是一个包含有效文件号的 Integer。说明Seek 函数返回介于 1 和 2,147,483,647(相当于 2^31爾}?)之间的值。对各种文件访问方式的返回值如下:方式 返回值
    Random 下一个读出或写入的记录号。
    Binary,
    Output,
    Append,
    Input 下一个操作将要发生时所在的字节位置。文件中的第一个字节位于位置 1,第二个字节位于位置 2,依此类推。
    可以这样:Seek #1,Seek(1)-1倒退1个单位
      

  2.   


    Seek #1,Seek(1)-1
    倒退1个单位
    同样,从文件末尾倒退可以用:
    Seek #1,FileLen(szMyFile)- pos