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

Определение. Файлы символьных данных называются текстовыми файлами (можно также сказать что это «файлы байтов»). Структура текстового файла: последовательность строк переменной длины, разделённых специальной комбинацией, называемой "конец строки". Комбинация «конец строки» "перевод каретки" (CR, Carriage Return, символ #13) + "перевод строки" (LF, Line Feed, символ #10) Код «конец файла» символ #26

Var Var TextFile : text; Примечание. Слово text не является зарезервированным словом, а считается идентификатором стандартного типа, наряду с идентификаторами integer, real и т.д. Схематическая структура текстового файла #13# #13# #13# #13# #13#10 #26 Способы открытия текстового файла Reset (f) – для чтения Rewrite (f) – для записи Append (f) – для добавления (Текущая позиция устанавливается на конец файла.)

Часто для обработки текстовых файлов используется специфичная для них функция Eoln, позволяющая определить достигнут ли конец строки. Если достигнут - значение функции равно True, а если нет - False. Например: While not Eof(NameFale) do {пока нет конца файла NameFale делай} While not Eoln(NameFale) do {пока нет конца строки файла NameFale делай} begin {группа операторов обработки символов очередной строки} end;

InputOutput В Паскале существуют два стандартных текстовых файла Input и Output (они описаны в стандартном модуле System). Они обозначают стандартный файл ввода и стандартный файл вывода. Обычно эти стандартные файлы связаны с конкретными физическими устройствами компьютера. InputOutput Input - клавиатура, Output - экран дисплея. По умолчанию эти файлы открыты сразу же. Например: Writeln Writeln (Output, 'Результат равен ', (X+Y)*2); Read Read (Input, X1, X2);

ClrEol - процедура удаляет все символы от курсора (включительно) до конца строки, заполняя этот участок строки цветом фона. DelLine - процедура удаляет строку, в которой находится курсор. GoToXY(X, Y : byte) - процедура перемещает курсор к элементу экрана с заданными координатами X и Y. Если хотя бы одна координата недопустима, процедура не выполняется. InsLine - процедура вставляет пустую строку на экране в месте расположения курсора и заполняет ее цветом фона. WhereX (Function WhereX : byte) - возвращает значение горизонтальной координаты. WhereY(Function WhereY : byte) - возвращает значение вертикальной координаты.

Удалите из текстового файла одинаковые строки. Если в файле нет одинаковых строк, вывести на экран соответствующее сообщение. Вывести на экран первоначальный файл и преобразованный. Создайте текстовый файл, содержащий гласные буквы каждой нечетной строки исходного файла и цифры каждой четной строки файла. В программе используйте подпрограммы.