====== Функция для преобразования структуры данных 1С в JSON ======

Взято тут: http://pastebin.com/HFaEaETX

Спасибо Хабраюзеру http://habrahabr.ru/users/igrishaev/

<code 1c>
    Функция json(Объект)
           
            Тип = ТипЗнч(Объект);
           
            Если
                            Тип = Тип("Массив")
                    ИЛИ Тип = Тип("ТаблицаЗначений")
                    ИЛИ Тип = Тип("СписокЗначений")
                   
                    Тогда
                   
                    Количество = Объект.Количество();
                    Результат = "[";
                   
                    Для н = 0 ПО Количество - 1 Цикл
                            Результат = Результат + json(Объект[н]) + ?(н < Количество - 1, ", ", "");
                    КонецЦикла;
                   
                    Результат = Результат + "]";
                    Возврат Результат;
                   
            ИначеЕсли
                            Тип = Тип("Структура")
                    ИЛИ Тип = Тип("Соответствие") Тогда
                    н = 0;
                    Количество = Объект.Количество();
                    Результат = "{";
                   
                    Для Каждого Пара Из Объект Цикл
                            Результат = Результат + json(Пара.Ключ) + ": " + json(Пара.Значение) + ?(н < Количество - 1, ", ", "");
                            н = н + 1;
                    КонецЦикла;
                    Результат = Результат + "}";
                    Возврат Результат;
     
            ИначеЕсли Тип = Тип("СтрокаТаблицыЗначений") Тогда
                   
                    Результат = "{";
                    Колонки = Объект.Владелец().Колонки;
                    Количество = Колонки.Количество();
                   
                    Для н = 0 ПО Количество - 1 Цикл
                            Ключ = Колонки[н].Имя;
                            Результат = Результат + json(Ключ) + ": " + json(Объект[Ключ]) + ?(н < Количество - 1, ", ", "");
                    КонецЦикла;
                   
                    Результат = Результат + "}";
                    Возврат Результат;
                   
            ИначеЕсли Тип = Тип("ЭлементСпискаЗначений") Тогда
                    Возврат json(Объект.Значение);
                   
            ИначеЕсли Тип = Тип("Строка") Тогда
                    Результат = Объект;
                   
                    Результат = СтрЗаменить(Результат, "\",          "\\");
                    Результат = СтрЗаменить(Результат, "/",          "\/");
                    Результат = СтрЗаменить(Результат, """",         "\""");
                    Результат = СтрЗаменить(Результат, Символы.ВК,   "\r");
                    Результат = СтрЗаменить(Результат, Символы.Таб,  "\t");
                    Результат = СтрЗаменить(Результат, Символы.ПС,   "\n");
                   
                    Возврат """" + Результат + """";
                   
            ИначеЕсли Тип = Тип("Число") Тогда
                    Возврат Формат(Объект, "ЧРД=.; ЧН=0; ЧГ=0");
                   
            ИначеЕсли Тип = Тип("Булево") Тогда
                    Возврат Формат(Объект, "БЛ=false; БИ=true");
                   
            ИначеЕсли Тип = Тип("Дата") Тогда
                    Возврат json(Формат(Объект, "ДФ=yyyy-MM-ddThh:mm:ss"));
                   
            ИначеЕсли
                            Объект = Неопределено
                    ИЛИ Объект = Null
                   
                    Тогда Возврат "null";
                   
            ИначеЕсли
                            Справочники.ТипВсеСсылки().СодержитТип(Тип)
                    Или Документы.ТипВсеСсылки().СодержитТип(Тип)
                   
                    Тогда
                            Возврат json(Объект.УникальныйИдентификатор());
                           
            Иначе
                    Возврат json(Строка(Объект));
           
            КонецЕсли;
    КонецФункции
</code>

{{tag>1С json}}