' установщик макроса экспорта/импорта CSV через буфер обмена ' 24.11.2013 ' by colee ' http://engineerbox.ru/page/po-rastrwin-makros-importaeksporta-tablic-s-pomoshhju-bufera-obmena ' Выполнить установку в таблицы ' Узлы bNode = 1 ' 1 - Да, 0 - Нет ' Ветви bVetv = 1 ' 1 - Да, 0 - Нет ' Описание контрольных величин bOts_val = 1 ' 1 - Да, 0 - Нет ' Районы bArea = 1 ' 1 - Да, 0 - Нет ' Генераторы bGenerators = 1 ' 1 - Да, 0 - Нет ' Сечения bGrlines = 1 ' 1 - Да, 0 - Нет ' График bGrafik = 1 ' 1 - Да, 0 - Нет Set fso = CreateObject("Scripting.FileSystemObject") path_doc = rastr.SendCommandMain(3,"","",0) path_sh = path_doc & "SHABLON\" if fso.FolderExists(path_sh) then name_sh = "context.form" path_file_sh = path_sh & name_sh if fso.FileExists(path_file_sh) then 'rastr.load 1,"",path_file_sh set t_context = rastr.Tables("macrocontext") if bNode = 1 then PutToContext "Узлы" if bVetv = 1 then PutToContext "Ветви" if bOts_val = 1 then PutToContext "Описание" if bArea = 1 then PutToContext "Районы" if bGenerators = 1 then PutToContext "Генераторы" if bGrlines = 1 then PutToContext "Сечения" PutToContext "Гр.линий" end if if bGrafik = 1 then PutToContext "Графика-Узлы" PutToContext "Графика-Ветви" End if else msgbox "Не найден файл " & name_sh & " в :" & chr(13) & path_doc end if else msgbox "Нет папки SHABLON в " & chr(13) & path_doc end if msgbox "Установка выполнена" sub PutToContext(s_tab_str) if isObject(t_context) then for i=1 to 2 t_context.InsRow 0 select case ucase(s_tab_str) case ucase("Ветви") t_context.Cols("form").zn(0) = "Ветви" t_context.Cols("addstr").zn(0) = "vetv" case ucase("Узлы") t_context.Cols("form").zn(0) = "Узлы" t_context.Cols("addstr").zn(0) = "node" case ucase("Районы") t_context.Cols("form").zn(0) = "Районы" t_context.Cols("addstr").zn(0) = "area" case ucase("Описание") t_context.Cols("form").zn(0) = "Описание" t_context.Cols("addstr").zn(0) = "ots_val" case ucase("Генераторы") t_context.Cols("form").zn(0) = "Генераторы (УР)" t_context.Cols("addstr").zn(0) = "Generator" case ucase("Графика-Узлы") t_context.Cols("form").zn(0) = "Графика-Узлы" t_context.Cols("addstr").zn(0) = "node" case ucase("Графика-Ветви") t_context.Cols("form").zn(0) = "Графика-Ветви" t_context.Cols("addstr").zn(0) = "vetv" case ucase("Сечения") t_context.Cols("form").zn(0) = "Сечения" t_context.Cols("addstr").zn(0) = "sechen" case ucase("Гр.линий") t_context.Cols("form").zn(0) = "Гр.Линий" t_context.Cols("addstr").zn(0) = "grline" end select t_context.Cols("defaultappendix").zn(0) = 1 t_context.Cols("formtype").zn(0) = 0 if i=2 then t_context.Cols("macrofile").zn(0) = "CopyToClipboard.rbs" t_context.Cols("macrodesc").zn(0) = "Скопировать в буфер" else t_context.Cols("macrofile").zn(0) = "PasteFromClipboard.rbs" t_context.Cols("macrodesc").zn(0) = "Вставить из буфера" end if next else msgbox "Не инициализирована переменная t_context" end if end sub