* Данный текст распознан в автоматическом режиме, поэтому может содержать ошибки
Глава X. Ф а й л ы д а н н ы х
97
SEEK [#]номер файла%, позиция^ где номер_файла% номер файла, открытого оператором OPEN. позиция позиция, в которой будет осуществляться следующее чтение или запись. Для файлов прямого доступа, номер записи. Для других файлов, позиция байта по отношению к началу файла. Первый байт находится в позиции 1. Пример:
OPEN "TEST.DAT" FOR RANDOM AS #1 FORi%=1TO10 PUT # 1 , , i % NEXT i % SEEK # 1 , 2 GET # 1 , , i % PRINT "Данные: "; i % ; " Текущая запись: "; L O C ( 1 ) ; " Следующая: "; SEEK(1) 10.20. О п е р а т о р F I L E A T T R
Оператор F I L E A T T R возвращает информацию об открытом файле. Формат записи оператор F I L E A T T R : FILEATTR(номер_файла%,атрибут%) где номер_файла% номер файла, открытого оператор OPEN. атрибут% указывает тип возвращаемой информации. Если атрибут% ра¬ вен 1, F I L E A T T R возвращает значение, указывающее режим доступа к файлу: Значе¬ ние 1 2 4 8 32 Режим Ввод Вывод Прямой Добавле¬ ние Двоичный
Если атрибут% равен 2, F I L E A T T R возвращает указатель файла DOS. Пример :
OPEN "ТЕСТ.ДАН" FOR BINARY AS #1 PRINT F I L E A T T R ( 1 , 1) CLOSE