Книга знаний ТурбоМД: решение проблемы загрузки мокселей #201374

Так какой же скрипт MXL выгружает в файлы? Кто подскажет..

Да цепляй просто как файл Типа таб.ИсходнаяТаблица("c:ИмяФайла.mxl");

?

Тотже самый

+ тока беда у тебя может получиться, перепутаются (но это лечится)

' (c) Orefkov 'Пример скрипта, позволяющего выгрузить в файл 'текущую редактируемую форму, модуль или таблицу '(либо просто модуль проведения или вида расчета) 'во внешний файл. 'При этом выгружается текущее состояние формы/модуля 'без необходимости сохранять конфигурацию ' ' Автор: Александр Орефков ' ' artbear: Есть вставка кода ' Автор - Николай Гаврилов <shootnick2000@mail.ru> ' Отлавливает момент сохранения md и переименовывает turboMD.prm в bak. 'Автор - Павел Бондарев <jbond81@mail.ru> 'Обобщение наработок сделанных другими пользователями ' + дополнительно сохранение мокселей формы ' Dim BaseDir BaseDir = IBDir & "unpack" ' Базовый каталог для выгрузки ' Процедура создания ветки каталогов        If FSO.FolderExists(p) = False Then FSO.CreateFolder p ' функции работы со списком модулей ' Анализ файла turbomd.prm Sub AnalyzeTurboMDPrm(NullParam) ' параметр нужен, чтобы не был виден в списке макросов ' добавление соответствия в файл TurboMD.prm    'И создаем этот каталог    If doc = docTable Then ' Если выгружаемый объект - таблица 'Собственно макрос для выгрузки активного окна    On Error Resume Next    If w Is Nothing Then    Else        If d = docWorkBook Then ' Форма        For i = 0 To d.CountPages-1 'Макрос для загрузки всех распакованных файлов обратно в мдшник    On Error Resume Next            Else                If doc.LoadFromFile(fName) <> True Then ' Макрос для быстрого открытия файла TurboMD.prm If doc = docWorkBook Then Set doc = doc.Page If doc <> docText Then Exit Sub If not doc.IsOpen Then Exit Sub On Error Resume Next CD.ShowColor if Err.Number > 0 Then Exit Sub Sub Configurator_OnMsgBox(Text, Style, DefAnswer, Answer) 'Делаем так, чтобы 1С-ка не задавала много лишних вопросов       If InStr(Text, "Сохранить изменения?") <> 0 Then       If InStr(Text, "Реорганизация информации закончена!") <> 0 Then    'Загружаем все текстовички при открытии конфигурации        If InStr(path, "new_stru") <> 0 Then    'При изменении структуры метаданных (например, я создал новую константу)    'папка почему-то NEW_STRU

А ты таблицы пробовал ?

3,5 Тот же самый не получается

- у меня моксели более-менее прилично выгружаются. Влшебник, а скрипты слабо анализировать? Или как правильно пометить текст как код?

8. Я так понимаю нужен доработанный скрипт для ТурбоМД, чтобы моксели выгружалися, кто нить подкинте

Обновил статью.

Спасиба

А это че d.namePage ? Вроде раньше небыло такого, там была проблемма с порядком обхода я решал не так, передавал текущую страницу и Documents(p.Name).SaveToFile делал

- если честно, я делал это скрипт очень давно. Все позабыл :-((( d.namePage - это имя страницы Можешь изменить статью в соответствии со своим скриптом? Зы Может из-за этого он иногда выводит Ошибка выполнения UnloadCurrentWnd.

Во, во оно самое...Порядок обхода в опенконфе както неверно соответствует именам