[Pascal] Текстовые файлы

За вознаграждение или нахаляву (если повезёт)

Модераторы: Хыиуду, MOTOCoder, Medved, dr.Jekill

Ответить
CaRaMeLca
Сообщения: 5
Зарегистрирован: 19 дек 2009, 16:08

1) Пусть дан текстовый файл f1. Перепишите его содержимое в файл f2, сохраняя строчную структуру и удаляя пустые строки.

2) Имеется текстовый файл. Добавить в него строку из двенадцати чёрточек (------------), разместив её:
а) после пятой строки;
б) после последней из строк, в которых нет пробела.
Если таких строк нет, то новая строка должна быть добавлена после всех строк имеющегося файла. В обоих случаях результат записать в другой файл.
Хыиуду
Сообщения: 2442
Зарегистрирован: 06 мар 2005, 21:03
Откуда: Москва
Контактная информация:

Считываем из файла по одной строке, если строка не пустая - переписать в новый файл.

Считываем 5 строк, записываем в файл. Записываем 12 черточек. Считываем остальные строки, записываем в файл

Считываем весь файл в массив. Идем от конца к началу, пока не найдем строку без пробелов (функция pos). Идем по массиву до этой строки, выводим все в файл. Выводим в файл 12 черточек, а потом остальные строки массива.
Искусство программирования - заставить компьютер делать все то, что вам делать лень.
Для "спасибо" есть кнопка "Спасибо" в виде звездочки внизу под ником автора поста.
Ответить