Función Loc

Nota:  Nos gustaría proporcionarle el contenido de ayuda actual lo más rápido posible en su idioma. Esta página se ha traducido mediante un sistema automático y es posible que contenga imprecisiones o errores gramaticales. Nuestro objetivo es que este contenido sea útil para usted. ¿Puede informarnos sobre si la información le ha sido útil al final de la página? Aquí tiene el artículo en inglés para que pueda consultarlo fácilmente.

Nota: La función, el método, el objeto o la propiedad descritas en este tema se desactiva si se está ejecutando el servicio de expresión Microsoft Jet en modo de recinto de seguridad, lo que evita la evaluación de expresiones potencialmente no seguras. Para obtener más información sobre el modo de recinto de seguridad, busque "modo de recinto de seguridad" en la Ayuda.

Devuelve un valor Long que especifica la posición actual de lectura y escritura en un archivo abierto.

Sintaxis

Loc ( númeroarchivo )

El requerido númeroarchivoargumento es cualquier número entero válido número de archivo.

Comentarios

La siguiente describe el valor devuelto para cada modo de acceso del archivo:

Modo

Valor devuelto

Aleatorio

Número del último registro de leer o escribir en el archivo.

Secuenciales

Posición de byte actual en el archivo dividida por 128. Sin embargo, la información devuelta por Loc para archivos secuenciales no se utiliza ni se requiere.

Binario

Posición del último byte leído o escrito.


Ejemplo

Nota: Los ejemplos siguientes muestran el uso de esta función en un Visual Basic para aplicaciones (VBA). Para obtener más información sobre cómo trabajar con VBA, seleccione la Referencia del programador en la lista desplegable situada junto a Buscar y escriba uno o varios términos en el cuadro de búsqueda.

Este ejemplo usa la función Loc para devolver la posición actual de lectura y escritura en un archivo abierto. En este ejemplo se supone que TESTFILE es un archivo de texto con algunas líneas de datos de ejemplo.

Dim MyLocation, MyLine
' Open file just created.
Open "TESTFILE" For Binary As #1
' Loop until end of file.
Do While MyLocation < LOF(1)
' Read character into variable.
MyLine = MyLine & Input(1, #1)
' Get current position within file.
MyLocation = Loc(1)
' Print to the Immediate window.
Debug.Print MyLine; Tab; MyLocation
Loop
Close #1 ' Close file.
Ampliar sus conocimientos de Office
Explorar los cursos
Obtener nuevas características primero
Únase a los participantes de Office Insider

¿Le ha sido útil esta información?

¡Gracias por sus comentarios!

Gracias por sus comentarios. Quizá le interese ponerse en contacto con uno de nuestros agentes de soporte de Office.

×