Função EOF

Devolve um Número Inteiro que contém o valor BooleanoVerdadeiro quando o fim de um ficheiro aberto para EntradaAleatória ou Sequencial foi atingido.

Sintaxe

EOF(número de ficheiro)

O argumentofilenumber necessário é um Número Inteiro que contém qualquer número de ficheiro válido.

Comentários

Utilize o EOF para evitar o erro gerado ao tentar obter entradas para além do fim de um ficheiro.

A função EOF devolve Falso até o fim do ficheiro ser atingido. Com os ficheiros abertos para acesso Aleatório ou Binário , o EOF devolve Falso até que a última instrução Get executada não consiga ler um registo inteiro.

Com os ficheiros abertos para acesso binário , uma tentativa de ler o ficheiro através da função Input até o EOF devolver Verdadeiro gera um erro. Utilize as funções LOF e Loc em vez de EOF ao ler ficheiros binários com Entrada ou utilize Obter ao utilizar a função EOF . Com os ficheiros abertos para Saída, o EOF devolve sempre Verdadeiro.

Exemplo

Este exemplo utiliza a função EOF para detetar o fim de um ficheiro. Este exemplo pressupõe que MYFILE se trata de um ficheiro de texto com algumas linhas de texto.

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

Confira também

• Funções (Visual Basic for Applications)

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.