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 un valor Long que especifica la posición de lectura y escritura actual dentro de un archivo abierto.
Sintaxis
Loc( filenumber )
Elargumentofilenumber obligatorio es cualquier número de archivo Integer válido.
Comentarios
A continuación se describe el valor devuelto para cada modo de acceso a archivos:
|
Moda |
Valor devuelto |
|
Aleatorio |
Número del último registro leído o escrito en el archivo. |
|
Secuencial |
Posición del byte actual en el archivo dividido por 128. Sin embargo, la información devuelta por Loc para los archivos secuenciales no se usa ni es necesaria. |
|
Binario |
Posición del último byte leído o escrito. |
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 Loc para devolver la posición de lectura y escritura actual dentro de 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.
