Bookshelf Home | Contents | Index | Search | PDF | ![]() ![]() ![]() ![]() |
Siebel VB Language Reference > Siebel VB Language Reference >
Seek Function
This standard VB function returns the current file position for an open file.
Syntax
Seek(filenumber)
Returns
The position in the file for the next operation.
Usage
For files opened in random mode, Seek returns the number of the next record to be read or written. For other modes, Seek returns the file offset for the next operation. The first byte in the file is at offset 1, the second byte is at offset 2, and so on. The return value is a long.
Example
This example reads the contents of a sequential file line by line (to a carriage return) and displays the results. The second subprogram,
CreateFile
, creates the filec:\temp001
used by the main subprogram.(general) (declarations)
Option Explicit
Declare Sub CreateFileSub CreateFile
Rem Put the numbers 10-100 into a file
Dim x as Integer
Open "c:\temp001" for Output as #1
For x = 10 to 100 step 10
Write #1, x
Next x
Close #1
End SubSub Button_Click
Dim testscore as String
Dim x
Dim y
Dim newline
Call CreateFile
Open "c:\temp001" for Input as #1
x = 1
newline = Chr(10)
msgtext = "The test scores are: " & newline
Do Until x = Lof(1)
Line Input #1, testscore
x = x + 1
y = Seek(1)
If y>Lof(1) then
x = Lof(1)
Else
Seek 1,y
End If
msgtext = msgtext & newline & testscore
Loop
Close #1
Kill "c:\temp001"
End SubSee Also
Bookshelf Home | Contents | Index | Search | PDF | ![]() ![]() ![]() ![]() |
Siebel VB Language Reference Published: 18 June 2003 |