Datoteke |
||||||||
Datoteka je skup međusobno povezanih podataka pohranjenih na nekoj od memorija (disketi, tvrdom disku itd.) Datoteka se dijeli na slogove (zapise), a slogovi na polja. kada bismo datoteke usporedili s tablicama tada su slogovi retci, a polja stupci. npr. Ucenik
Ucenik - naziv strukture podataka Ime, Ocjena - polja zapisa (stupci, atributi) Za ime rezerviramo 20 mjesta, a za ocjenu decimalni broj (SINGLE u basicu) Napomena: U nazivima strukture (zapisa) ne koristimo naša slova. Definicija zapisa: TYPE Zapis 'Definiranje strukture polja Ime AS STRING * 20 'Ime - 20 znakova Ocjena AS SINGLE 'Ocjena - decimalni broj END TYPE
DIM Ucenik AS Zapis 'Definiramo strukturu Ucenik Zadatak: Definirajte struktutu u koju ćete upisivati ime i prezime učenika, naziv predmeta i ocjene iz pojedinih predmeta. Pogledajte programe vezane za datoteke. Program: CLS 'Brisanje ekrana TYPE Zapis 'Definiranje strukture polja Ime AS STRING * 20 'Ime - 20 znakova Ocjena AS SINGLE 'Ocjena - decimalni broj END TYPE DIM Ucenik AS Zapis 'Var. Ucenik definiramo kao zapis 'i nadalje se radi s njom s Zapis 'varijablom se više ne radi 'Otvaranje datoteke OPEN "FINAL.DAT" FOR RANDOM AS #1 LEN = LEN(Ucenik) 'Učitavanje podataka INPUT "Ime"; Ucenik.Ime INPUT "Ocjena"; Ucenik.Ocjena 'Spremanje podataka u datoteku PUT #1, 1, Ucenik 'Zatvaranje datoteke CLOSE #1
OPEN "FINAL.DAT" FOR RANDOM AS #1 LEN = LEN(Ucenik) 'čitanje podataka iz datotekeGET #1, 1, Ucenik 'Ispis podataka na ekran PRINT "Ime:", Ucenik.Ime PRINT "Ocjena:", Ucenik.Ocjena CLOSE #1 'Brisanje datoteke s memorije (tvrdog diska) KILL "FINAL.DAT"
|