Ну, во-первых, вы наверно обратили внимание, что при работе выскакивают всякие символы. Это FoxPro показывает значение переменных и тому подобное. Давайте отключим это.
SET TALK OFF
Отключает вывод на экран результатов вывода большинства команд.
Дальше напрашивается вопрос о том как выбирать файл, а не вводить его. Для этого нужно ораганизовать меню и процедуру его обработки
DEFINE POPUP fl PROMPT FILE LIKE *.DBF ON KEY LABEL ENTER DO procOpen ACTIVATE POPUP fl ON KEY ......... PROCEDURE procOpen filename=PROMPT() use &filename DEACTIVATE POPUP RETURN
Можно использовать ALLTRIM - эта функция удалит все пробелы, что позволяет не иcпользовать LTRIM и RTRIM
gosnomer=ALLTRIM(gosnomer)
Теперь весь код выглядит так:
SET TALK OFF clear close databases filename=' ' gosnomer=' ' nomera=0001 DEFINE POPUP fl PROMPT FILE LIKE *.DBF ON KEY LABEL ENTER DO procOpen ACTIVATE POPUP fl ON KEY clear @ 12,10 SAY 'госномер' GET gosnomer @ 14,10 SAY 'количество ' GET nomera READ gosnomer=ALLTRIM(gosnomer) for x=1 to nomera append blank replace nn with STR(x) replace gosnom with gosnomer next x browse close databases return PROCEDURE procOpen filename=PROMPT() use &filename DEACTIVATE POPUP RETURN