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

Reiderian · 26.02.2014, 17:44

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

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

Vladimir_S · 26.02.2014, 20:36

Цитата:

Сообщение от Reiderian

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

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

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

Код:

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.

26.02.2014, 17:44	#1 (permalink)
Reiderian Новичок Регистрация: 26.02.2014 Сообщений: 11 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Работа с текстовыми файлами Здравствуйте, помогите пожалуйста с данной задачей. Заранее благодарю. Создать текстовый файл с произвольным содержимым. Написать программу, которая заменяет каждую пустую строку файла на строку«Пустая строка», а затем дописывает к файлу строку, в которой указывается количество найденных(и замененных) пустых строк.

26.02.2014, 17:44
Helpmaster Member Регистрация: 08.03.2016 Сообщений: 0	Прочтение аналогичных тем очень эффективно в решении проблемы Работа с файлами Работа с файлами Работа с файлами Работа с файлами Работа с файлами

Ads
Яндекс Member Регистрация: 31.10.2006 Сообщений: 40200 Записей в дневнике: 0 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 55070