ČITANJE PODATAK IZ SEKVENCIJALNE DATOTEKE I SMJEŠTANJE U POLJE

Prije čitanja iz datoteke podaci moraju biti upisani u nju. Program bi javio grešku pa biste mogli pomisliti da nešto nije u redu, a jest.

Čitanje podataka iz sekvencijane datoteke i spremanje podataka u polja. dalje se podaci obrađuju po potrebi.

Datoteka je oblika:

broj
niz$, niz1$
niz$,niz1$

broj - broj zapisa u datoteci.

 

CLS

DIM rbr(10), ime$(10)

OPEN "podaci.txt" FOR INPUT AS #1
     INPUT #1, do$    'čitaj prvi red datoteke
FOR i = 1 TO VAL(do$)
     INPUT #1, a$, b$  'čitaj red po red
      rbr(i) = VAL(a$)
      ime$(i) = b$
NEXT i
CLOSE #1

FOR i = 1 TO VAL(do$)
     PRINT ime$(i)
     PRINT rbr(i)
NEXT i

OPEN "izlaz.txt" FOR OUTPUT AS #1
FOR i = VAL(do$) TO 1 STEP -1
    WRITE #1, ime
NEXT i