Имя: Пароль:
1C
1С v8
Возможно ли програмно получить текст модуля в 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ет в милосердии тем, кто ниже его? Петр Трубецкой