IBM Lotus Symphony


Função Eof [Tempo de Execução]

Determina se o ponteiro de arquivo atingiu o final de um arquivo.

Sintaxe:

Eof (intexpression As Integer)

Valores de Retorno:

Booleano

Parâmetros:

Intexpression: Qualquer expressão de números inteiros que computa o número de um arquivo aberto.

Use EOF para evitar erros quando tentar obter entrada após o final de um arquivo. Ao usar a instrução Input ou Get para ler a partir de um arquivo, o ponteiro de arquivo será avançado pelo número de bytes lidos. Quando for atingido o final de um arquivo, EOF retornará o valor "True" (-1).

Códigos de Erro

5 Chamada de procedimento inválida

52 Nome ou número de arquivo inválido

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, "Primeira linha de texto"

Print #iNumber, "Outra linha de texto"

Fechar #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

Fechar #iNumber

Msgbox sMsg

End Sub


Feedback do Produto | Documentação Adicional | Marcas Registradas