Функция ПреобразоватьJSONвXML(JSONСтрока)
// Парсим JSON в структуру
СтруктураJSON = Новый ЧтениеJSON;
СтруктураОбъектов = СтруктураJSON.ПрочитатьИзСтроки(JSONСтрока);
// Создаем XML документ
XMLДокумент = Новый XMLДокумент;
КорневойЭлемент = XMLДокумент.ДобавитьЭлемент("Root");
// Заполняем XML документ
ДобавитьЭлементы(СтруктураОбъектов, КорневойЭлемент);
// Возвращаем XML строку
Возврат XMLДокумент.Записать();
КонецФункции
Процедура ДобавитьЭлементы(Элементы, родитель)
Для каждого Элемент Из Элементы Цикл
Если ТипЗнч(Элемент) = Тип("Структура") Тогда
НовыйЭлемент = родитель.ДобавитьЭлемент(Элемент.КлючСвойства);
ДобавитьЭлементы(Элемент.ЗначениеСвойства, НовыйЭлемент);
ИначеЕсли ТипЗнч(Элемент) = Тип("Массив") Тогда
Для каждого подЭлемент Из Элемент.ЗначениеСвойства Цикл
НовыйЭлемент = родитель.ДобавитьЭлемент(Элемент.КлючСвойства);
ДобавитьЭлементы(подЭлемент, НовыйЭлемент);
КонецЦикла;
Иначе
НовыйЭлемент = родитель.ДобавитьЭлемент(Элемент.КлючСвойства);
НовыйЭлемент.Текст = Элемент.ЗначениеСвойства;
КонецЕсли;
КонецЦикла;
КонецПроцедуры