Seek (función)

Importante:  Este artículo se ha traducido con traducción automática; vea la declinación de responsabilidades. Para su referencia, puede encontrar la versión en inglés de este artículo aquí.

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 mediante la instrucción Abrir .

Sintaxis

Seek ( númeroarchivo )

El requerido númeroarchivoargumento es un entero que contiene un válida número de archivo.

Observaciones

Seek devuelve un valor entre 1 y 2.147.483.647 (equivalente a 2 ^ 31-1), ambos incluidos.

La siguiente describe los valores devueltos para cada modo de acceso del archivo.

Modo

Valor devuelto

Aleatorio

Número del siguiente registro leído o escrito

Binario,
desalida,
Anexar,
entrada

Posición de byte en el que lleva a cabo la operación siguiente. El primer byte en un archivo que se encuentra en la posición 1, el segundo byte en posición 2 y así sucesivamente.


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 Seek para devolver la posición de archivo actual. Se supone que TESTFILE es un archivo que contiene registros de la Recordde tipo definido por el usuario.

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

Para los archivos abiertos en modo aleatorio, Seek devuelve el número del siguiente registro.

Dim MyRecord As Record    ' Declare variable.
Open "TESTFILE" For Random As #1 Len = Len(MyRecord)
Do While Not EOF(1) ' Loop until end of file.
Get #1, , MyRecord ' Read next record.
' Print record number to the Immediate window.
Debug.Print Seek(1)
Loop
Close #1 ' Close file.

Para los archivos abiertos en modos distintos aleatorio, Seek devuelve la posición de byte en el que lleva a cabo la operación siguiente. Supongamos que TESTFILE es un archivo con algunas líneas de texto.

Dim MyChar
Open "TESTFILE" For Input As #1 ' Open file for reading.
Do While Not EOF(1) ' Loop until end of file.
MyChar = Input(1, #1) ' Read next character of data.
' Print byte position to the Immediate window.
Debug.Print Seek(1)
Loop
Close #1 ' Close file.

Nota: Declinación de responsabilidades de traducción automática: Este artículo se ha traducido con un sistema informático sin intervención humana. Microsoft ofrece estas traducciones automáticas para que los hablantes de otros idiomas distintos del inglés puedan disfrutar del contenido sobre los productos, los servicios y las tecnologías de Microsoft. Puesto que este artículo se ha traducido con traducción automática, es posible que contenga errores de vocabulario, sintaxis o gramática.

Ampliar sus conocimientos
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.

×