Loc (Función)
Actualización: noviembre 2007
Devuelve un valor Long que especifica la posición actual de lectura o escritura en un archivo abierto.
Public Function Loc(ByVal FileNumber As Integer) As Long
Parámetros
- FileNumber
Requerido. Cualquier número de archivo Integer válido.
Excepciones
Tipo de excepción |
Número de error |
Condición |
---|---|---|
FileNumber no existe. |
||
El modo de archivo no es válido. |
Consulte la columna "Número de error" si está actualizando aplicaciones de Visual Basic 6.0 que utilizan el control de errores no estructurado. (Se puede comparar el número de error con respecto a Number (Propiedad, objeto Err)). Sin embargo, siempre que sea posible, se debe considerar la sustitución de dicho control de errores por Información general sobre el control estructurado de excepciones de Visual Basic.
Comentarios
La función Loc se basa en cero; si se utiliza para obtener el primer byte de un archivo, devuelve 0.
La función Loc se suministra a efectos de compatibilidad con versiones anteriores y puede tener un impacto en el rendimiento. En el caso de aplicaciones no heredadas, el objeto My.Computer.FileSystem proporciona un rendimiento superior. Para obtener más información, vea Acceso a archivos con Visual Basic.
En la siguiente tabla se describe el valor devuelto para cada modo de acceso a archivos:
Modo |
Valor devuelto |
---|---|
Random |
Número del último registro leído o escrito en el archivo. |
Sequential |
Posición de byte actual en el archivo dividida por 128. Sin embargo, la información que devuelve Loc para los archivos secuenciales no se utiliza ni se necesita. |
Binary |
Posición del último byte leído o escrito. |
Ejemplo
En este ejemplo se utiliza la función Loc para devolver la posición actual de lectura o escritura en un archivo abierto. En este ejemplo se supone que MyFile es un archivo de texto con unas pocas líneas de datos de ejemplo.
Dim location As Long
Dim oneChar As Char
FileOpen(1, "C:\TESTFILE.TXT", OpenMode.Binary)
While location < LOF(1)
Input(1, oneChar)
location = Loc(1)
WriteLine(1, location & ControlChars.CrLf)
End While
FileClose(1)
Notas para desarrolladores de dispositivos inteligentes
Esta función no es compatible.
Requisitos
Espacio de nombres:Microsoft.VisualBasic
**Módulo:**FileSystem
**Ensamblado:**Visual Basic Runtime Library (en Microsoft.VisualBasic.dll)