Возможно ли програмно получить текст модуля в 82?
☑
0
Sintez123
19.10.11
✎
12:25
Как получить текст модуля документа и любого другого объекта програмно? Не внося изменения в сам объект-жертву =)
1
asady
19.10.11
✎
12:27
(0) только распаковав конфу
2
Поручик
19.10.11
✎
12:41
(0) Давно пора на 7.7. переходить, там это на ВК реализовано.
3
Dimonster
19.10.11
✎
12:44
(0) Такой возможности у встроенного языка нет, только через командную строку
4
PVV65
19.10.11
✎
12:54
(0)
СтрокаВыгрузки = "1cv8.exe CONFIG /F" + """" + КаталогИнформационнойБазы + """";
Если СтрДлина(Пользователь) > 0 Тогда
СтрокаВыгрузки = СтрокаВыгрузки + " /N" + """" + Пользователь + """";
СтрокаВыгрузки = СтрокаВыгрузки + " /P" + """" + Пароль + """";
КонецЕсли;
ЕстьКаталогВыгрузки = НайтиФайлы(КаталогВыгрузки);
Если ЕстьКаталогВыгрузки.Количество() = 0 Тогда
СоздатьКаталог(КаталогВыгрузки);
КонецЕсли;
ВременныйЛогФайлВыгрузки = КаталогВременныхФайлов() + "dump.log";
СтрокаВыгрузки = СтрокаВыгрузки + " /Out" + """" + ВременныйЛогФайлВыгрузки + """";
СтрокаВыгрузки = СтрокаВыгрузки + " /DumpConfigFiles" + """" + КаталогВыгрузки + """";
СтрокаВыгрузки = СтрокаВыгрузки + " -Module";
ЕстьФайлы = НайтиФайлы(КаталогВыгрузки, "*.*");
Если ЕстьФайлы.Количество() > 0 Тогда
Попытка
УдалитьФайлы(КаталогВыгрузки, "*.*");
Исключение
КонецПопытки;
КонецЕсли;
Попытка
ЗапуститьПриложение(СтрокаВыгрузки, КаталогПрограммы(), Истина);
Исключение
Предупреждение(ОписаниеОшибки(),, "Ошибка выгрузки файлов конфигурации");
Возврат Ложь;
КонецПопытки;
Таким образом получишь все модули. Дальше найдешь нужный.
Кaк может человек ожидaть, что его мольбaм о снисхождении ответит тот, кто превыше, когдa сaм он откaзывaет в милосердии тем, кто ниже его? Петр Трубецкой