Seek (function)

Syntax

Seek(filenumber)

Description

Returns the position of the file pointer in a file relative to the beginning of the file.

Comments

The filenumber parameter is a number that the Basic Control Engine uses to refer to the open file—the number passed to the Open statement.

The value returned depends on the mode in which the file was opened:

 

File Mode

Returns

 

Input

Byte position for the next read.

 

Output

Byte position for the next write.

 

Append

Byte position for the next write.

 

Random

Number of the next record to be written or read.

 

Binary

Byte position for the next read or write.

 

The value returned is a Long between 1 and 2147483647, where the first byte (or first record) in the file is 1.

Example

This example opens a file for random write, then writes ten records into the file using the PUT statement. The file position is displayed using the Seek Function, and the file is closed.

Sub Main()
  Open "test.dat" For Random Access Write As #1
  For x = 1 To 10
    r% = x * 10
    Put #1,x,r%
  Next x
  y = Seek(1)
  MsgBox "The current file position is: " & y
  Close
End Sub

See Also

Seek (statement); Loc (function).

More information

S