26.02.2014, 17:44 | #1 (permalink) |
Новичок
Регистрация: 26.02.2014
Сообщений: 11
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Работа с текстовыми файлами
Создать текстовый файл с произвольным содержимым. Написать программу, которая заменяет каждую пустую строку файла на строку«Пустая строка», а затем дописывает к файлу строку, в которой указывается количество найденных(и замененных) пустых строк. |
26.02.2014, 17:44 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Прочтение аналогичных тем очень эффективно в решении проблемы Работа с файлами Работа с файлами Работа с файлами Работа с файлами Работа с файлами |
26.02.2014, 20:36 | #2 (permalink) | |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Цитата:
Код:
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. |
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
|
|