Шаг 4 - Что мы написали

Очистить экран от всяких постороних записей

clear

Закрыть все открытые таблицы на всякий случай

close databases

Готовим переменные с указаной шириной и типом

filename='         '
gosnomer='             '
nomera=0001

Ввод переменных. Этот блок готовит форму для ввода разных переменных

@ 10,10 SAY 'Имя файла '  GET filename 
@ 12,10 SAY 'Гос номер'   GET gosnomer
@ 14,10 SAY 'Кол номеров' GET nomera
READ

Обрезаем пробелы со всех сторон у строковых переменных

filename=LTRIM(filename)
filename=RTRIM(filename)
gosnomer=LTRIM(gosnomer)
gosnomer=RTRIM(gosnomer)

Получаем к имени файла добавляем расширение

filename=filename+'.dbf'

Открываем файл

use &filename

По количеству номеров добавляем записи и вводим в них значения

for x=1 to nomera
 append blank
 replace nn     with STR(x)
 replace gosnom with gosnomer
next x

Просмотр и закрытие базы данных

browse
close databases

Предыдущий Шаг | Следующий Шаг | Оглавление
Автор Каев Артем.