Страница 1 из 1

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

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

2) Имеется текстовый файл. Добавить в него строку из двенадцати чёрточек (------------), разместив её:
а) после пятой строки;
б) после последней из строк, в которых нет пробела.
Если таких строк нет, то новая строка должна быть добавлена после всех строк имеющегося файла. В обоих случаях результат записать в другой файл.

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

Добавлено: 23 дек 2009, 10:14
Хыиуду
Считываем из файла по одной строке, если строка не пустая - переписать в новый файл.

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

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