ISPISUJE BROJ SLOVA "a" U DATOTECI


 


' Ispisuje broja slova a u datoteci podaci.txt
'

CLS

DIM rbr(10), ime$(10)

OPEN "podaci.txt" FOR INPUT AS #1
INPUT #1, do$
FOR i = 1 TO VAL(do$)
   INPUT #1, a$, b$
   rbr(i) = VAL(a$)
   ime$(i) = b$
NEXT i
CLOSE #1
FOR i = 1 TO VAL(do$)
    FOR j = 1 TO LEN(ime$(i))
          slovo$ = MID$(ime$(i), j, 1)
           IF slovo$ = "a" THEN ima = ima + 1
    NEXT j
NEXT i

PRINT "Broj slova a:", ima