10.1.2. Функції для роботи з текстовими файлами

1. EoLn(FV): Boolean – видає True, якщо наcтупний символ за прочитаним – маркер кінця рядка. В іншому випадку – видає False.

2. EoF(FV): Boolean – видає True, якщо наступний символ за прочитаним – маркер кінця файла.

10.1.3. Приклад обробки інформації в текстових файлах

Створити текстовий файл F.txt, який складається з рядків довжиною 40 символів, причому перший рядок складається з латинських літер 'A', другий – з літер 'B', останній – з літер 'Z'. Скопіювати файл F.txt в файли F1.txt та F2.txt таким чином, щоб в перший з них записувалися рядки, що складаються з голосних літер, а в другий – рядки, що складаються з приголосних літер.

Приклад:

Var

S : String;

Ch : Char;

i : byte;

Q, G, H : Text;

BEGIN

Assign(Q,'F.txt');

Rewrite(Q);

For Ch:='A' to 'Z' do

begin

S:='';

For i:=1 to 40 do S:=S+Ch;

Writeln(Q,S)

end;

Close(Q);

Reset(Q);

Assign(G,'F1.txt');

Rewrite(G);

Assign(H,'F2.txt');

Rewrite(H);

While not Eof(Q) do

begin

Readln(Q,S);

Ch:=S[1];

Case Ch of

'A','E','I','O','U','Y' : Writeln(G,S);

Else Writeln(H,S)

end

end;

Close(Q);

Close(G);

Close(H)

END.

10.2. Завдання

1. Дано текстовий файл F.txt. Виключити пробіли, що стоять у кінці його рядків. Результат помістити в файл F1.txt.

2. Дано текстовий файл F.txt. Переписати компоненти файлу F.txt в файл G.txt, ставлячи на початку кожного рядка пробіл.

3. Дано текстовий файл F.txt. Одержати найдовшій рядок файлу. Якщо в файлі є декілька рядків з найбільшою довжиною, то вибрати останній з них.

4. Дано текстовий файл F.txt. Визначити, чи входить в файл словосполучення "Теорема".

5. Дано текстовий файл F.txt. Вивести на екран всі його рядки, що містять більше 40 символів.

6. Дано текстовий файл F.txt. Переписати у файл G.txt всі компоненти файлу F.txt із заміною в них символу "0" на "1" і навпаки.

7. Дано текстовий файл F.txt. Переписати його в файл G.txt, замінюючи кожну цифру на наступну за величиною ("9" замінюється на "0").

8. Створити текстовий файл F.txt, що складається з 9 рядків, в першому з яких міститься одна літера "1", в другому – дві літери "2",..., в девятому - девять літер "9".

9. Дано текстовий файл F.txt. Підрахувати кількість пустих рядків, які містяться в ньому.

10. Дано текстовий файл F.txt. Вивести на екран всі рядки файлу, що починаються з символу "П".

11. Дано текстовий файл F.txt. Скопіювати його в файл G.txt обминаючи пусті рядки.

12. Дано текстовий файл F.txt. Вивести на екран вміст його рядків, вказавши на початку кожного рядка його номер.

13. Дано текстовий файл F.txt. Вивести на екран перший з найкоротших його рядків.

14. Дано текстові файли F.txt, G.txt, записаних українською мовою. Дописати в кінець файлу G.txt всі ті рядки з файлу F.txt, які починаються з голосної літери.

15. Дано текстовий файл F.txt. Підрахувати кількість його рядків, виводячи на екран дисплея кожен третій з них.

10.3. Контрольні запитання з теми

1. В яких випадках зручно застосовувати файли ?

2. Чим файли відрізняються від масивів і що у них є спільного ?

3. Що таке фізичне ім'я файлу, чим воно відрізняється від логічного імені ?

4. Розкажіть, як класифікуються файли в мові Pascal ?

5. Розкажіть про способи створення файлових даних.

6. Як розрізняються файли по видах доступу до їх компонент ?

7. Як оголошуються змінні файлових типів ?

8. У чому полягають особливості текстових файлів ?

9. У чому полягає відміна текстових файлів від file of char?

10. Які дії необхідно виконати для відкриття файлу ?

11. Як відкрити файл для запису ?