|
| 1 | +// Базовая реализация файлового провайдера параметров. |
| 2 | +// Содержит общую механику (поверхность провайдера, чтение/разбор файла), |
| 3 | +// а формат-специфичная логика инкапсулирована в объекте-парсере. |
| 4 | +// |
| 5 | +// Контракт парсера: |
| 6 | +// * РасширенияФайлов() - Строка - поддерживаемые расширения (через пробел) |
| 7 | +// * РазобратьТекст(Текст) - Соответствие - разбор содержимого файла |
| 8 | + |
| 9 | +#Использовать logos |
| 10 | + |
| 11 | +Перем Лог; |
| 12 | + |
| 13 | +Перем _Приоритет; // Число |
| 14 | +Перем _Идентификатор; // Строка |
| 15 | +Перем _Настройки; // НастройкиФайловогоПровайдера |
| 16 | +Перем _Парсер; // Объект-парсер формата |
| 17 | + |
| 18 | +#Область ПрограммныйИнтерфейс |
| 19 | + |
| 20 | +// Возвращает приоритет провайдера |
| 21 | +// |
| 22 | +// Возвращаемое значение: |
| 23 | +// Число - текущий приоритет провайдера |
| 24 | +// |
| 25 | +Функция Приоритет() Экспорт |
| 26 | + Возврат _Приоритет; |
| 27 | +КонецФункции |
| 28 | + |
| 29 | +// Устанавливает приоритет провайдера |
| 30 | +// |
| 31 | +// Параметры: |
| 32 | +// НовыйПриоритет - Число - приоритет |
| 33 | +// |
| 34 | +// Возвращаемое значение: |
| 35 | +// Объект.БазовыйФайловыйПровайдер - ссылка на текущий объект |
| 36 | +// |
| 37 | +Функция УстановитьПриоритет(Знач НовыйПриоритет) Экспорт |
| 38 | + _Приоритет = НовыйПриоритет; |
| 39 | + Возврат ЭтотОбъект; |
| 40 | +КонецФункции |
| 41 | + |
| 42 | +// Возвращает идентификатор провайдера |
| 43 | +// |
| 44 | +// Возвращаемое значение: |
| 45 | +// Строка - текущий идентификатор провайдера |
| 46 | +// |
| 47 | +Функция Идентификатор() Экспорт |
| 48 | + Возврат _Идентификатор; |
| 49 | +КонецФункции |
| 50 | + |
| 51 | +// Устанавливает идентификатор провайдера |
| 52 | +// |
| 53 | +// Параметры: |
| 54 | +// НовыйИдентификатор - Строка - идентификатор |
| 55 | +// |
| 56 | +// Возвращаемое значение: |
| 57 | +// Объект.БазовыйФайловыйПровайдер - ссылка на текущий объект |
| 58 | +// |
| 59 | +Функция УстановитьИдентификатор(Знач НовыйИдентификатор) Экспорт |
| 60 | + _Идентификатор = НовыйИдентификатор; |
| 61 | + Возврат ЭтотОбъект; |
| 62 | +КонецФункции |
| 63 | + |
| 64 | +// Возвращает тип провайдера |
| 65 | +// |
| 66 | +// Возвращаемое значение: |
| 67 | +// Строка - текущий тип провайдера |
| 68 | +// |
| 69 | +Функция ТипПровайдера() Экспорт |
| 70 | + Возврат "file"; |
| 71 | +КонецФункции |
| 72 | + |
| 73 | +// Возвращает расширения файлов по умолчанию (из парсера) |
| 74 | +// |
| 75 | +// Возвращаемое значение: |
| 76 | +// Строка - расширения файлов |
| 77 | +// |
| 78 | +Функция РасширенияФайлов() Экспорт |
| 79 | + Возврат _Парсер.РасширенияФайлов(); |
| 80 | +КонецФункции |
| 81 | + |
| 82 | +// Возвращает объект настроек провайдера |
| 83 | +// |
| 84 | +// Возвращаемое значение: |
| 85 | +// НастройкиФайловогоПровайдера - настройки |
| 86 | +// |
| 87 | +Функция Настройки() Экспорт |
| 88 | + Возврат _Настройки; |
| 89 | +КонецФункции |
| 90 | + |
| 91 | +// Выполняет чтение параметров для провайдера |
| 92 | +// |
| 93 | +// Возвращаемое значение: |
| 94 | +// Соответствие - результат чтения провайдера |
| 95 | +// |
| 96 | +Функция ПрочитатьПараметры() Экспорт |
| 97 | + |
| 98 | + // Делегируем поиск и чтение файлов в ФайловыйПровайдерПараметров |
| 99 | + ЭффективныеНастройки = _Настройки.ПолучитьНастройки(); |
| 100 | + |
| 101 | + ФайловыйПровайдер = Новый ФайловыйПровайдерПараметров(ЭтотОбъект); |
| 102 | + Возврат ФайловыйПровайдер.ПрочитатьПараметры(ЭффективныеНастройки); |
| 103 | + |
| 104 | +КонецФункции |
| 105 | + |
| 106 | +// Выполняет чтение и разбор одного файла параметров |
| 107 | +// |
| 108 | +// Параметры: |
| 109 | +// ПутьКФайлуНастройки - Строка - путь к файлу параметров |
| 110 | +// |
| 111 | +// Возвращаемое значение: |
| 112 | +// Соответствие - итоговые параметры |
| 113 | +// |
| 114 | +Функция Прочитать(Знач ПутьКФайлуНастройки) Экспорт |
| 115 | + |
| 116 | + РезультатЧтения = Новый Соответствие; |
| 117 | + |
| 118 | + Попытка |
| 119 | + |
| 120 | + Лог.Отладка("ПутьКФайлуНастройки <%1>", ПутьКФайлуНастройки); |
| 121 | + |
| 122 | + РезультатЧтения = РазобратьФайл(ПутьКФайлуНастройки); |
| 123 | + |
| 124 | + Лог.Отладка("Итоговые параметры:"); |
| 125 | + ПоказатьПараметрыВРежимеОтладки(РезультатЧтения); |
| 126 | + |
| 127 | + Исключение |
| 128 | + |
| 129 | + Лог.Ошибка("Ошибка чтения настроек |
| 130 | + |%1", ПодробноеПредставлениеОшибки(ИнформацияОбОшибке())); |
| 131 | + |
| 132 | + ВызватьИсключение; |
| 133 | + |
| 134 | + КонецПопытки; |
| 135 | + |
| 136 | + Возврат РезультатЧтения; |
| 137 | + |
| 138 | +КонецФункции |
| 139 | + |
| 140 | +#КонецОбласти |
| 141 | + |
| 142 | +#Область Вспомогательные_процедуры_и_функции |
| 143 | + |
| 144 | +Функция РазобратьФайл(Знач ПутьКФайлуНастройки) |
| 145 | + |
| 146 | + ФайлНастроек = Новый Файл(ПутьКФайлуНастройки); |
| 147 | + ИмяФайла = ФайлНастроек.ПолноеИмя; |
| 148 | + |
| 149 | + Лог.Отладка("Путь файла настроек <%1>", ИмяФайла); |
| 150 | + |
| 151 | + Если Не ФайлНастроек.Существует() Тогда |
| 152 | + ВызватьИсключение СтрШаблон("Файл настроек не существует. Путь <%1>", ИмяФайла); |
| 153 | + КонецЕсли; |
| 154 | + |
| 155 | + Текст = ПрочитатьТекстФайла(ИмяФайла); |
| 156 | + |
| 157 | + Лог.Отладка("Текст файла настроек: |
| 158 | + |%1", Текст); |
| 159 | + |
| 160 | + Возврат _Парсер.РазобратьТекст(Текст); |
| 161 | + |
| 162 | +КонецФункции |
| 163 | + |
| 164 | +Функция ПрочитатьТекстФайла(Знач ИмяФайла) |
| 165 | + |
| 166 | + Чтение = Новый ЧтениеТекста(ИмяФайла, КодировкаТекста.UTF8); |
| 167 | + Текст = Чтение.Прочитать(); |
| 168 | + Чтение.Закрыть(); |
| 169 | + |
| 170 | + Возврат Текст; |
| 171 | + |
| 172 | +КонецФункции |
| 173 | + |
| 174 | +Процедура ПоказатьПараметрыВРежимеОтладки(ЗначенияПараметров) |
| 175 | + |
| 176 | + ПроцессорВывода = Новый ВыводВРежимеОтладки(Лог); |
| 177 | + ПроцессорВывода.ПоказатьНастройкиВРежимеОтладки(ЗначенияПараметров); |
| 178 | + |
| 179 | +КонецПроцедуры |
| 180 | + |
| 181 | +#КонецОбласти |
| 182 | + |
| 183 | +Процедура ПриСозданииОбъекта(Знач Парсер, Знач ИдентификаторПровайдера, Знач Приоритет, Знач ИмяЛога) |
| 184 | + |
| 185 | + _Парсер = Парсер; |
| 186 | + _Идентификатор = ИдентификаторПровайдера; |
| 187 | + _Приоритет = Приоритет; |
| 188 | + _Настройки = Новый НастройкиФайловогоПровайдера; |
| 189 | + |
| 190 | + Лог = Логирование.ПолучитьЛог(ИмяЛога); |
| 191 | + |
| 192 | +КонецПроцедуры |
0 commit comments