On-line učionica

8. januar 2012.

Tekstualni fajlovi

Filed under: Pascal,Programiranje — jelena100janovic @ 2:49 am

Još jedna od lekcija koje nisu obavezne, ali… ako želite da upotpunite svoje znanje, preporučljiva je😉

Tekstualni fajlovi su fajlovi koji sadrže redove teksta. Kada želite da pristupite fajlu iz Pascal-a, prvo napravite fajl promenljivu.

program Fajlovi;
var
    f:text;
begin
end.

Nakon što je promenljiva deklarisana dodelite joj ime fajla.

program Fajlovi;
var

    f:text;
begin

    assign(f,’MojFajl.txt’);
end.

Da biste napravili novi fajl, koristite naredbu Rewrite (prepiši). Ovo će prepisati svaki fajl ako postoji sa istim imenom.

program Fajlovi;
var

    f:text;
begin

   assign(f,’MojFajl.txt’);
   rewrite(f);
end.

Naredbe Write i Writeln funkcionišu sa fajlovima na isti način kao na ekranu sem što dodajete ekstra parametar da biste im rekli da pišu u fajl.

program Fajlovi;
var

    f:text;
begin

    assign(f,’MojFajl.txt’);
    rewrite(f);
   writeln(f,’Red teksta’);
end.

Ako želite da čitate iz fajla koji već postoji, onda koristite naredbu Reset umesto Rewrite. Koristite naredbu Readln da biste čitali redove teksta iz fajla. Takođe će Vam trebati while petlja koja se ponavlja dok ne dođe do kraja fajla.

program Fajlovi;
var

   f:text;
   s:string;
begin

    assign(f,’MojFajl.txt’);
    reset(f);
    while not eof(f) do readln(f,s);
end.

Naredba Append (dodaj) otvara fajl i dopušta Vam da dodate još teksta na kraj fajla.

program Fajlovi;
var

    f:text;
    s:string;
begin

   assign(f,’MojFajl.txt’);
   append(f);
   writeln(f,’Jos malo teksta’);
end.

Bez obzira na to koji od tri pristupna tipa izaberete, zatvorite fajl kad završite sa njegovim korišćenjem. Ako ga ne zatvorite, onda nešto od teksta unutar fajla može da se izgubi.

program Fajlovi;
var

    f:text;
   s:string;
begin

   assign(f,’MojFajl.txt’);
   append(f);
   writeln(f,’Jos malo teksta’);
   close(f);
end.

Možete promeniti ime fajla uz pomoć naredbe Rename (preimenuj) i možete obrisati fajl uz pomoć naredbe Erase (obriši).

program Fajlovi;
var

    f:text;
begin

   assign(f,’MojFajl.txt’);
   rename(f,’TvojFajl.txt’);
   erase(f);
   close(f);
end.

Zadatak za vežbanje:
1.    Napišite program koji upoređuje sadržaj dva tekstualna fajla i ispisuje redove u kojima se razlikuju.

Ostavite komentar »

Nema komentara.

RSS feed for comments on this post. TrackBack URI

Ostavite odgovor

Popunite detalje ispod ili pritisnite na ikonicu da biste se prijavili:

WordPress.com logo

Komentarišet koristeći svoj WordPress.com nalog. Odjavite se / Promeni )

Slika na Tviteru

Komentarišet koristeći svoj Twitter nalog. Odjavite se / Promeni )

Fejsbukova fotografija

Komentarišet koristeći svoj Facebook nalog. Odjavite se / Promeni )

Google+ photo

Komentarišet koristeći svoj Google+ nalog. Odjavite se / Promeni )

Povezivanje sa %s

Create a free website or blog at WordPress.com.

%d bloggers like this: