1c/OpenIntegrations
1
0
Fork 0
mirror of https://github.com/Bayselonarrend/OpenIntegrations.git synced 2025-06-23 00:38:51 +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
Download Patch File Download Diff File Expand all files Collapse all files

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

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