IBM Lotus Symphony


Função Eof [Runtime]

Determina se o apontador de ficheiro alcançou o final de um ficheiro.

Sintaxe:

Eof (intexpression As Integer)

Valor de retorno:

Bool

Parâmetros:

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).

Códigos de erro

5 Chamada de procedimento não válido

52 Erro no nome ou número do ficheiro

Exemplo:

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


Comentários sobre o produto | Documentação adicional | Marcas comerciais