Bookshelf Home | Contents | Index | Search | PDF |
Siebel VB Language Reference > Siebel VB Language Reference >
Eof Function
This standard VB function is used to determine whether the end of an open file has been reached.
Syntax
Eof(filenumber)
Returns
The value -1 if the end of the specified open file has been reached, 0 otherwise.
Usage
For more information about assigning numbers to files when they are opened, read Open Statement.
Example
This example uses the Eof function to read records from a Random file, using a Get statement. The Eof function keeps the Get statement from attempting to read beyond the end of the file. The subprogram,
CreateFile
, creates the fileC:\TEMP001
used by the main subprogram. For another example, read FileDateTime Function.(general) (declarations)
Option Explicit
Declare Sub CreateFileSub CreateFile
' Put the numbers 1-10 into a file
Dim x as Integer
Open "C:\TEMP001" for Output as #1
For x = 1 to 10
Write #1, x
Next x
Close #1
End SubSub Button_Click
Dim acctno
Dim msgtext as String
newline = Chr(10)
Call CreateFile
Open "C:\temp001" For Input As #1
msgtext = "The account numbers are:" & newline
Do While Not Eof(1)
Input #1,acctno
msgtext = msgtext & newline & acctno & newline
Loop
Close #1
Kill "C:\TEMP001"
End SubSee Also
Get Statement
Input Function
Input Statement
Line Input Statement
Loc Function
Lof Function
Open Statement
Bookshelf Home | Contents | Index | Search | PDF |
Siebel VB Language Reference Published: 18 June 2003 |