Predmet:Re: VB6 open binary file

---

evo zapelo, znaci malo sam istrazivao ali nisam nasao. prvo sam probao sa EOF naredbom i upisao ovo:

Open ImeFajla For Binary Lock Read Write As #BrFajla
Do Until EOF(1)
Get #BrFajla, , RedP
zadnjiRed = zadnjiRed + 1
Loop
Close #BrFajla

htio sam otici na zadnji zapis u bazi i prikazati ga u onim kucicama ali mi je otislo na zadnji prazni podatak u ovom slucaju red 52, a meni treba red 51
ova varijabla zadnjiRed sam koristio da mi pokaze koji je red i nema u programu nikakvu ulogu.
onda sam surfao i naisao na SEEK vidim da ju isto koriste ali sam odustao jer je prekomplicirano
mozda bi mogao to rijesiti ovako

Open ImeFajla For Binary Lock Read Write As #BrFajla
Do Until EOF(1)
Get #BrFajla, , RedP
zadnjiRed = zadnjiRed + 1
Loop
for f=1 to zadnjiRed-1
Get #BrFajla, , RedP
next f
Close #BrFajla

ali mi izgleda idiotski dva puta se vrtiti po cijeloj bazi

---