Языки Бейсик

Ввести ФИО преподавателя: Петров П.П. будете еще вводить(д н)? д Ввести число (дд): 21

Ввести день недели (нн): сp Ввести кол-во часов (чч): 6

Ввести ФИО преподавателя: Сидоров С.С. будете еще вводить(д н)? д Ввести число (дд): 22

Ввести день недели (нн): чт Ввести кол-во часов (чч): 15

Ввести ФИО преподавателя: Иванов И.И. будете еще вводить(д н)? н

10.14. Оператор GET

GET считывает из файла в буфер прямого доступа или в переменную.

Формат записи оператора GET:

GET [#]номер_файла%[,[номер_записи&][,переменная]]

ãäå

номер_файла% номер файла, указанного в операторе OPEN. номер_записи&для файлов прямого доступа — номер записи для чтения. Це-

лочисленное значение номера записи может находиться в диапазоне от 1 до 32 767. Под этим номером запись будет помещена в файл и в дальнейшем считана. Если номер записи опущен, то считывается запись, следующая за последней, прочитанной по оператору GET. Если же это первый оператор GET в программе, то читается запись с номером один Любая попытка при записи или чтении выйти за границы буфера вызывает сообщение об ошибке.

Для двоичных файлов — позиция байта, где начинается чтение или запись.

переменная переменная, в которую читается запись. Переменной обычно является переменная определенного пользователем типа данных.

В качестве примера приводятся опять же два фрагмента программы, которые читают файл, созданный в предыдущих примерах 10.13.1 и 10.13.2

Пример 10.14.1:

Считывание файла произвольного доступа с использованием буфера, созданного в примере 10.13.1

CLS

OPEN “FINAL.DAT” FOR RANDOM AS #1 'ОТКРЫВАЕМ ФАЙЛ ‘ПРЯМОГО 'ДОСТУПА 'создаем буфер

FIELD #1, 12 AS c$, 16 AS d$, 19 AS ct$, 20 AS f$ a1: INPUT “Введите номер записи”; nom%

GET #1, nom%

94 Языки Бейсик

Чтение файла прямого доступа

CLS

TYPE TestRecord 'Определяем переменную пользователя chislo AS STRING * 2 'так же, как и в программе, которая создавала

denned AS STRING * 2 'ýòîò ôàéë coltime AS INTEGER

fio AS STRING * 20 END TYPE

DIM uchet AS TestRecord 'определяем тип переменной 'открываем файл

OPEN “FINAL1.DAT” FOR RANDOM AS #1 LEN = LEN(uchet)

PRINT “длина файла=“; LOF(1)

PRINT “длина записи=“; LEN(uchet)

PRINT “число записей=“; LOF(1) / LEN(uchet)

chzap% = LOF(1) / LEN(uchet) 'Высчитываем число записей

a1: INPUT “Введите номер записи”; nom% 'запрашиваем номер записи IF nom%>chzap% THEN PRINT “Запись не существует”: GO TO a1

GET #1, nom%, uchet 'читаем запрошенную запись 'Печатаем прочитанную запись

PRINT “Число:-”; uchet.chislo

PRINT “день недели:-”; uchet.denned PRINT “кол-во часов:-”; uchet.coltime PRINT “Преподаватель:-”; uchet.fio

PRINT “_____________________________________”

PRINT “будете еще читать(д,н)?”; 'запрос на окончание da$ = INPUT$(1)

PRINT da$

'проверка конца работы

IF UCASE$(da$) = “L” OR da$ = “Д” OR da$ = “д” GOTO a1 CLOSE 'закрытие файла

Необходимость создания файлов прямого доступа возникает тогда, когда последовательная обработка файла и недостаточные ресурсы оперативной памяти приводят к тому, что время обработки файла становится значительным для пользователя, что происходит все реже и реже в связи с увеличением производительности компьютеров. В силу этого задача ускорения обработки данных из чисто прикладной задачи, которую приходилось решать и автору, все больше становится системной (решается на уровне написания систем программирования) или даже технической (увеличивается производительность “железа”).

10.15. Функция LOC

Функция LOC(LOCation-определение позиции) позволяет получить сведения о количестве записей последовательного и произвольного файлов, считанных с диска, начиная с момента его открытия.

Формат записи функции:

LOC(номер_файла%)

10.18. Функции CVS, CVI, CVD, CVL

MKI$, MKL$, MKS$ и MKD$ переводят числа в числовые строки, которые могут храниться в операторе строковых переменных FIELD.(СМ.10.11.)

CVI(ConVert to Integer-преобразовать к целому числу), CVL(ConVert to Long Integer-преобразовать к длинному целому числу), CVS(ConVert to Single-пре- образовать к обычной точности), и CVD(ConVert to Double-преобразовать к двойной точности), переводят эти строки обратно в числа из строковых переменных оператора FIELD.

Формат записи функций CVI, CVL, CVS, CVD.

CVI(2_байт_числ_строка)

CVL(4_байт_числ_строка)

CVS(4_байт_числ_строка)

CVD(8_байт_числ_строка)

После выполнения этих функций над числами можно осуществлять арифмети- ческие операции. Пример записи функции CVI:

Clokc% = CVI(coltime$)

10.19. Функция SEEK. Оператор SEEK

Функция SEEK возвращает текущую позицию файла.

Оператор SEEK устанавливает позицию файла для следующей записи или чтения.

Формат записи функции SEEK:

SEEK(номер_файла%)

Формат записи оператора SEEK:

Пример :

OPEN “TEST.DAT” FOR RANDOM AS #1 FOR i% = 1 TO 10

PUT #1, , i%

NEXT i% SEEK #1, 2

GET #1, , i%

PRINT “Данные: “; i%; “ Текущая запись: “; LOC(1); “ Следующая:

“; SEEK(1)

10.20. Оператор FILEATTR

Оператор FILEATTR возвращает информацию об открытом файле.

Формат записи оператор FILEATTR:

FILEATTR(номер_файла%,атрибут%)

ãäå

номер_файла% номер файла, открытого оператор OPEN.

Если атрибут% равен 2, FILEATTR возвращает указатель файла DOS.

Пример :

OPEN “ÒÅÑÒ.ÄÀÍ” FOR BINARY AS #1

PRINT FILEATTR(1, 1)

CLOSE

10.21. Оператор FREEFILE

Оператор FREEFILE возвращает номер следующего доступного неиспользуемого файла, который можно использовать в операторе OPEN.

Формат записи оператора FREEFILE:

FREEFILE

Пример :

OPEN “ÒÅÑÒ.ÄÀÒ” FOR OUTPUT AS #1

PRINT “Номер следующего файла: “; FREEFILE

CLOSE

10.22. Оператор LOCK, UNLOCK

Оператор LOCK ограничивает или закрывает доступ к файлу при работе в сети.

Оператор UNLOCK отменяет ограничения, наложенные последним оператором LOCK.

Формат записи операторов:

LOCK [#]номер_файла% [,{запись& | [начало&] TO конец&}]

UNLOCK [#]номер_файла% [,{запись& | [начало&] TO конец&}]

начало& и конец& номера первой и последней записи или байта в диапазоне закрываемых или открываемых записей или байтов.

Для последовательных файлов LOCK и UNLOCK влияют на весь файл.

Пример :

'Этот пример работает только в сети. OPEN “TEST.DAT” FOR RANDOM AS #1

FOR i% = 1 TO 10

PUT #1, , i%

NEXT i%

LOCK #1, 2 'Закрытие записи 2

GET #1, 2, i%

UNLOCK #1, 2 'Открытие записи 2

Глава XI. Справочно

11.1. **СИНТАКСИС**

КЛЮЧЕВЫЕ СЛОВА Темы, которые приведены заглавными буквами, являются основными ключевыми словами. Они представляют собой необходимую часть синтаксиса выражений, если они не заключены в скобки.

метки-заполнители Темы, которые приведены с использованием клавиш нижнего регистра, Вы должны использовать в выражении (например, имя файла $). Синтаксис Basic использует суффиксы типов данных для меток-заполните- лей, которые должны быть специфицированы. Метки — заполнители, которые имеют более одного типа данных, не имеют суффиксов типов данных.

[необязательные темы] Темы, заключенные в квадратные скобки, необязательны.

{выбор1 | выбор2} Фигурные скобки и вертикальная черта означают, что Вы можете сделать выбор между двумя или более темами. Вы должны использовать одну из тем в выражении, если фигурные скобки не заключены в квадратные.

òåìà, òåìà, … Многоточие означает, что большое количество предшествующих тем может быть использовано в выражении в одной строке.

Первое ключевое слово

. Вертикальное многоточие из трех точек используется для описания

. выражений в несколько строк (или блочно-структурированных

. выражений). Это значит, что другие выражения могут быть

. использованы между началом и концом блока.

Последнее ключевое слово

11.2. **НАБОР ОСНОВНЫХ СИМВОЛОВ**

Набор основных символов Basic включает буквенные символы (A-Z, a-z), числовые символы (0-9 и A-F или a-f для шестнадцатиричных чисел) и специальные символы. Некоторые символы в Basic имеют специальное назначение: