Комментарии |
Программа *Подрограмма geoformat для программы ГЕОКЛАСС. Измененяет структуру * и название файлов wide - ширина поля , dec - число десятичных знаков *Автор алгоритмов и программы В.Д.Брусницын PROCEDURE geoformat PARAMETERS wide, dec SET TALK OFF SET ECHO OFF CLOSE DATA CLEAR ruf = "ВЫБРАТЬ ФАЙЛ ДЛЯ ИЗМЕНЕНИЯ СТРУКТУРЫ" imia = ALLTRIM(STR(wide))+ALLTRIM(STR(dec)) DEFINE POPUP obj_fil PROMPT FILES LIKE *.DBF; MESSAGE ruf; TITLE ruf ON SELECTION POPUP obj_fil DEACTIVATE POPUP obj_fil ACTIVATE POPUP obj_fil USE PROMPT() NOUPDATE vorname = PROMPT() vorname = SUBSTR(vorname,1,LEN(vorname)-7) viv_file =vorname+ALLTRIM(imia)+'.dbf' COPY TO &viv_file USE &viv_file beg = F_FIEL() FOR ii = beg TO FCOUNT() pii=FIELD(ii) ALTER TABLE &viv_file ALTER COLUMN &pii N(wide,dec) ENDFOR CLOSE ALL На главную страницу |
brusmann@mail.ru AbacusComp@yandex.ru © Василий Брусницын. Ивдель-Екатеринбург, 2010 г. Св. обл. Мотив +79045490809 |