Главная страица     Справочник      Программы  

Раздел 3.

Работа с файлами в Quic Basic.
_______Файлы в алгоритмических языках различаются по структуре и способам доступа. Quick Basic работает с файлами двух типов: текстовыми и типизированными.Прежде чем начать работат с файлом,его надо открыть, если он существует, или создать новый файл. Открытие создание файла осуществляется командой Open, которая имеет следующий синтаксис: Open "имя файла For режим работы AS #номер - открыть существующий или создать новый файл.
_______режим работы:
Input - открыть существующий файл для чтения.
Output- открыть файл для записи. Если файл с таким именем существует и не пуст, то вся информация из него удаляется, если файла с указанным именем не существует, то он будет создан и открыт для записи;
Append- открыть файл для дополнения в конец файла. Если для дополнения открывается не существующий файл, то он будет создан.
_______номер- число (1,2,3...), которое будет присвоено открытому файлу. Далее этот номер используется во всех операциях с этим файлом вместо его имени.

П р и м е р

Open "myfile.txt" For Input AS #1

_______Эта программа открывает файл с именем myfile.txt для чтения и присвоить ему номер 1.
_______При открытие файла для дополнения указатель записи устанавливается на конец файла. Чтение из файла выполняется операторами Input и Line Input. Оператор Line Input читает всю строку сразу и передвигает указатель записи на следующую строку. Этот оператор имеет следующии синтаксис:
_______Line Input #номер, имя символа переменной
_______Оператор Input при чтении как бы "ползет" по строке. Он имеет следующий синтаксис:
_______Input #номер, список переменных

П р и м е р

Input #1, fam$, number, count, place

_______Когда прочитана очередная строка, значение указателя файла сдвигается на следующую строку. Если указатель дошел до конца файла, то попытка прочитать следующее значение вызовет появление сообщения об ошибке Input past end of file(выход за пределы файла).Чтобы избежать этой ошибки в языке существует функция Eof.
Eof (номер файла) - проверка конца файла. Функция возвращает значение 1,если указатель файла указывает на его конец, то есть мы дошли до конца файла и последнюю строку уже прочитали.
_______Прежде чем закончить работу программы в целом, необходимо закрыть все открытые файлы.
_______ Close #номер - закрыть файл с заданным номером.

П р и м е р

Open "testfile.bas" For Input AS #1 Do While Not Eof(1) Line Input #1, text$ Print text$ Loop Close #1 End

Подпрограммы.