Applies ToAccess para Microsoft 365 Access 2024 Access 2021 Access 2019 Access 2016

Nota: A função, método, objeto ou propriedade descrita neste tópico está 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 inseguras. Para obter mais informações sobre o modo sandbox, procure "modo sandbox" na Ajuda.

Devolve Cadeia contendo carateres de um ficheiro aberto no modo De Entrada ou Binário .

Sintaxe

Input( number, [# ] filenumber)

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

Argumento

Descrição

número

Obrigatório. Qualquer expressão numérica válido 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 Input são escritos num ficheiro com Imprimir # ou Colocar. Utilize esta função apenas com ficheiros abertos no modo De Entrada ou Binário .

Ao contrário da instrução Input # , a função Input devolve todos os carateres que lê, incluindo vírgulas, símbolos de retorno, linefeeds, aspas e espaços à esquerda.

Com os ficheiros abertos para acesso binário , uma tentativa de ler o ficheiro através da função Entrada até o EOF devolver Verdadeiro gera um erro. Utilize as funções LOF e Loc em vez de EOF ao ler ficheiros binários com Entrada ou utilize Obter ao utilizar a função EOF .

Nota:  Utilize a função InputB para dados de bytes contidos em ficheiros de texto. Com InputB, o número especifica o número de bytes a devolver em vez do 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 na janela Imediato . Este exemplo pressupõe que TESTFILE é um ficheiro de texto com algumas linhas de dados de exemplo.

Dim MyCharOpen "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.LoopClose #1    ' Close file.

Precisa de mais ajuda?

Quer mais opções?

Explore os benefícios da subscrição, navegue em cursos de formação, saiba como proteger o seu dispositivo e muito mais.

As comunidades ajudam-no a colocar e a responder perguntas, a dar feedback e a ouvir especialistas com conhecimentos abrangentes.