Função EOF

Importante :  Este artigo foi traduzido por um sistema de tradução automática, leia o aviso de isenção de responsabilidade. Para sua referência, veja a versão em inglês deste artigo aqui.

Observação : A função, método, objeto ou propriedade descrito neste tópico será desabilitada se o Microsoft Jet Expression Service está em execução no modo de área restrita, o que impede a avaliação das expressões possivelmente não seguras. Para obter mais informações sobre o modo seguro, procure por "modo seguro" na Ajuda.

Retorna um inteiro que contém o valor de BoolianoTrue quando o final de um arquivo aberto para aleatória ou sequencial entrada foi atingido.

Sintaxe

EOF ( filenumber )

O necessário filenumberargumento é um número inteiro contendo qualquer válido número do arquivo.

Comentários

Use EOF para evitar o erro gerado por tentar obter entrada após o final de um arquivo.

A função EOF retorna False até o final do arquivo foi atingido. Com arquivos abertos para acesso aleatório ou binário , EOF retorna False até a última executado instrução Get é impossível ler todo o registro.

Com arquivos abertos para acesso binário , uma tentativa de ler o arquivo usando a função Input até EOF retorna True gera um erro. Use as funções LOF e Loc em vez de EOF ao ler arquivos binários com entradaou uso obter quando a função EOF . Com arquivos abertos para saída, EOF sempre retorna True.

Exemplo

Observação : Exemplos a seguir demonstram o uso dessa função em um Visual Basic para módulo Applications (VBA). Para obter mais informações sobre como trabalhar com o VBA, selecione a Referência do desenvolvedor na lista suspensa ao lado de pesquisa e insira um ou mais termos na caixa de pesquisa.

Este exemplo usa a função EOF para detectar o final de um arquivo. Este exemplo pressupõe que MYFILE é um arquivo de texto com algumas linhas de texto.

Dim InputData
' Open file for input.
Open "MYFILE" For Input As #1
' Check for end of file.
Do While Not EOF(1)
' Read line of data.
Line Input #1, InputData
' Print to the Immediate window.
Debug.Print InputData
Loop
' Close file.
Close #1

Observação : Aviso de Isenção de Tradução Automática: Este artigo foi traduzido por computador, sem intervenção humana. A Microsoft oferece essas traduções automáticas para ajudar as pessoas que não falam inglês a aproveitar os textos escritos sobre produtos, serviços e tecnologias da Microsoft. Como este artigo foi traduzido automaticamente, é possível que contenha erros de vocabulário, sintaxe ou gramática.

Expanda suas habilidades
Explore o treinamento
Obtenha novos recursos primeiro
Ingressar no Office Insider

Essas informações foram úteis?

Obrigado por seus comentários!

Agradecemos pelos seus comentários! Parece que pode ser útil conectar você a um de nossos agentes de suporte do Office.

×