Contenido
La instrucción `Seek` en VBA se usa principalmente en conjunto con operaciones de archivo para cambiar la posición actual del puntero de lectura/escritura en un archivo abierto con las funciones `Open` o `OpenText`. Puede ser útil cuando quieres empezar a leer o escribir en un punto específico de un archivo en lugar de hacerlo desde el principio o continuando desde la posición actual.
`Seek` se utiliza con archivos abiertos en modo Acceso Aleatorio (Random), Binario (Binary), Secuencial de Entrada o Salida (Input/Output). Aquí te muestro cómo usar la instrucción `Seek` en diversos contextos:
Uso Básico de Seek
Dim FileNumber As Integer
Dim FilePath As String
Dim Data As String
' Define la ruta del archivo. Asegúrate de cambiar esto por una ruta válida en tu sistema.
FilePath = "C:miArchivo.txt"
' Obtiene el siguiente número de archivo disponible.
FileNumber = FreeFile()
' Abre el archivo en modo Binario.
Open FilePath For Binary As #FileNumber
' Mover el puntero al byte deseado (por ejemplo, al tercer byte).
Seek #FileNumber, 3
' Lee una cadena del archivo a partir de la posición actual del puntero.
Data = Input(5, #FileNumber) ' Lee los siguientes 5 bytes
' Cerrar el archivo.
Close #FileNumber
Ejemplo en el Modo Acceso Aleatorio
En el modo Acceso Aleatorio, `Seek` se usa para mover el puntero al registro que deseas leer o escribir. Cada registro tiene un tamaño fijo definido por la estructura de datos que estás utilizando. Aquí hay un ejemplo básico:
Type Employee
ID As Integer
Name As String * 20
Position As String * 20
End Type
Dim emp As Employee
Dim FileNumber As Integer
Dim FilePath As String
FilePath = "C:Empleados.dat"
FileNumber = FreeFile()
Open FilePath For Random As #FileNumber Len = Len(emp)
' Mover al tercer registro
Seek #FileNumber, 3
' Leer el tercer registro
Get #FileNumber, , emp
' Cambiar algún valor del registro
emp.Name = "Actualizar Nombre"
' Moverse nuevamente al tercer registro para actualizarlo
Seek #FileNumber, 3
' Escribir el registro actualizado
Put #FileNumber, , emp
Close #FileNumber
En este script, `Seek` se utiliza para mover el puntero a la posición del tercer registro antes de leer (con `Get`) y luego actualizar (con `Put`) el contenido del archivo.
Seek con Archivos de Texto
Cuando trabajas con archivos de texto abiertos en los modos Secuencial de Entrada (`Input`) o Salida (`Output`), el uso de `Seek` es más limitado, porque estos modos son principalmente para la lectura y escritura secuenciales de texto. En estos casos, normalmente no usarías `Seek`.
`Seek` es más común y útil con archivos abiertos en modos Binario o Acceso Aleatorio cuando necesitas un control más detallado sobre la posición de lectura y escritura dentro de un archivo.
Conoce nuestra tienda
Ver más productos
Mejora tu nivel y logra tus objetivo
Excel
Access
Power BI
