1c/OpenIntegrations
1
0
Fork 0
mirror of https://github.com/Bayselonarrend/OpenIntegrations.git synced 2024-12-25 02:42:28 +02:00
Code Issues Releases Activity

Update Дженва.os

Browse Source
This commit is contained in:
Anton 2024-04-09 21:28:05 +03:00
parent 53c5207191
commit 85b02fd072
1 changed files with 18 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

33
cli/tools/Modules/Дженва.os
View File

@ -19,10 +19,6 @@
МаксимальнаяВложенность = МаксимальныйУровеньВложенности;
ИскомыйПараметр = ИмяПараметра;
Если ТипЗнч(JSON) = Тип("Строка") Тогда
НормализоватьТекстовыйВвод(JSON);
КонецЕсли;
ПолучитьКоллекцию(JSON);
Если Не ТипЗнч(JSON) = Тип("Соответствие") Тогда
@ -36,7 +32,7 @@
КонецЕсли;
Возврат "";
КонецФункции
#КонецОбласти
@ -131,36 +127,43 @@
Значение = Строка(Значение);
КонецЕсли;
Файл = Новый Файл(Значение);
ЧтениеJSON = Новый ЧтениеJSON;
Файл = Новый Файл(Значение);
ТекстовыйДокумент = Новый ТекстовыйДокумент();
Если Файл.Существует() Тогда
ЧтениеJSON.ОткрытьФайл(Значение);
ТекстовыйДокумент.Прочитать(Значение);
Значение = ТекстовыйДокумент.ПолучитьТекст();
ТекстовыйДокумент.Закрыть();
ИначеЕсли СтрНачинаетсяС(нРег(Значение), "http") Тогда
ИВФ = ПолучитьИмяВременногоФайла();
КопироватьФайл(Значение, ИВФ);
ЧтениеJSON.ОткрытьФайл(ИВФ);
ЧтениеJSON.Прочитать();
ТекстовыйДокумент.Прочитать(ИВФ);
Значение = ТекстовыйДокумент.ПолучитьТекст();
ТекстовыйДокумент.Закрыть();
УдалитьФайлы(ИВФ);
Иначе
ЧтениеJSON.УстановитьСтроку(СокрЛП(Значение));
Значение = Строка(Значение);
КонецЕсли;
Значение = ПрочитатьJSON(ЧтениеJSON, Истина, Неопределено, ФорматДатыJSON.ISO);
ЧтениеJSON.Закрыть();
КонецЕсли;
НормализоватьТекстовыйВвод(Значение);
ЧтениеJSON = Новый ЧтениеJSON;
ЧтениеJSON.УстановитьСтроку(СокрЛП(Значение));
Значение = ПрочитатьJSON(ЧтениеJSON, Истина, Неопределено, ФорматДатыJSON.ISO);
ЧтениеJSON.Закрыть();
КонецПроцедуры
Процедура НормализоватьТекстовыйВвод(Знач Текст)
Процедура НормализоватьТекстовыйВвод(Текст)
НачальнаяФигурная = СтрНайти(Текст, "{");
ПоследняяФигурная = СтрНайти(Текст, "}", НаправлениеПоиска.СКонца);