Observação
A função, o método, o objeto ou a propriedade descrita neste tópico será desabilitada se o Serviço de Expressão do Microsoft Jet estiver em execução no modo de área restrita, o que impede a avaliação de expressões potencialmente inseguras. Para obter mais informações sobre o modo sandbox, pesquise "modo sandbox" na Ajuda.
Retorna uma cadeia de caracteres que contém caracteres de um arquivo 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 especifica o número de caracteres a ser retornado. |
| número do arquivo | Obrigatório. Qualquer número de arquivo válido. |
Comentários
Os dados lidos com a função Input geralmente são gravados em um arquivo com Print # ou Put. Use esta função somente com arquivos abertos no modo de entrada ou binário .
Ao contrário da instrução Input # , a função Input retorna todos os caracteres que lê, incluindo vírgulas, retornos de carro, alimentação de linha, aspas e espaços à esquerda.
Com os 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. Use as funções LOF e Loc em vez de EOF ao ler arquivos binários com Entrada ou use Get ao usar a função EOF .
Observação
Use a função InputB para dados de byte contidos em arquivos de texto. Com a EntradaB, número especifica o número de bytes a serem retornados em vez do número de caracteres a serem retornados.
Exemplo
Observação
Os exemplos a seguir demonstram o uso dessa função em um módulo do Visual Basic for Applications (VBA). Para obter mais informações sobre como trabalhar com o VBA, selecione Referência do desenvolvedor na lista suspensa ao lado de Pesquisar e insira um ou mais termos na caixa de pesquisa.
Este exemplo usa a função Input para ler um caractere por vez de um arquivo e imprimi-lo na janela Immediate . Este exemplo pressupõe que TESTFILE seja um arquivo 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.