You've already forked SmartConfigurator
mirror of
https://github.com/ret-Phoenix/SmartConfigurator.git
synced 2026-06-09 22:05:18 +02:00
ret-Phoenix
59 lines
2.9 KiB
Plaintext
59 lines
2.9 KiB
Plaintext
#использовать WinExt
|
|
// #Использовать logging
|
|
|
|
Перем Обмен;
|
|
// Перем Лог;
|
|
|
|
Процедура ПолучитьСписокФайлов(Знач РабочийКаталог, СписокФайлов)
|
|
|
|
МассивДопустимыхРасширений = Новый Массив;
|
|
МассивДопустимыхРасширений.Добавить(".epf");
|
|
МассивДопустимыхРасширений.Добавить(".erf");
|
|
МассивДопустимыхРасширений.Добавить(".cf");
|
|
|
|
Каталоги = НайтиФайлы(РабочийКаталог, "*.*", Истина);
|
|
Для Каждого НайденныйФайл Из Каталоги Цикл
|
|
Если МассивДопустимыхРасширений.Найти(НайденныйФайл.Расширение) <> Неопределено Тогда
|
|
СписокФайлов.Вставить(НайденныйФайл.ПолноеИмя, НайденныйФайл.ПолноеИмя);
|
|
КонецЕсли;
|
|
КонецЦикла;
|
|
|
|
КонецПроцедуры
|
|
|
|
Процедура ПриСозданииОбъекта()
|
|
|
|
// Лог = Новый ЛогированиеВФайл("tmp/log.log");
|
|
Обмен = ЗагрузитьСценарий("core/Обмен.os");
|
|
|
|
РаботаСОкнами = Новый РаботаСОкнами();
|
|
РаботаСОкнами.ЗапомнитьТекущееОкно();
|
|
|
|
Настройки = ЗагрузитьСценарий("settings\СписокКаталоговВнешнихФорм.os").Настройки;
|
|
|
|
Если Настройки.Количество() = 0 Тогда
|
|
Обмен.ПоказатьПредупреждение("Необходимо указать пути внешних отчетов/обработок: settings/СписокКаталоговВнешнихФорм.os", "Внешние файлы");
|
|
Возврат;
|
|
КонецЕсли;
|
|
|
|
СписокФайлов = Новый Соответствие;
|
|
|
|
Для каждого Путь Из Настройки Цикл
|
|
ПолучитьСписокФайлов(Путь, СписокФайлов);
|
|
КонецЦикла;
|
|
|
|
ВыборИзСписка = ЗагрузитьСценарий("core/SelectValue.os");
|
|
Результат = ВыборИзСписка.ВыбратьИзСписка(СписокФайлов, Истина);
|
|
|
|
РаботаСОкнами.АктивироватьЗапомненноеОкно();
|
|
|
|
МСПослатьКлавиши = Новый МСПослатьКлавиши;
|
|
МСПослатьКлавиши.ПослатьCtrlO();
|
|
|
|
Если Обмен.ОкноПоЗаголовку("Открыт") = Ложь Тогда
|
|
Возврат;
|
|
КонецЕсли;
|
|
|
|
Обмен.УстановитьТекстВВыделение(Результат);
|
|
МСПослатьКлавиши.ПослатьКлавиши("{Enter}");
|
|
|
|
КонецПроцедуры |