Predmet:Re: Seek funkcija
PreuzmiIzvorni kôd (Visual Basic):option explicit
type imenik
prezime as string
tel as string
end type
dim zapis as imenik
global pozicija as long
sub ucitajBinarni(pocetnaPozicija)
dim velicinaPolja as integer
get #1,pocetnaPozicija, velicinaPolja
zapis.prezime=str$(velicinaPolja," ")
Get #1,,zapis.prezime
Get #1,,velicinaPolja
Get #1,,zapis.tel
pozicija=Seek(#1)
end sub
ja sam probao nesto sa Seek sa binarnim zapisom ali sam odustao iz razloga jer
kretanje unaprijed je lako: ocitamo duzinu zapisa i pomaknemo se u datoteci za toliko unaprijed.
Za kretanje unazad je nemoguce na ovaj nacin tj. trebalo bi napraviti listu , index pocetaka zapisa i
zapisati u memoriju ili neku datoteku i onda za micanje po datoteci trebalo bi
preslikavati indekse iz te datoteke. Nisam na internetu nasao rijesenje pa sam odustao od svega toga.
zivot je moja domovina.