Predmet:Re: VB6 open binary file

---

Seek nje teska za razumjet a mislim da ima objasnjeno i na ovom forumu.
Imas redove-rekorde.
E sad kad dodjes na odedjeni rekor sa seek se mozes pozicionirati na odredjeni karakter tog reda.
seek 1,5
Broj otvorenog fajla 1 a broj pozicije u redu je 5.
sa sik mozes i iscitati na kojoj poziciji se nalazis
Get #BrFajla, , RedP- iscitavanje odedjenog reda

Get #Brfajla,Brojrekorda,Memorijska
E vidis ovako moze ako imas strukturu.
Ono sto sam ti prvi puta napravio pa kazes da je moj fajl veci od tvog.
Ovako moras brojati kao sto sam ja napravio proceduru samo je ti nisi probao.

Function UcitajRed(KojiRed As Integer) ' Kada je pozivas unosis i broj reda ili rekorda koji hoces ucitati
Dim RedP As binar 'red podataka za ososubu
Dim t As osoba
Dim temp
Dim I As Integer

Open "c:\popis.bin" For Binary As #1' Otvara fajl
For I = 1 To KojiRed' Petlja koja broji do reda koji si unijo odnosno rekorda
Get #1, , RedP ' znaci get ces pozvati onliko puta koliki si broj unio u mem kojired i svaki put se pomices u novi red kada ucitas. e sad ovdje ako neces cio red ucitati vrredilo bi i ti seek
Next I
temp = Trim(RedP.ime) & " " & Trim(RedP.prezime) & vbCr & "Rodjen: " & Trim(RedP.datumR) _
& vbCr & "Adresa:" & Trim(RedP.adresa) _
& vbCr & "Matcini br:" & Trim(RedP.maticniBr) & vbCr & "Tel:" & Trim(RedP.telefon)
Close #1
MsgBox temp
End Function

---