1c/OpenIntegrations
1
0
Fork 0
mirror of https://github.com/Bayselonarrend/OpenIntegrations.git synced 2025-02-03 13:22:19 +02:00
Code Issues Releases Activity

Мелкие правки

Browse Source
This commit is contained in:
Anton 2024-03-31 22:23:20 +03:00
parent 0bf0b16ff6
commit a3a0443825
2 changed files with 2 additions and 76 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
OPI/src/CommonModules/OPI_Инструменты/Module.bsl
View File

@ -278,13 +278,13 @@
КонецФункции
Функция ЗначениеВМассив(Значение) Экспорт
Процедура ЗначениеВМассив(Значение) Экспорт
Значение_ = Новый Массив;
Значение_.Добавить(Значение);
Значение = Значение_;
КонецФункции
КонецПроцедуры
#КонецОбласти

74
cli/tools/Modules/ОбработкаПараметров.os
View File

@ -1,74 +0,0 @@
#Область СлужебныйПрограммныйИнтерфейс
Функция ОбработатьВходящийПараметр(Знач Значение, Знач ВидОбработки) Экспорт
Значение = СокрЛП(Значение);
Если ВидОбработки = "JSON" Тогда
ОбработатьПараметрJSON(Значение);
ИначеЕсли ВидОбработки = "Текст" Тогда
ОбработатьПараметрТекст(Значение);
ИначеЕсли ВидОбработки = "Массив" Тогда
ОбработатьПараметрМассив(Значение);
Иначе
Значение = Строка(Значение);
КонецЕсли;
Возврат Значение;
КонецФункции
#КонецОбласти
#Область СлужебныеПроцедурыИФункции
Процедура ОбработатьПараметрJSON(Значение)
Файл = Новый Файл(Значение);
ЧтениеJSON = Новый ЧтениеJSON;
Если Файл.Существует() Тогда
ЧтениеJSON.ОткрытьФайл(Значение);
ЧтениеJSON.Прочитать();
Иначе
ЧтениеJSON.УстановитьСтроку(СокрЛП(Значение));
КонецЕсли;
Значение = ПрочитатьJSON(ЧтениеJSON, Истина, Неопределено, ФорматДатыJSON.ISO);
ЧтениеJSON.Закрыть();
КонецПроцедуры
Процедура ОбработатьПараметрТекст(Значение)
Файл = Новый Файл(Значение);
Если Файл.Существует() Тогда
ЧтениеТекста = Новый ЧтениеТекста(Значение);
Значение = ЧтениеТекста.Прочитать();
ЧтениеТекста.Закрыть();
Иначе
Значение = Строка(Значение);
КонецЕсли;
Значение = СокрЛП(Значение);
КонецПроцедуры
Процедура ОбработатьПараметрМассив(Значение)
Значение = СтрЗаменить(Значение, "['" , "");
Значение = СтрЗаменить(Значение, "']" , "");
Значение = СтрЗаменить(Значение, "', '" , "','");
Значение = СтрЗаменить(Значение, "' , '", "','");
Значение = СтрЗаменить(Значение, "' ,'" , "','");
Значение = СтрРазделить(Значение, "','", Ложь);
Для Н = 0 По Значение.ВГраница() Цикл
Значение[Н] = СокрЛП(Значение[Н]);
КонецЦикла;
КонецПроцедуры
#КонецОбласти