Question

Elaborați o procedura care
a) creează o copie de rezervă a unui fișier text;
b) exclude dintr-un fișier text liniile vide

Answer 1

a)

procedure copiaza(f:text);
var s:string; x:text;
begin
  assign(x,'copiaza.txt');
  reset(f);  rewrite(x);
  while (not(eof(f))) do
  begin
    readln(f,s);
    writeln(x,s);
  end;
  close(f); close(x);
end;

b)

procedure stergeVid(f:text);
var s:string; x:text;
begin
  assign(x,'2.txt');
  reset(f); rewrite(x);
  while (not(eof(f))) do
  begin
    readln(f,s);
    if (s<>'')then writeln(x,s);
  end;
  close(f); close(x);
end;