Prikazi cijelu temu 21.08.2015 10:30
Avko Van mreze
Administrator
Registrovan od:28.05.2014
Lokacija:zagreb


Predmet:Re: Seek funkcija
PreuzmiIzvorni kôd (Visual Basic):
  1. option explicit
  2.  
  3. type imenik
  4.     prezime as string
  5.     tel as string
  6. end type
  7. dim zapis as imenik
  8.  
  9. global pozicija as long
  10.  
  11. sub ucitajBinarni(pocetnaPozicija)
  12.     dim velicinaPolja as integer
  13.     get #1,pocetnaPozicija, velicinaPolja
  14.     zapis.prezime=str$(velicinaPolja," ")
  15.     Get #1,,zapis.prezime
  16.     Get #1,,velicinaPolja
  17.     Get #1,,zapis.tel
  18.     pozicija=Seek(#1)
  19. 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.