Моя жена как раз этим и занимается. У неё есть куча готовых структур на все случаи жизни. Она делает с них копию, вносит сначала номера по порядку, а потом для каждого номера еще и государственный номер, который повторяется. Только после этого она берет свой микроскоп и заносит результаты анализов. Заносить надо часто сотни проб. Вот для автоматизации подобной работы и написан этот шаг. Сейчас напишу вам, а потом сделаю ей программу.
Итак создаем программу. Программа это просто текстовый файл с командами и расширением prg. Выбираем меню File - New в окне выбираем Programm и кнопку OK. Появится окно с именем программы untitled.prg. Давайте поменяем это имя на Auto.prg. Меню File - Save As.., дальше вводим имя и выбираем Save. Готово. Экран должен быть примерно такой.
Ну что гоним код ?
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
После того, как код набран можно закрыть окно File -> Close. Теперь можно выполнить наш код. Наберите в окне Command команду Do Auto. То есть запустить нашу программу. Появится окно как ниже.
После нажатия Enter на последней записи будут вставлены записи и заменены номера. Выведется окно просмотра.
Вот работает. Пояснения в следующем шаге.