Observação: A função, método, objeto ou propriedade descrita neste tópico será desabilitada se o Serviço de Expressão de Jato da Microsoft estiver em execução no modo de área restrita, o que impede a avaliação de expressões potencialmente inseguras. Para obter mais informações sobre o modo de área restrita, procure por "modo de área restrita" na Ajuda.
Retorna um Inteiro que contém o valor BoolianoTrue quando o final de um arquivo aberto para EntradaAleatória ou Sequencial foi atingido.
Sintaxe
EOF( filenumber )
O número de arquivos necessárioargumento é um Inteiro que contém qualquer número do arquivo válido .
Comentários
Use o EOF para evitar o erro gerado ao tentar obter a entrada após o final de um arquivo.
A função EOF retorna False até que o final do arquivo tenha sido atingido. Com arquivos abertos para acesso aleatório ou binário , o EOF retorna False até que a última instrução Get executada não consiga ler um registro inteiro.
Com arquivos abertos para acesso binário , uma tentativa de ler o arquivo usando a função De entrada até que o EOF retorne True gera um erro. Use as funções LOF e Loc em vez de EOF ao ler arquivos binários com Entrada ou use Get ao usar a função EOF . Com arquivos abertos para Saída, o EOF sempre retorna True.
Exemplo
Observação: Exemplos a seguir demonstram o uso dessa função em um módulo VBA (Visual Basic for Applications). Para obter mais informações sobre como trabalhar com o VBA, selecione Referência do Desenvolvedor na lista suspensa ao lado de Pesquisar e insira um ou mais termos na caixa de pesquisa.
Este exemplo usa a função EOF para detectar o fim 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