Seek (función)

Nota:  Nos gustaría proporcionarle el contenido de ayuda actual lo más rápido posible en su idioma. Esta página se ha traducido mediante un sistema automático y es posible que contenga imprecisiones o errores gramaticales. Nuestro objetivo es que este contenido sea útil para usted. ¿Puede informarnos sobre si la información le ha sido útil al final de la página? Aquí tiene el artículo en inglés para que pueda consultarlo fácilmente.

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.

Comentarios

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

×