Убрать перенос строк в файле - Turbo Pascal
Формулировка задачи:
Есть файл
abc
sdf
xyz
Как заменить его на abcsdfxyz, либо считать в строку вида 'abcsdfxyz', чтобы не было переносов строк. В принципе можно перенос строк заменить на любой другой символ, например точку или запятую. Спасибо
Решение задачи: «Убрать перенос строк в файле»
textual
Листинг программы
... 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 закрывается.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д