Skip to content

Commit

Permalink
Update Дженва.os
Browse files Browse the repository at this point in the history
  • Loading branch information
Bayselonarrend committed Apr 9, 2024
1 parent 53c5207 commit 85b02fd
Showing 1 changed file with 18 additions and 15 deletions.
33 changes: 18 additions & 15 deletions cli/tools/Modules/Дженва.os
Original file line number Diff line number Diff line change
Expand Up @@ -19,10 +19,6 @@
МаксимальнаяВложенность = МаксимальныйУровеньВложенности;
ИскомыйПараметр = ИмяПараметра;

Если ТипЗнч(JSON) = Тип("Строка") Тогда
НормализоватьТекстовыйВвод(JSON);
КонецЕсли;

ПолучитьКоллекцию(JSON);

Если Не ТипЗнч(JSON) = Тип("Соответствие") Тогда
Expand All @@ -36,7 +32,7 @@
КонецЕсли;

Возврат "";

КонецФункции

#КонецОбласти
Expand Down Expand Up @@ -131,36 +127,43 @@
Значение = Строка(Значение);
КонецЕсли;

Файл = Новый Файл(Значение);
ЧтениеJSON = Новый ЧтениеJSON;
Файл = Новый Файл(Значение);
ТекстовыйДокумент = Новый ТекстовыйДокумент();

Если Файл.Существует() Тогда

ЧтениеJSON.ОткрытьФайл(Значение);
ТекстовыйДокумент.Прочитать(Значение);
Значение = ТекстовыйДокумент.ПолучитьТекст();
ТекстовыйДокумент.Закрыть();

ИначеЕсли СтрНачинаетсяС(нРег(Значение), "http") Тогда

ИВФ = ПолучитьИмяВременногоФайла();
КопироватьФайл(Значение, ИВФ);
ЧтениеJSON.ОткрытьФайл(ИВФ);
ЧтениеJSON.Прочитать();
ТекстовыйДокумент.Прочитать(ИВФ);

Значение = ТекстовыйДокумент.ПолучитьТекст();
ТекстовыйДокумент.Закрыть();

УдалитьФайлы(ИВФ);

Иначе

ЧтениеJSON.УстановитьСтроку(СокрЛП(Значение));
Значение = Строка(Значение);

КонецЕсли;

Значение = ПрочитатьJSON(ЧтениеJSON, Истина, Неопределено, ФорматДатыJSON.ISO);
ЧтениеJSON.Закрыть();

КонецЕсли;

НормализоватьТекстовыйВвод(Значение);
ЧтениеJSON = Новый ЧтениеJSON;
ЧтениеJSON.УстановитьСтроку(СокрЛП(Значение));
Значение = ПрочитатьJSON(ЧтениеJSON, Истина, Неопределено, ФорматДатыJSON.ISO);
ЧтениеJSON.Закрыть();

КонецПроцедуры

Процедура НормализоватьТекстовыйВвод(Знач Текст)
Процедура НормализоватьТекстовыйВвод(Текст)

НачальнаяФигурная = СтрНайти(Текст, "{");
ПоследняяФигурная = СтрНайти(Текст, "}", НаправлениеПоиска.СКонца);
Expand Down

0 comments on commit 85b02fd

Please sign in to comment.