xenox ex Memodata sysadmin Beograd
Član broj: 6903 Poruke: 168 212.200.65.*
ICQ: 7682925
|
Prvo trebas da otvoris datoteku (funkcije za rad sa datotekama assign, reset, close).
Zatim pocnes da citas linije iz datoteke dok ne dodjes do kraja iste (eof i while petlja).
u while petlji za citanje linija (string varijabla) procitas liniju i dok je duzina linje veca od 65 kopiras prvih 65 karaktera u novi string koji upises u novu g datoteku (funkcija copy(s,1,65) i skratis ulazni string za 65 karaktera (funkcija delete). Dizina stringa je funkcija length.
Sada ti je ostao ulazni string (linja) kraca od 65.
Dopuni ga razmaknicama (s=s+' '); dok ne dodjes do duzine od 67 i onda dodaj vrednost brojaca linija prikazanog kao tri cifre (001 - 011 - 911)...
To bi bilo to.
|