Дана строка S и текстовый файл. Заменить в файле все пустые строки на строку S

02.06.2014, 09:32. **Показов** 3745. **Ответов** 1

Author24 — интернет-сервис помощи студентам

@Cyborg Drone · 02.06.2014, 11:27

Pascal

var f, g: text;
    s, t: string;
begin
  writeln('Enter string:');
  readln(s);
  assign(f, 'c:\test.txt');
  reset(f);
  assign(g, 'c:\test.tmp');
  rewrite(g);
  while not(eof(f)) do
    begin
      readln(f, t);
      if length(t) = 0 then t := s;
      writeln(g, t)
    end;
  close(f);
  close(g);
  erase(f);
  rename(g, 'c:\test.txt')
end.

Olena
		1
	Дана строка S и текстовый файл. Заменить в файле все пустые строки на строку S 02.06.2014, 09:32. Показов 3745. Ответов 1 Метки нет (Все метки) Дана строка S и текстовый файл. Заменить в файле все пустые строки на строку S

	02.06.2014, 11:27

Дана строка S и текстовый файл. Заменить в файле все пустые строки на строку S

Решение