Функции для обработки файлов

SELECT () – определение номера текущей рабочей области.

FILE (<имя файла>) – проверка существования файла (если файл с указанным именем есть, выводится значение .T.).

DBF ([<n>]) – определение имени активной таблицы данных (n-номер рабочей области СУБД, по умолчанию – текущая область).

BOF ([<n>]) – проверка условия начала файла для таблицы данных (n-номер рабочей области).

EOF ([<n>]) – проверка условия конца файла для таблицы данных (n-номер рабочей области).

FCOUNT ([<n>]) – определение количества полей в таблице данных (n-номер рабочей области).

FIELDS (<n1> [,<n2>]) – определение имени поля в таблице данных (n1-номер поля, n2-номер рабочей области).

RECCOUNT ([<n>]) – определение количества записей в таблице из рабочей области n.

RECNO ([<n>]) – определение номера текущей записи таблицы данных из рабочей области n.

RECSIZE ([<n>]) – определение размера текущей записи таблицы данных из рабочей области n.

NDX ( <n> ) – определение открытого индексного файла для активной базы данных ( n- номер индексного файла).

Функции для обработки символьных выражений

LEN (< строка >) – определение длины строки.

АТ (<строка1>, <строка2>) – поиск первого вхождения строки <строка1> в строку <строка2> (результатом является номер позиции, в которой вхождение найдено).

UPPER (<строка>) – преобразование в строке латинских букв нижнего регистра в буквы верхнего регистра.

LOWER (<строка>) – преобразование в строке латинских букв верхнего регистра в буквы нижнего регистра.

ISALPHA (<строка>) – выполнение проверки, является ли первый символ строки буквой.

ISLOWER (<строка>) – выполнение проверки, является ли первый символ строки буквой нижнего регистра.

ISUPPER (<строка>) – выполнение проверки, является ли первый символ строки буквой верхнего регистра.

LEFT (<строка>, <n>) – вывод подстроки длиной n символов из указанной строки <строка>, начиная с 1‑й позиции.

RIGHT(<строка>, <n>) – вывод подстроки длиной n символов из указанной строки <строка>, начиная с последней позиции.

RTRIM (<строка>) – удаление завершающих пробелов в строке.

REPLICATE (<строка>, <n>) – копирование строки n раз.

SPACE (<n>) – формирование строки из n пробелов.

STUFF (<строка1>, <n>, <k>, <строка2>) – преобразование строки символов <строка1> путем удаления k символов и ввода строки <строка2> , начиная с n –го символа.

SUBSTR (<строка>, <n> [,<k>]) – формирование подстроки из строки <строка> длиной k символов, начиная с n –го символа.

VAL (<строка>) – преобразование строки символов, состоящей только из цифр, в числовое выражение.

Основная литература: 1[117:121], 2[20:23].

Контрольные вопросы:

1. Какая команда суммирует содержимое числового поля.

2. Какая функция преобразует строку символов в числовое выражение.

3. Какая функция определяет, достигнут ли конец файла.

4. Какая функция позволяет преобразовать буквы нижнего регистра в буквы верхнего регистра.

5. Какие возможные типы переменных могут существовать в языке в xBase.

Тема 5. Программирование в субд.

Для организации различных видов представления и обработки данных, хранящихся в базах данных, разрабатываются приложения - прикладные программы. Они могут разрабатываться как в универсальных инструментальных средах программирования, так и в среде программирования СУБД. При программировании в среде dBase-подобных СУБД в программы можно включать все команды и операторы языка программирования xBase.

Имя файла программы имеет расширение .PRG.

Это текстовый файл, который можно создать и корректировать в любом текстовом редакторе или в среде СУБД, в которых имеется встроенный редактор. Его создание или вызов осуществляется командой:

MODIFY COMMAND <имя_файла>

Если имя файла не указано, то система выведет подсказку о вводе имени файла. Если указанный файл не существует, система создаст его. Для изменения программного файла необходимо использовать эту же команду: MODIFY COMMAND <имя_файла>.

При наборе программы на одной строке записывается только одна команда. Если команда не поместилась на одной строке, она переносится на следующую строку, а в конце предыдущей строки ставится символ ;. Комментарии в конце строки указываются после двух символов && (амперсанд), в начале строки – после символа *.

Программа не имеет признаков начала и конца, строки не нумеруются.

Чтобы набранная программа записалась в указанный файл, нужно одновременно нажать клавиши CTRL и END (^ END или ^W).

