Função Entrada

Nota: A função, método, objeto ou propriedade descrito neste tópico é desativada se o Microsoft Jet Expression Service estiver a funcionar em modo sandbox, o que impede a avaliação de expressões potencialmente inseguras. Para obter mais informações sobre o modo sandbox, procure "modo sandbox" em Ajuda.

Retornas Cadeia contendo caracteres de um ficheiro aberto no modo Entrada ou Binário.

Sintaxe

Entrada( número de ficheiros)

A sintaxe da função Entrada tem estes argumentos:

Argumento

Descrição

número

Obrigatório. Qualquer expressão numérica válido especificando o número de caracteres a devolver.

número de arquivo

Obrigatório. Qualquer número de ficheiro válido.


Observações

Os dados lidos com a função Entrada são normalmente escritos num ficheiro com Imprimir # ou Colocar. Utilize esta função apenas com ficheiros abertos no modo Entrada ou Binário.

Ao contrário da declaração Input #, a função Entrada devolve todos os caracteres que lê, incluindo vírgulas, devoluções de carruagens, linefeeds, aspas e espaços líderes.

Com ficheiros abertos para acesso binário, uma tentativa de ler através do ficheiro utilizando a função Entrada até que a EOF retorna True gera um erro. Utilize as funções LOF e Loc em vez de EOF ao ler ficheiros binários com entrada, ou use Get quando utilizar a função EOF.

Nota:  Utilize a função InputB para obter dados byte contidos nos ficheiros de texto. Com o InputB,o número especifica o número de bytes a devolver em vez do número de caracteres a devolver.

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 como 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 Entrada para ler um personagem de cada vez a partir de um ficheiro e imprimi-lo na janela Imediata. Este exemplo pressupõe que TESTFILE é um ficheiro de texto com algumas linhas de dados de amostra.

Dim MyChar
Open "TESTFILE" For Input As #1 ' Open file.
Do While Not EOF(1) ' Loop until end of file.
MyChar = Input(1, #1) ' Get one character.
Debug.Print MyChar ' Print to the Immediate window.
Loop
Close #1 ' Close file.

Precisa de mais ajuda?

Aumente os seus conhecimentos do Office
Explore as formações
Seja o primeiro a obter novas funcionalidades
Adira ao Office Insider