Função EOF

Artigo
08/25/2010

Retorna um valor booliano True Quando o participante de um arquivo aberto para Random ou seqüenciais Input foi atingido.

Public Function EOF(ByVal FileNumber As Integer) As Boolean

Parâmetros

FileNumber
Obrigatório.An Integer que contém qualquer número de arquivo válido.

Exceções

Tipo de exceção	Número de erro	Condição
IOException	52	FileNumber não existe.
IOException	54	Modo de arquivo é inválido.

Ver a coluna " número de erro " se você estiver atualizando aplicativos Visual Basic 6.0 que usam manipulação de erros não estruturada.(Você pode comparar o número do erro com a Propriedade do Número (Erro de objeto).) Entretanto, quando for possivel, você pode considerar substituir tal controle de erro por Visão Geral sobre a Manipulação Estruturada de Exceções para o Visual Basic.

Comentários

Use EOF Para evitar o erro gerado ao tentar obter entrada após o participante de um arquivo.

The EOF função retorna False até o participante do arquivo tem sido atingido. Com arquivos abertos para Random ou Binary acesso, EOF Retorna False até que a última execução FileGet função não pode ler um registro inteiro.

Com arquivos abertos para acesso Binary,uma tentativa para ler o arquivo usando a função Input até que EOF retorne True gerará um erro.Use as funções LOF e Loc em vez de EOF ao ler arquivos binários com Input,ou use Get quando usar a função EOF.Com arquivos abertos para Output, EOF sempre retorna True.

Exemplo

Este exemplo usa o EOF função para detectar o participante de um arquivo. Este exemplo assume que Testfile é um arquivo de texto com algumas linhas de texto.

Dim TextLine As String
' Open file.
FileOpen(1, "TESTFILE", OpenMode.Input)
' Loop until end of file.
Do While Not EOF(1) 
' Read line into variable.
   TextLine = LineInput(1)
' Display result in a message box.
   MsgBox("End of file reached at " & TextLine)
Loop
FileClose(1)