Instrucción Seek

Establece la posición de la siguiente operación de lectura y escritura dentro de un archivo abierto mediante la instrucción Open .

Sintaxis

Seek [ # ] filenumber, position

La sintaxis de la instrucción Seek tiene estas partes:

Parte	Descripción
númeroArchivo	Obligatorio. Cualquier número de archivo válido.
position	Obligatorio. Número del rango 1 – 2,147,483,647, incluidos, que indica dónde debe producirse la siguiente operación de lectura/escritura.

Comentarios

Los números de registro especificados en las instrucciones Get y Put invalidan el posicionamiento de archivos realizado por Seek.

La realización de una operación de escritura de archivos tras una operación Seek más allá del final de un archivo extiende el archivo. Si intenta una operación Seek en una posición negativa o cero, se produce un error.

Ejemplo:

Este ejemplo usa la instrucción Seek para establecer la posición para la siguiente lectura o escritura dentro de un archivo. En este ejemplo se supone que es un archivo que TESTFILE contiene registros del tipo Recorddefinido por el usuario .

Type Record ' Define user-defined type. 
 ID As Integer 
 Name As String * 20 
End Type 

Para los archivos abiertos en el modo aleatorio, Seek establece el siguiente registro.

Dim MyRecord As Record, MaxSize, RecordNumber ' Declare variables. 
' Open file in random-file mode. 
Open "TESTFILE" For Random As #1 Len = Len(MyRecord) 
MaxSize = LOF(1) \ Len(MyRecord) ' Get number of records in file. 
' The loop reads all records starting from the last. 
For RecordNumber = MaxSize To 1 Step - 1 
 Seek #1, RecordNumber ' Set position. 
 Get #1, , MyRecord ' Read record. 
Next RecordNumber 
Close #1 ' Close file. 

Para los archivos en modos distintos al modo aleatorio, Seek establece la posición de byte en la que tiene lugar la siguiente operación. En este ejemplo se supone que es un archivo que TESTFILE contiene algunas líneas de texto.

Dim MaxSize, NextChar, MyChar 
Open "TESTFILE" For Input As #1 ' Open file for input. 
MaxSize = LOF(1) ' Get size of file in bytes. 
' The loop reads all characters starting from the last. 
For NextChar = MaxSize To 1 Step -1 
 Seek #1, NextChar ' Set position. 
 MyChar = Input(1, #1) ' Read character. 
Next NextChar 
Close #1 ' Close file. 

Vea también

• Tipos de datos
• Instrucciones

Soporte técnico y comentarios

¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.