Como saber cual es el ultimo registro de un archivo? - VB-MUNDO

Archie · #1 (**permalink**) 23-05-2006, 18:59:29

Hola, estoy teniendo un pequeño problema que no logro resolver.
Cree una variable del tipo registro (RECORD) y luego creo un archivo de acceso aleatorio
en el cual guardo los datos ingresados en su correspondiente variable:

Libro.Titulo = "bla bla bla"
Libro.Autor = "bla bla bla"
Libro.ISBN = "bla bla bla"
Libro.Idioma = "bla bla bla"
....

Quisiera saber (teniendo en cuenta en que estoy accediendo al archivo como Random) :
Como saber cual es el ultimo registro ingresado?
Hay alguna funcion que devulva un dato del tipo integer o algo asi que me indique cuando
estoy parado en el ultimo registro?
Y para saber sobre cual es el primer registro?
Si no me explique bien, preguntenme por favor y tratare de ser mas claro.

acalanto · #2 (**permalink**) 23-05-2006, 19:04:16

Tienes que calcular el registro mediante el tamaño del fichero y la longitud de cada record.

Ultimo = LOF(<canal>) / LEN(Libro)

Archie · #3 (**permalink**) 23-05-2006, 22:28:06

Cita:

Empezado por acalanto

Tienes que calcular el registro mediante el tamaño del fichero y la longitud de cada record.

Ultimo = LOF(<canal>) / LEN(Libro)

No recuerdo de muy bien el codigo, (el IDE me ayuda siempre) pero el tamaño del fichero si mal no recuerdo, lo saco con

Código:

Open "mi archivo" for Random Len = Len(Libro)

Aaahhhh creo que ya entendi.
Digamos que si el registro es de 50bytes, tendria que ir "saltando" de 50 en 50? No?
Bueno, voy a intentar cuando llegue a casa y si no me sale, regreso... y sino tambien!
Gracias y hasta pronto.

acalanto · #4 (**permalink**) 24-05-2006, 04:53:00

No tienes que saltar nada. LOF(<canal de apertura>) te devuelve el tamaño total del fichero en bytes. Si este valor lo divides por la longitud de cada registro (Todos son iguales en Random), obtienes el número de registros del fichero.

No sé si ahora me he explicado mejor.

Archie · #5 (**permalink**) 24-05-2006, 18:11:06

Cita:

Empezado por acalanto

No tienes que saltar nada. LOF(<canal de apertura>) te devuelve el tamaño total del fichero en bytes. Si este valor lo divides por la longitud de cada registro (Todos son iguales en Random), obtienes el número de registros del fichero.

No sé si ahora me he explicado mejor.

Ahora si, con razon ayer no me funcionaba...

Crei que el / que habias puesto en el codigo era opcional.
Ahora si creo que funcionara, gracias!