IBM Lotus Symphony
|
Determina se o apontador de ficheiro alcançou o final de um ficheiro.
Eof (intexpression As Integer)
Bool
Intexpression: Qualquer expressão de valor inteiro que calcule o número de um ficheiro aberto.
Utilize EOF para evitar erros quando tentar obter entrada de dados após o final de um ficheiro. Sempre que utilizar a instrução Input ou Get para ler dados a partir de um ficheiro, o apontador de ficheiro é avançado pelo número de bytes lidos. Quando o final do ficheiro for alcançado, EOF devolve o valor "True" (-1).
Sub ExampleWorkWithAFile
Dim iNumber As Integer
Dim sLine As String
Dim aFile As String
Dim sMsg as String
aFile = "c:\data.txt"
iNumber = Freefile
Open aFile For Output As #iNumber
Print #iNumber, "First line of text"
Print #iNumber, "Another line of text"
Close #iNumber
iNumber = Freefile
Open aFile For Input As iNumber
While not eof(iNumber)
Line Input #iNumber, sLine
If sLine <>"" then
sMsg = sMsg & sLine & chr(13)
end if
wend
Close #iNumber
Msgbox sMsg
End Sub