Очистить экран от всяких постороних записей
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