Цитата:
Сообщение от kickmaster
Спасайте
Задание: Текстовые файлы
Дана строка S и текстовый файл. Заменить в файле все пустые строки на строку S.
Спасибо огромное.
|
Спасаю!
Пояснения:
1. Имена и адреса файлов можете поставить свои.
2. Входной файл (у меня Txt_1.txt) должен быть подготовлен заранее.
Код:
Var
S,Sf:String;
F1,F2:Text;
Begin
Writeln('Enter the string:');
Readln(S);
Assign(F1,'D:\Txt_1.txt');
ReSet(F1);
Assign(F2,'D:\Txt_2.txt');
ReWrite(F2);
Repeat
Readln(F1,Sf);
If Sf<>'' then
Writeln(F2,Sf)
else
Writeln(f2,S);
Until EoF(F1);
Close(F1);
Close(F2);
End.