Читання даних з файлу

Перед тим як розглядати процедури читання, помітимо що файл можна обходити тільки послідовно. Гарною аналогією файлу може послужити магнітна стрічка, з якої данні можна зчитувати тільки по черзі, а для повернення до початку блоку даних потрібно додаткове зусилля (перемотування).

Щоб відкрити для читання файл, що був зазначений при виклику assign, потрібно використовувати процедуру

reset(TxtFile: text);

Після такої дії «читаючий покажчик» буде встановлений на початок файлу. Зрозуміло, зазначений файл повинний існувати на диску, у противному випадку в програмі виникне помилка.

Після відкриття файлу можна починати читання даних. Для цього використовуються процедури read і readln, що використовуються в наступному форматі:

read(TxtFile: text, v1: type1, v2: type2,... vN: typeN);

readln(TxtFile: text, v1: type1, v2: type2,... vN: typeN);

Перша процедура читає послідовно з файлу значення і поміщає їх у змінні v1, v2,... v. Після кожного прочитаного значення покажчик файлу зміщується до початку наступного значення. Процедура readln робить те ж саме, після чого переміщує покажчик на початок наступної рядка; readln з одним лише першим параметром переводить покажчик на початок нового рядка. Як параметри для процедур read і readln можна використовувати змінні наступних типів:

* цілі: integer, byte, shortint, word, longint;

* дійсні: real, single, double, extended, comp;

* рядкові (string);

* символьні (char).

При читанні рядкових значень з файлу береться вся послідовність символів від позиції покажчика до кінця рядка. Якщо після цього спробувати знову прочитати рядок, то результат буде порожнім рядком (' '). Якщо спробувати прочитати число, коли покажчик файлу стоїть наприкінці рядка, то буде прочитаний 0.

При читанні чисел read і readln працюють так: спочатку покажчик пропускає всі пробіли і символи табуляції, а потім, знайшовши перший значущий символ, намагається прочитати число. Якщо це неможливо (зустрілася буква чи число записане невірно), то відбудеться помилка.

Приклад використання процедури читання:

var f: text; s: string; n: integer;

...

readln(f,n,s);

Необхідно пам'ятати, що якщо файл не був відкритий для читання за допомогою reset, то будь-яка спроба прочитати з нього дані приведе до помилки.

Досить часто в програмі буває необхідно визначити, чи дійшов покажчик файлу до кінця рядка чи до кінця файлу. У цьому випадку корисно використовувати такі функції:

eoln(TxtFile: text): boolean;

eof(TxtFile: text): boolean;

Перша приймає значення true (істина), якщо покажчик стоїть на кінці рядка, друга — те ж саме для кінця файлу.

Після того як всі операції читання закінчені, файл необхідно закрити за допомогою процедури

close(TxtFile: text);

якщо цього не зробити, то уміст файлу може виявитися зіпсованим після виконання нашої програми.

Приклад 1 (процедури читання). Нехай мається текстовий файл, наприклад програма на Паскалі. Потрібно роздрукувати його вміст на екрані:

program ShowFile;

var f: text;

c: char;

Дата добавления: 2014-12-16