Команда запуска программы на выполнение имеет формат:

DO <имя файла>.

Когда вызывается программный файл, команды в его составе выполняются в порядке их следования с учетом управляющих операторов xBase. Выполнение командного файла будет продолжаться до того момента, пока не встретится одна из команд RETURN, CANCEL, QUIT или не будет достигнут конец программы.

Команда CANCEL прерывает выполнение программы, при этом очищаются все собственные переменные памяти. RETURN является командой, завершающей программу, но ее использование необязательно, так как выполнение последней команды программы автоматически приведет к выполнению оператора RETURN. Команда QUIT осуществляет выход из СУБД.

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

В программе можно использовать подпрограммы и процедуры. Каждую подпрограмму отдельно создают командой MODIFY COMMAND <имя_подпрограммы>. Каждой подпрограмме соответствует свой файл на диске с уникальным именем и расширением .PRG. Вызывается подпрограмма командой:

DO <имя_подпрограммы> [WITH<список_параметров>]

Параметр WITH позволяет передавать программе требуемые параметры. В этом случае в начале подпрограммы должны указываться параметры. Команда указания параметров подпрограммы имеет формат:

PARAMETERS <список_параметров>

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

Команда возврата управления из подпрограммы вызвавшей программе имеет формат:

RETURN [ TO MASTER / <выражение>]

Параметр TO MASTER указывает, что управление передается в вызвавшую программу самого верхнего уровня, так как возможен вызов подпрограммы из подпрограмм. Если программа является процедурой – функцией, то возвращаемое значение указывается в выражении.

При использовании в программе большого количества подпрограмм, на обращение к ним требуется значительное время – время считывания их с диска. Для увеличения быстродействия вместо подпрограмм используют процедуры. Они могут располагаться после основной программы или должны быть объединены в отдельный файл – процедурный. При использовании процедурного файла в основной программе должна быть выполнена команда установки:

SET PROCEDURE TO <имя_процедурного_файла>

Процедурный файл должен быть закрыт после его использования. Команда закрытия процедурного файла:

CLOSE PROCEDURE

Вызывается процедура, как и подпрограмма, командой:

DO <имя_процедуры> [WITH<список_параметров>]

Команда начала каждой процедуры в программе имеет формат:

PROCEDURE <имя_процедуры>

[PARAMETERS <список_параметров>]

Необязательная вторая команда (PARAMETERS) используется, если вызов процедуры осуществляется с указанием передаваемых параметров. Команда окончания процедуры: RETURN.

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

Команда отслеживания ошибки имеет формат:

ON ERROR [<команда>]

При появлении ошибки будет выполняться указанная команда.

Команда отслеживания нажатия клавиши ESC имеет формат:

ON ESCAPE [<команда>]

При нажатии на клавишу ESC будет выполняться указанная команда.

Команда отслеживания нажатия любой клавиши имеет формат:

ON KEY [<команда>]

При нажатии на любую клавишу выполняется указанная команда.

Команда отслеживания нажатия определенной клавиши имеет формат:

ON KEY=<числовое_выражение> <команда>

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

Если используется несколько команд ON, их приоритет устанавливается в следующем порядке: ERROR, ESCAPE, KEY. Все команды остаются активными до тех пор, пока не будет обнаружена следующая команда ON, использующая то же условие. Отслеживание условий может быть отключено при использовании этих же команд без параметра <команда>:

ON ERROR / ON ESCAPE / ON KEY

Для включения команд MS DOS в программу, написанную на языке программирования xBase, необходимо использовать команду RUN:

RUN <команда_MS_DOS>

Команда SUSPEND позволяет приостановить выполнение программы. Команда RESUME продолжает выполнение приостановленной программы.

Программа, составленная на языке программирования xBase, может быть выполнена различными способами. Исходные программы (командные файлы с расширением .PRG) выполняются в СУБД, использующей язык программирования xBase, при выполнении команды: DO <имя_программы>

Исходные программы (командные файлы с расширением .PRG) можно откомпилировать. При этом создаются новые файлы с теми же именами, но с другим расширением (например, в FoxPro с расширением .FXP). Откомпилированные программы загружаются с диска со скоростью их считывания, в то время как исходные программы должны компилироваться по мере их считывания, что приводит к дополнительным временным задержкам. Поэтому рекомендуется выполнять предварительную компиляцию программ.

В именах программ можно использовать трафаретные символы используемой ОС, что позволяет компилировать несколько программ посредством одной команды. При наличии исходной и откомпилированной программы СУБД всегда выполняет компилированную версию программного файла.

