Убрать перенос строк в файле - Turbo Pascal

Формулировка задачи:

Есть файл abc sdf xyz Как заменить его на abcsdfxyz, либо считать в строку вида 'abcsdfxyz', чтобы не было переносов строк. В принципе можно перенос строк заменить на любой другой символ, например точку или запятую. Спасибо

Решение задачи: «Убрать перенос строк в файле»

Листинг программы

...
while not EoF(inFile) do
  begin
    readln(inFile,string1);
    string2:=string2+string1;
  end;
rewrite(inFile);
writeln(inFile,string2);
close(inFile);
...

Объяснение кода листинга программы

В цикле while не EoF(inFile) do происходит чтение строки из файла inFile и добавление её к строке string2.
После окончания цикла while происходит перезапись содержимого файла inFile строкой string2.
Затем файл inFile закрывается.

Оцени полезность:

9 голосов , оценка 4.333 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Похожие ответы