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
47 lines
2.4 KiB
Plaintext
47 lines
2.4 KiB
Plaintext
Перем Обмен;
|
|
|
|
Процедура ПолучитьСписокФайлов(Знач РабочийКаталог, СписокФайлов)
|
|
|
|
МассивДопустимыхРасширений = Новый Массив;
|
|
МассивДопустимыхРасширений.Добавить(".epf");
|
|
МассивДопустимыхРасширений.Добавить(".erf");
|
|
МассивДопустимыхРасширений.Добавить(".cf");
|
|
|
|
Каталоги = НайтиФайлы(РабочийКаталог, "*.*", Истина);
|
|
Для Каждого НайденныйФайл Из Каталоги Цикл
|
|
Если МассивДопустимыхРасширений.Найти(НайденныйФайл.Расширение) <> Неопределено Тогда
|
|
СписокФайлов = СписокФайлов + НайденныйФайл.ПолноеИмя + Символы.ПС;
|
|
КонецЕсли;
|
|
КонецЦикла;
|
|
|
|
КонецПроцедуры
|
|
|
|
Процедура ПриСозданииОбъекта()
|
|
|
|
РаботаСОкнами = Новый РаботаСОкнами();
|
|
РаботаСОкнами.ЗапомнитьТекущееОкно();
|
|
|
|
Обмен = ЗагрузитьСценарий("scripts\Обмен.os");
|
|
Приемник = "tmp\module.txt";
|
|
|
|
Настройки = ЗагрузитьСценарий("settings\СписокКаталоговВнешнихФорм.os").Настройки;
|
|
|
|
Если Настройки.Количество() = 0 Тогда
|
|
Обмен.ПоказатьПредупреждение("Необходимо указать пути внешних отчетов/обработок: settings/СписокКаталоговВнешнихФорм.os", "Внешние файлы");
|
|
Обмен.ЗаписатьРезультатВФайл(Приемник, "");
|
|
Возврат;
|
|
КонецЕсли;
|
|
|
|
СписокФайлов = "";
|
|
|
|
Для каждого Путь Из Настройки Цикл
|
|
ПолучитьСписокФайлов(Путь, СписокФайлов);
|
|
КонецЦикла;
|
|
|
|
Результат = Обмен.ВыбратьИзСписка(СписокФайлов);
|
|
|
|
РаботаСОкнами.АктивироватьЗапомненноеОкно();
|
|
|
|
Обмен.ЗаписатьРезультатВФайл(Приемник,Результат);
|
|
|
|
КонецПроцедуры |