Технический форум - Работа с текстовыми файлами

Технический форум (http://www.tehnari.ru/)

- Delphi, Kylix and Pascal (http://www.tehnari.ru/f43/)

- - Работа с текстовыми файлами (http://www.tehnari.ru/f43/t94859/)

Работа с текстовыми файлами

Здравствуйте, помогите пожалуйста с данной задачей. Заранее благодарю.

Создать текстовый файл с произвольным содержимым. Написать программу, которая заменяет каждую пустую строку файла на строку«Пустая строка», а затем дописывает к файлу строку, в которой указывается количество найденных(и замененных) пустых строк.

Цитата:

Сообщение от Reiderian (Сообщение 1009381)

Да пожалуйста, хотя по-моему - детский сад. Только замените, если надо, пути к файлам, да исправьте, если хотите, английские ремарки на русские.

Код:

Var

 f1,f2:Text;

 S:String;

 N_S:Integer;



Begin

 N_S:=0;

 Assign(f1,'D:\inp.txt');

 Reset(f1);

 Assign(f2,'D:\outp.txt');

 Rewrite(f2);

 Repeat

  readln(f1,S);

  if S='' then

   begin

    writeln(f2,'Empty string');

    Inc(N_S);

   end

  else writeln(f2,S);

 Until EoF(f1);

 writeln(f2);

 writeln(f2,N_S,' times');

 Close(f1);

 Close(f2);

End.