[ popkatepetl @ 18.04.2009. 13:22 ] @
Treba da resim ovaj zadatak:
Tekstualna datoteka f ima manje od 1000 linija. Napraviti kopiju g datoteke f stavljajuci broj linije sa desne strane na pozicije od 68 do 70.
Ukoliko linija ulazne datoteke ima vise od 65 karaktera, preklopiti je iza 65-og, i broj linija ispisati na kraju zadnjeg preloma.
Moze li mi neko pomoci?
[ xenox @ 18.04.2009. 14:46 ] @
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.