Cum citim/scriem un fisier text in pascal

[emj]

cum cititi scrieti dintr-un fisier text in pascal

pentru inceput desemnam o variabila F de tip text si inca una de tip string pentru numele fisierului text

var F:text;
s:string;

apoi ii vom asocia lui F numele s ,un exemplu
 
assign(F,'readme');
apoi inainte sa fie citit fisierul trebuie deschis prin

reset(F);
si acum citim fisierul

readln(F,s);

pentru a stii daca am ajuns la capatul fisierului avem optiunea EOF(end of file)
folosita stfel

if EOF(F) then writeln('ati ajuns la sfarsitul documentului');
si nu uitai sa inchideti fisierul
cod
close(F);

Avem astfel codul

Cod:

uses crt;
var F:text;
s:string;
begin
 clrscr;
 write('scrieti numele fisierului')
 readln(s);
 assign(F,s);          {asociem numeles cu fisierul F}
 reset(F);             {se va deschide fisierul}    
 while not EOF(F) do   {il citeste pana cand se termina}
 begin
  readln(F,s);
  writeln(s);
 end;
 close(F);              {inchidem fisierul}
 readln;
end.

Acum cum sa scrii intr-un fisier
facem acelasi lucru ,asociem fiserului numele ,iar in loc de reset(F) folosim rewrite(F)
iar pentru a scrie linii in cadrul fisierului folosim
writeln..

Astfel avem un cod ce va creea un fisier text si va scrie in interiorul sau

Cod:

uses crt;
var F:text;
s:string;
begin
 clrscr;
 writeln('intriduceti numele noului fisier');
 readln(s);
 assign(F,s);
 rewrite(F);
 writeln('scriieti ceea ce vreti sa apara in fisier');
 writeln('pentru a termina lasati un spatiu liber urmat de enter')
 repeat
  readln(s);
  if s=' ' then break
  writeln(F,s);
 until true;
 close(F);
end.

daca am gresit ceva va rog spuneti-mi.. :thleft:

[overload]

cam tarziu replica, dar e utila pentru cei care mai folosesc pascal. Se pot folosi fisere fara sa mai declaram variabile tip text. Un exemplu de program o sa arate cam asa ceva:

Cod:

var x,i: byte;
begin
assign(input,'intrare.in'); reset (input);
read(x);
assign(output,'iesire.out'); rewrite(output);
write(x mod 10);
end.

Concluzii: se pune input in loc de variabila de intrare, output in loc de variabila de iesire;
comanda "read" citeste direct din fiser, "write" scrie direct in fiser;
nu mai trebuie pus "close".

[SkullAds]