Mostrar tudo

Ocultar tudo

Devolve uma Cadeia (tipo de dados em cadeia: tipo de dados fundamental que contém caracteres, um carácter por 2 bytes. Uma cadeia de comprimento fixo pode conter caracteres de 1 a 64K; uma cadeia de comprimento variável pode conter de 1 a 2 mil milhões.) que contém caracteres de um ficheiro aberto em modo de Entrada ou Binário.

Sintaxe

Entrada(número, [# ] númeroficheiro)

A sintaxe da função Entrada tem os seguintes argumentos:

Observações

Normalmente, os dados lidos com a função Entrada são escritos num ficheiro com N.º Impressão ou Colocar. Utilize esta função só com ficheiros abertos em modo de Entrada ou Binário.

Ao contrário da instrução N.º Entrada, a função Entrada devolve todos os caracteres que lê, incluindo vírgulas, símbolos de retorno, avanços de linha, aspas e espaços em branco.

Com os ficheiros abertos para acesso Binário, uma tentativa de leitura através do ficheiro, utilizando a função Entradaaté que EOF devolva um valor Verdadeiro, gera um erro. Utilize as funções LOF e Loc, em vez de EOF, quando efectuar a leitura de ficheiros binários com a função Entrada , ou utilize Obter quando utilizar a função EOF.

 Nota    Utilize a função CEntrada para dados de bytes incluídos em ficheiros de texto. Com CEntrada, número especifica o número de bytes, em vez do número de caracteres a devolver.

Exemplo

 Nota   Os exemplos que se seguem demonstram a utilização desta função num módulo do Visual Basic for Applications (VBA). Para mais informações sobre como trabalhar com VBA, seleccione Referência para Programadores na lista pendente junto a Procurar e introduza um ou mais termos na caixa de procura.

Este exemplo utiliza a função Entrada para ler um carácter de cada vez a partir de um ficheiro e imprime-o na janela Immediate. Este exemplo assume que TESTFILE é um ficheiro de teste 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.