Observação: A função, método, objeto ou propriedade descrita neste tópico será desabilitada se o Serviço de Expressão de Jato da Microsoft 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 de área restrita, procure por "modo de área restrita" na Ajuda.
Retorna Cadeia de caracteres contendo caracteres de um arquivo aberto no modo de entrada ou binário .
Sintaxe
Entrada( número, [# ] número de arquivos)
A sintaxe da função de entrada tem esses argumentos:
Argumento |
Descrição |
número |
Obrigatório. Qualquer expressão numérica válido especificando o número de caracteres a serem retornados. |
número de arquivos |
Obrigatório. Qualquer número do arquivo válido . |
Comentários
Os dados lidos com a função Entrada geralmente são gravados em um arquivo com Print # ou Put. Use essa função somente com arquivos abertos no modo De entrada ou binário .
Ao contrário da instrução Entrada # , a função Input retorna todos os caracteres que lê, incluindo vírgulas, retornos de transporte, feeds de linha, aspas e espaços principais.
Com arquivos abertos para acesso binário , uma tentativa de ler o arquivo usando a função De entrada até que o 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 bytes contidos em arquivos de texto. Com o InputB, o número especifica o número de bytes a serem retornados em vez do número de caracteres a serem retornados.
Exemplo
Observação: Exemplos a seguir demonstram o uso dessa função em um módulo VBA (Visual Basic for Applications). 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 Entrada para ler um caractere por vez de um arquivo e imprimi-lo na janela Imediata . Este exemplo pressupõe que TESTFILE é 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.