Nota: La función, método, objeto o propiedad descrita en este tema se deshabilita si el Servicio de expresiones de Microsoft Jet se ejecuta en modo de espacio aislado, lo que impide la evaluación de expresiones potencialmente no seguras. Para obtener más información sobre el modo de espacio aislado, busca "modo de espacio aislado" en la Ayuda.
Devuelve String que contiene caracteres de un archivo abierto en modo de entrada o binario .
Sintaxis
Input( number, [# ] filenumber)
La sintaxis de la función Entrada tiene estos argumentos:
|
Argumento |
Descripción |
|
número |
Obligatorio. Cualquier expresión numérica válida que especifique el número de caracteres que se devolverán. |
|
filenumber |
Requerido. Cualquier número de archivo válida. |
Observaciones
Los datos leídos con la función Entrada normalmente se escriben en un archivo con Imprimir # o Colocar. Use esta función solo con archivos abiertos en modo de entrada o binario .
A diferencia de la instrucción Input # , la función Input devuelve todos los caracteres que lee, incluidas comas, retornos de carro, suministros de línea, comillas y espacios iniciales.
Con los archivos abiertos para el acceso binario , un intento de leer el archivo con la función Entrada hasta que EOF devuelve True genera un error. Use las funciones LOF y Loc en lugar de EOF al leer archivos binarios con La entrada, o bien use Obtener al usar la función EOF .
Nota: Use la función InputB para los datos de byte contenidos en archivos de texto. Con InputB, number especifica el número de bytes que se devolverán en lugar del número de caracteres que se devolverán.
Ejemplo
Nota: Los ejemplos siguientes muestran el uso de esta función en un módulo de Visual Basic para Aplicaciones (VBA). Para obtener más información sobre cómo trabajar con VBA, seleccione referencia para desarrolladores en la lista desplegable situada junto a búsqueda y escriba uno o varios términos en el cuadro de búsqueda.
En este ejemplo se usa la función Entrada para leer un carácter a la vez desde un archivo e imprimirlo en la ventana Inmediato . En este ejemplo se supone que TESTFILE es un archivo de texto con algunas líneas de datos de ejemplo.
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.
