Função EOF

Nota: Queremos fornecer-lhe os conteúdos de ajuda mais recentes o mais rapidamente possível e no seu idioma. Esta página foi traduzida automaticamente e pode conter erros gramaticais ou imprecisões. O nosso objetivo é que estes conteúdos lhe sejam úteis. Pode informar-nos se as informações foram úteis no final desta página? Eis o artigo em inglês para referência.

Nota: A função, método, objeto ou propriedade descritas neste tópico é desativada se o serviço do Microsoft Jet expressão estiver em execução no modo sandbox, que impede a avaliação de expressões potencialmente inseguros. Para obter mais informações sobre o modo sandbox, procure "o modo sandbox" na ajuda.

Devolve um número inteiro que contém o valor de booleanoVerdadeiro quando o fim de um ficheiro aberto para aleatório ou atingiu sequenciais entrada .

Sintaxe

EOF ( númeroficheiro )

O necessários númeroficheiroargumento é um número inteiro que contenham qualquer válido número de ficheiro.

Comentários

Utilize EOF para evitar erros gerados pelo tentar obter entradas anteriores ao fim de um ficheiro.

A função EOF devolve Falso até atingiu o fim do ficheiro. Com os ficheiros abertos para acesso aleatório ou binário , EOF devolve Falso até que a última executado instrução Get não consegue ler a totalidade do registo.

Com os ficheiros abertos para acesso binário , uma tentativa para ler através do ficheiro utilizando a função entrada até EOF devolve True gera um erro. Utilize as funções LOF e Loc em vez de EOF durante a leitura de ficheiros binários com entradaou utilize a obter quando utilizar a função EOF . Com os ficheiros abertos para saída, EOF sempre devolve True.

Exemplo

Nota: Os exemplos seguintes demonstram a utilização desta função no módulo VBA (Visual Basic for Applications). Para obter mais informações sobre trabalhar com o VBA, selecione Referência para Programadores na lista pendente junto a Procurar e introduza um ou mais termos na caixa de pesquisa.

Este exemplo utiliza a função EOF para detetar o fim de um ficheiro. Este exemplo assume que MYFILE é um ficheiro 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
Aumente os seus conhecimentos do Office
Explore as formações
Seja o primeiro a obter novas funcionalidades
Adira ao Office Insider

As informações foram úteis?

Obrigado pelos seus comentários!

Obrigado pelo seu feedback! Parece que poderá ser benéfico reencaminhá-lo para um dos nossos agentes de suporte do Office.

×