DATOTEKE SA SLUČAJNIM PRISTUPOM

 

Upisivanje više zapisa u datoteku.

 

'Ucitavaju se podaci u datoteku sa slucajnim pristupom i nakon toga se cita datoteka i podaci se ispisuju na ekranu
'LSET nalog - priprema podatke za upis u datoteku.
'LSET se mora izvrsiti prije PUT naloga
'MKI$ - pretvara brojcanu vrijednost u znakovnu koja se smjesta u datoteku
'MKI$ se koristi prije upisa brojcanih vrijednosti u datoteku
'CVI - pretvara znakovnu vrijednost u broj
'CVI se koristi kod citanja brojcanih vrijednosti iz datoteke

'U IMMEDIATE prozoru upisati SHELL "type probna.txt" za ispis datoteke
'direktno iz operativnog sustava
'Prebacivanje izmedju prozora vrsi se tipkom F6
'Treba dobro paziti da se poklapaju vrijednosti za LEN i FIELD

CLS

OPEN "probna.txt" FOR RANDOM AS #1 LEN = 80
FIELD #1, 30 AS ime$, 50 AS adresa$
FOR i = 1 TO 5
INPUT "ime"; ime1$
INPUT "adresa"; adresa1$
LSET ime$ = ime1$
LSET adresa$ = adresa1$
PUT #1, i
NEXT i
CLOSE #1

OPEN "probna.txt" FOR RANDOM AS #1 LEN = 80
FIELD #1, 30 AS ime$, 50 AS adresa$
FOR i = 1 TO 5
GET #1, i
PRINT "ime", ime$
PRINT "adresa", adresa$
NEXT i
CLOSE #1

'Zadaci
'1. Upisite brojcane vrijednosti u datoteku
'2. Procitajte samo parne zapise
'3. Ispisite podatke u tablicnom obliku