Nota
A função, método, objeto ou propriedade descrita neste tópico será desativada se o Serviço Microsoft Jet Expression estiver em execução no modo sandbox, o que impede a avaliação de expressões potencialmente não seguras. Para obter mais informações sobre o modo sandbox, pesquise "modo sandbox" na Ajuda.
Devolve Cadeia que contém carateres de um ficheiro aberto no modo de Entrada ou binário .
Sintaxe
Input(number, [# ] filenumber)
A sintaxe da função Entrada tem os seguintes argumentos:
| Argumento | Descrição |
|---|---|
| número | Obrigatório. Qualquer expressão numérica válida que especifique o número de carateres a devolver. |
| número de ficheiro | Obrigatório. Qualquer número de ficheiro válido. |
Observações
Normalmente, os dados lidos com a função Entrada são gravados num ficheiro com Print # ou Put. Use esta função apenas com arquivos abertos no modo binário ou de entrada.
Ao contrário da instrução Input # , a função Input devolve todos os carateres que lê, incluindo vírgulas, símbolos de retorno, avanços de linha, aspas e espaços à esquerda.
Com arquivos abertos para acesso binário , uma tentativa de ler o arquivo usando a função Input até que EOF retorne True gera um erro. Utilize as funções LOF e LOC em vez de EOF ao ler ficheiros binários com a função Input ou utilize Obter ao utilizar a função EOF.
Nota
Utilize a função EntradaB para dados de byte contidos em ficheiros de texto. Com InputB, number especifica o número de bytes a devolver e não o número de carateres 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 Input para ler um caráter de cada vez a partir de um ficheiro e imprimi-lo para a janela Immediate . Este exemplo pressupõe que TESTFILE se trata de um ficheiro de texto com algumas linhas de dados de exemplo.
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.