Современные версии dBase-подобных СУБД позволяют создавать исполняемые файлы программ (с расширением .EXE). Эти файлы можно выполнять автономно без СУБД, но при наличии специальных библиотек.

В языке программирования xBase имеется несколько управляющих операторов, широко используемых при написании программ: оператор условия, оператор выбора и операторы цикла. В интерактивном режиме использование операторов невозможно.

Оператор условия имеет формат:

IF <условие>

<группа_команд_1>

[ ELSE <группа_команд_2>]

ENDIF

В этом операторе выражение <условие> анализируется и если оно истинно – выполняется <группа_команд_1>. При наличии параметра ELSE и ложности выражения <условие>, выполняется <группа_команд_2>.

Если выражение <условие> ложно и параметр ELSE отсутствует, осуществляется выход из оператора IF…ENDIF.

Выражения IF <условие> могут быть вложены одно в другое, при этом для каждого IF требуется соответствующее ENDIF.

При необходимости проверки нескольких условий вместо вложенных операторов условий удобнее использовать оператор выбора, имеющий следующий формат:

DO CASE

CASE < условие_1>

<группа_команд_1>

CASE < условие_2>

<группа_команд_2>

…...................................................................

CASE < условие_N >

<группа_команд_N>

[ OTHERWISE

<группа_команд>]

ENDCASE

В этом операторе анализируются <условие_1>, <условие_2>, …, <условие_N> по одному в поисках первого логически истинного условия. При обнаружении истинного условия выполняется соответствующая <группа_команд_i>, после чего управление передается первой команде, следующей за ENDCASE. В операторе DO CASE всегда выполняется только одна <группа_команд_i>, следующая за первым из обнаруженных истинных условий. Если ни одно из истинных условий не обнаружено, тогда дальнейшее выполнение оператора зависит от наличия параметра OTHERWISE. Если параметр OTHERWISE имеется в составе оператора, то выполняется <группа_команд>, следующая за ним. Если параметр OTHERWISE отсутствует, то управление передается первой команде, следующей за оператором ENDCASE. В этом случае ни одна <группа_команд_i>, входящая в структуру оператора DO CASE…ENDCASE, выполнена не будет.

Для организации циклов может использоваться один из трех операторов цикла: с условием, по параметру, по записям таблицы данных.

Оператор цикла с условием имеет формат:

DO WHILE <условие>

<группа_команд_1>

[ LOOP]

<группа_команд_2>

[ EXIT]

ENDDO

В этом операторе анализируется выражение <условие> и в случае его истинности (.T.) – выполняются команды, указанные в теле цикла. В случае ложности выражения <условие> (.F.), осуществляется выход из оператора цикла.

LOOP является необязательным параметром, при обнаружении которого происходит переход к началу цикла, при этом <группа_команд_2> игнорируется. EXIT является необязательным параметром, который передает управление из цикла первой команде, следующей за ENDDO. Команды EXIT и LOOP могут быть размещены в любом месте внутри цикла и могут использоваться во всех операторах цикла.

Оператор цикла с параметром имеет формат:

FOR <имя_ВПП>=<выражение1> TO < выражение2>

[STEP < выражение3>]

<группа_команд_1>

[ LOOP]

<группа_команд_2>

[ EXIT]

ENDFOR

В этом операторе параметром цикла является ВПП и команды, указанные в теле цикла, выполняются каждый раз начиная с начального значения параметра (<выражение1>) и до конечного значения параметра (<выражение2>). Значение параметра изменяется автоматически после каждого цикла с шагом, равным значению < выражение3>. В случае отсутствия необязательного указания шага параметра, шаг берется равным 1.

Оператор цикла по таблице данных осуществляет сканирование записей таблицы данных в указанном диапазоне с учетом заданного условия. Формат оператора цикла сканирования таблицы данных:

SCAN [<диапазон>][<список_выpажений>][FOR/WHILE<условие>]

<группа_команд_1>

[ LOOP]

<группа_команд_2>

[ EXIT]

ENDSCAN

Основная литература: 1[111:117], 4[23:31].

Контрольные вопросы:

1. Какая команда позволяет создать командный файл.

2. Какие операторы циклов существуют.

3. Какой оператор позволяет реализовать цикл с параметром.

4. Какой оператор позволяет проверять условия.

5. Какой оператор позволяет реализовать ветвление при выполнении программ.