JSON: Туда и Обратно

//Обработка предназначена для сериализации/парсинга JSON
//На вход подается либо строка (СтрокаJSON), либо Объект (ОбъектJSON). Описание ниже. Значения типа undefined недопустимы.
//Направление: 0 - парсить, все остальные значения - сериализовать
//Из-за ограничений типизации данных в 1С при преобразовании выполняется несколько "подстав": 1. значения типа null в 1С не определяются,
//поэтому программно преобразовываются в строку "null"; 2. значения литералов false и true 1С сама преобразует в 0 и -1 соответственно;
//3. при сериализации выполняется обратное преобразование по правилам: значения строкового типа "null","false" и "true" преобразуются в литералы в контексте javascript
//
//СтрокаJSON: строка для парсинга, представляющая собой ВАЛИДНЫЙ объект JSON
//ОбъектJSON: СписокЗначений или ТаблицаЗначений для сериализации. Правила: Значение элемента списка - строка/число/СписокЗначений/ТаблицаЗначений
//     Представление элемента списка: строка/число. Тип "строка" хранит значение ключа. Тип "число" - номер строки в таблице.

Процедура Скрипт_В_JSON(scriptCtrl)
лпТекст = "
|//тут следует определение класса JSON от Douglas Crockford, для браузеров где его нет
|if (typeof JSON !== 'object') {
|    JSON = {};
|}
|
|(function () {
|    'use strict';
|
|    function f(n) {
|        // Format integers to have at least two digits.
|        return n < 10 ? '0' + n : n;
|    }
|
|    if (typeof Date.prototype.toJSON !== 'function') {
|
|        Date.prototype.toJSON = function () {
|
|            return isFinite(this.valueOf())
|                ? this.getUTCFullYear()     + '-' +
|                    f(this.getUTCMonth() + 1) + '-' +
|                    f(this.getUTCDate())      + 'T' +
|                    f(this.getUTCHours())     + ':' +
|                    f(this.getUTCMinutes())   + ':' +
|                    f(this.getUTCSeconds())   + 'Z'
|                : null;
|        };
|
|        String.prototype.toJSON      =
|            Number.prototype.toJSON  =
|            Boolean.prototype.toJSON = function () {
|                return this.valueOf();
|            };
|    }
|
|    var cx,
|        escapable,
|        gap,
|        indent,
|        meta,
|        rep;
|
|
|    function quote(string) {
|
|        escapable.lastIndex = 0;
|        return escapable.test(string) ? '""' + string.replace(escapable, function (a) {
|            var c = meta[a];
|            return typeof c === 'string'
|                ? c
|                : '\u' + ('0000' + a.charCodeAt(0).toString(16)).slice(-4);
|        }) + '""' : '""' + string + '""';
|    }
|
|
|    function str(key, holder) {
|
|        var i,          // The loop counter.
|            k,          // The member key.
|            v,          // The member value.
|            length,
|            mind = gap,
|            partial,
|            value = holder[key];
|
|
|        if (value && typeof value === 'object' &&
|                typeof value.toJSON === 'function') {
|            value = value.toJSON(key);
|        }
|
|        if (typeof rep === 'function') {
|            value = rep.call(holder, key, value);
|        }
|
|        switch (typeof value) {
|        case 'string':
|            return quote(value);
|
|        case 'number':
|
|            return isFinite(value) ? String(value) : 'null';
|
|        case 'boolean':
|        case 'null':
|
|            return String(value);
|
|        case 'object':
|
|            if (!value) {
|                return 'null';
|            }
|
|            gap += indent;
|            partial = [];
|
|            if (Object.prototype.toString.apply(value) === '[object Array]') {
|
|                length = value.length;
|                for (i = 0; i < length; i += 1) {
|                    partial[i] = str(i, value) || 'null';
|                }
|
|                v = partial.length === 0
|                    ? '[]'
|                    : gap
|                    ? '[
' + gap + partial.join(',
' + gap) + '
' + mind + ']'
|                    : '[' + partial.join(',') + ']';
|                gap = mind;
|                return v;
|            }
|
|            if (rep && typeof rep === 'object') {
|                length = rep.length;
|                for (i = 0; i < length; i += 1) {
|                    if (typeof rep[i] === 'string') {
|                        k = rep[i];
|                        v = str(k, value);
|                        if (v) {
|                            partial.push(quote(k) + (gap ? ': ' : ':') + v);
|                        }
|                    }
|                }
|            } else {
|
|                for (k in value) {
|                    if (Object.prototype.hasOwnProperty.call(value, k)) {
|                        v = str(k, value);
|                        if (v) {
|                            partial.push(quote(k) + (gap ? ': ' : ':') + v);
|                        }
|                    }
|                }
|            }
|
|            v = partial.length === 0
|                ? '{}'
|                : gap
|                ? '{
' + gap + partial.join(',
' + gap) + '
' + mind + '}'
|                : '{' + partial.join(',') + '}';
|            gap = mind;
|            return v;
|        }
|    }
|
|    if (typeof JSON.stringify !== 'function') {
|        escapable = /[\""x00-x1fx7f-x9fu00adu0600-u0604u070fu17b4u17b5u200c-u200fu2028-u202fu2060-u206fufeffufff0-uffff]/g;
|        meta = {    // table of character substitutions
|            '': '\b',
|            '	': '\t',
|            '
': '\n',
|            'f': '\f',
|            '
': '\r',
|            '""' : '\""',
|            '\\': '\\\'
|        };
|        JSON.stringify = function (value, replacer, space) {
|
|            var i;
|            gap = '';
|            indent = '';
|
|            if (typeof space === 'number') {
|                for (i = 0; i < space; i += 1) {
|                    indent += ' ';
|                }
|
|            } else if (typeof space === 'string') {
|                indent = space;
|            }
|
|            rep = replacer;
|            if (replacer && typeof replacer !== 'function' &&
|                    (typeof replacer !== 'object' ||
|                    typeof replacer.length !== 'number')) {
|                throw new Error('JSON.stringify');
|            }
|
|            return str('', {'': value});
|        };
|    }
|
|
|    if (typeof JSON.parse !== 'function') {
|        cx = /[u0000u00adu0600-u0604u070fu17b4u17b5u200c-u200fu2028-u202fu2060-u206fufeffufff0-uffff]/g;
|        JSON.parse = function (text, reviver) {
|
|            var j;
|
|            function walk(holder, key) {
|
|                var k, v, value = holder[key];
|                if (value && typeof value === 'object') {
|                    for (k in value) {
|                        if (Object.prototype.hasOwnProperty.call(value, k)) {
|                            v = walk(value, k);
|                            if (v !== undefined) {
|                                value[k] = v;
|                            } else {
|                                delete value[k];
|                            }
|                        }
|                    }
|                }
|                return reviver.call(holder, key, value);
|            }
|
|            text = String(text);
|            cx.lastIndex = 0;
|            if (cx.test(text)) {
|                text = text.replace(cx, function (a) {
|                    return '\u' +
|                        ('0000' + a.charCodeAt(0).toString(16)).slice(-4);
|                });
|            }
|
|            if (/#k8SjZc9Dxk[],:{}s]*$/
|                    .test(text.replace(/\(?:[""\/bfnrt]|u[0-9a-fA-F]{4})/g, '@')
|                        .replace(/""[#k8SjZc9Dxk""\

]*""|true|false|null|-?d+(?:.d*)?(?:[eE][+-]?d+)?/g, ']')
|                        .replace(/(?:#k8SjZc9Dxk|:|,)(?:s*[)+/g, ''))) {
|
|                j = eval('(' + text + ')');
|
|                return typeof reviver === 'function'
|                    ? walk({'': j}, '')
|                    : j;
|            }
|
|            throw new SyntaxError('JSON.parse');
|        };
|    }
|}());
|//конец определения класса JSON от Douglas Crockford
|";


scriptCtrl.AddCode(лпТекст);

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



Процедура Скрипт_Из_JSON(scriptCtrl)
лпТекст = "
| // УСТАНОВИТЬ свойство объекта или массива
| function aPost(Array, index, value) {
|   if (value == ""null"") {value = null}
|   if (value == ""false"") {value = false}
|   if (value == ""true"") {value = true}
| Array[index] = value;
| }
|
| // Получить элемент массива по индексу
| function aGet(Array, index) {
|  return(Array[index]);
| }
|
| // Получить ключ пары по индексу
| function oKey(Obj, index) {
|  var size = 0, key;
|  for (key in Obj) {
|   if (size == index) break;
|   if (Obj.hasOwnProperty(key)) size++;
|  }
|  return(key);
| }
|
| // Получить значение пары по ключу
| function oValueByKey(Obj, key) {
|  return(Obj[key]);
| }
|
| //Получить количество пар в объекте
| Object.size = function(obj) {
|  var size = 0, key;
|  for (key in obj) {
|   if (obj.hasOwnProperty(key)) size++;
|  }
|  return(size);
| }
|
| //Получить размер объекта (количество пар в нём)
| function oSize(Obj) {
|  return(Object.size(Obj));
| }
|
| // Получить тип объекта (number, string, object, array)
| function eType(Element) {
|  if (Element instanceof Array) {
|    return(""array"");
|  } else if (Object.prototype.toString.call(Element) === '[object Array]') {
|    return(""array"");
|  } else if (Element === null || Element == null) {
|    return(""null"");
|  } else {
|   return(typeof(Element));
|  }
| }
|";

scriptCtrl.AddCode(лпТекст);

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


Функция jsonВОбъект(scriptCtrl, obj)

ТипОбъекта = scriptCtrl.run("eType", obj);

Если ТипОбъекта = "object" Тогда
сп = СоздатьОбъект("СписокЗначений");

Для н=0 По scriptCtrl.run("oSize", obj)-1 Цикл
Ключ = scriptCtrl.run("oKey", obj, н);

Значение = scriptCtrl.run("oValueByKey", obj, Ключ);

ТипЗнач = scriptCtrl.run("eType", Значение);

Если Найти("object, array", ТипЗнач) > 0 Тогда
сп.ДобавитьЗначение(jsonВОбъект(scriptCtrl,Значение), Ключ);
Иначе
Если ТипЗначенияСтр(Значение) = "" Тогда
Значение = "null";
КонецЕсли;
сп.ДобавитьЗначение(Значение, Ключ);
КонецЕсли;
КонецЦикла;
ИначеЕсли ТипОбъекта = "array" Тогда
сп = СоздатьОбъект("ТаблицаЗначений");
сп.НоваяКолонка("Значение");

Для н=0 По scriptCtrl.run("oSize", obj)-1 Цикл
сп.НоваяСтрока();

Значение = scriptCtrl.run("aGet", obj, н);

ТипЗнач = scriptCtrl.run("eType", Значение);

Если Найти("object, array", ТипЗнач) > 0 Тогда
сп.Значение = jsonВОбъект(scriptCtrl,Значение);
Иначе
Если ТипЗначенияСтр(Значение) = "" Тогда
Значение = "null";
КонецЕсли;
сп.Значение = Значение;
КонецЕсли;
КонецЦикла;
КонецЕсли;

Возврат сп;

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


Функция ОбъектВjson(scriptCtrl, Об, СпсТЗ)
лпСпс = СоздатьОбъект("СписокЗначений");

Если ТипЗначенияСтр(СпсТЗ) = "СписокЗначений" Тогда
СпсТЗ.Выгрузить(лпСпс);
ИначеЕсли ТипЗначенияСтр(СпсТЗ) = "ТаблицаЗначений" Тогда
СпсТЗ.ВыбратьСтроки();
Пока СпсТЗ.ПолучитьСтроку()=1 Цикл
лпСпс.ДобавитьЗначение(СпсТЗ.Значение,СпсТЗ.НомерСтроки-1);
КонецЦикла;
КонецЕсли;


Для i=1 По лпСпс.РазмерСписка() Цикл
Ключ = "";

Значение = лпСпс.ПолучитьЗначение(i,Ключ);

Если (ТипЗначенияСтр(Значение)="СписокЗначений") ИЛИ (ТипЗначенияСтр(Значение)="ТаблицаЗначений") Тогда
Если ТипЗначенияСтр(Значение)="ТаблицаЗначений"  Тогда  //массив
ОбВл = scriptCtrl.Eval("new Array()");
Иначе
ОбВл = scriptCtrl.Eval("new Object()");
КонецЕсли;

Значение = ОбъектВjson(scriptCtrl, ОбВл, Значение);
КонецЕсли;

scriptCtrl.run("aPost", Об, Ключ, Значение);
КонецЦикла;

возврат Об;

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

//*********************************************************************************

Процедура ПриОткрытии()

статусвозврата(0);

Конт = Форма.Параметр;

Данные = Конт.Получить("Вход");
Чсл = Конт.Получить("Направление");


scriptCtrl =  СоздатьОбъект("MSScriptControl.ScriptControl");
scriptCtrl.Language="javascript";
scriptCtrl.reset();

Скрипт_Из_JSON(scriptCtrl);
Скрипт_В_JSON(scriptCtrl);


Попытка
Если Чсл = 0 Тогда //из JSON
Если ТипЗначенияСтр(Данные) <> "Строка" Тогда
Конт.Установить("Выход", "На входе должна быть строка");
возврат;
КонецЕсли;

Класс = scriptCtrl.eval("JSON");

Объект = Класс.parse(Данные, ); //второй параметр - функция преобразования значений. например: function(k, v) {console.log(k); return v;}.  k - свойство, v - значение
//значение true возвращается как -1, значение fales возвращается как 0

Спс = jsonВОбъект(scriptCtrl, Объект);

Конт.Установить("Выход", Спс);
Иначе     //в JSON
Если (ТипЗначенияСтр(Данные) <> "СписокЗначений") И (ТипЗначенияСтр(Данные) <> "ТаблицаЗначений") Тогда
Конт.Установить("Выход", "На входе должен быть или Список или Таблица");
возврат;
КонецЕсли;

Класс = scriptCtrl.eval("JSON");

Если ТипЗначенияСтр(Данные) = "СписокЗначений" Тогда
Об = scriptCtrl.Eval("new Object()");
Иначе
Об = scriptCtrl.Eval("new Array()");
КонецЕсли;

ОбъектВjson(scriptCtrl, Об, Данные);

Стр = Класс.stringify(Об); //второй параметр: 1 - функция. пример: function(key, value) {if (typeof value === 'string') {return undefined; } return value; }.
//2 - массив с именами возвращаемых свойст. пример: ['week', 'month']. Третий параметр: 1 - число, определяющее количество пробелов в начале каждого блока
//умноженное на уровень вложенности блока. 3 - строка. каждый следующий уровень блока будет начинатся с нее. Максимальное значение: 10 символов

Конт.Установить("Выход", Стр);
КонецЕсли;
Исключение
Конт.Установить("Выход", ОписаниеОшибки());
КонецПопытки;

scriptCtrl.reset();
scriptCtrl = 0;
КонецПроцедуры

Функция ОбработатьДанныеJSON(прДанные,прНаправление)
лпКаталог = "";

РасположениеФайла(лпКаталог);

лпСписокЗадач = СоздатьОбъект("СписокЗначений");
лпСписокЗадач.Установить("Вход",прДанные);
лпСписокЗадач.Установить("Направление",прНаправление);

ОткрытьФорму("Отчет", лпСписокЗадач, лпКаталог+"JSON_Туда_И_Обратно.ert");

возврат лпСписокЗадач.Получить("Выход");

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

Функция ПолучитьСписокИзСтроки(прСтрока, прРазделитель) Экспорт
лпСписокВозв = СоздатьОбъект("СписокЗначений");
лпСтрока = СтрЗаменить(прСтрока, прРазделитель, РазделительСтрок);

лпФайлСтрока = СоздатьОбъект("Текст");
лпФайлСтрока.ДобавитьСтроку(лпСтрока);
лпКолвоСтрок = лпФайлСтрока.КоличествоСтрок();
Для лпИндС = 1 По лпКолвоСтрок Цикл
лпСтрЗнач = СокрЛП(лпФайлСтрока.ПолучитьСтроку(лпИндС));
лпСписокВозв.ДобавитьЗначение(лпСтрЗнач);
КонецЦикла;

Возврат лпСписокВозв;
КонецФункции

Функция ПолучитьЗначениеИзСписка(прСпс, прУровень)
лпЗначение = прСпс;

лпСпсУровней = ПолучитьСписокИзСтроки(прУровень, "/");

Для i=1 По лпСпсУровней.РазмерСписка() Цикл
лпЗначСпсУровней = лпСпсУровней.ПолучитьЗначение(i);

Если ТипЗначенияСтр(лпЗначение) = "СписокЗначений" Тогда  //это представление
лпЗначение = лпЗначение.Получить(лпЗначСпсУровней);
ИначеЕсли ТипЗначенияСтр(лпЗначение) = "ТаблицаЗначений" Тогда //это номер
Если лпЗначение.КоличествоСтрок() < Число(лпЗначСпсУровней)+1 Тогда
лпЗначение = ПолучитьПустоеЗначение();
Иначе
лпЗначение = лпЗначение.ПолучитьЗначение(Число(лпЗначСпсУровней)+1,"Значение");
КонецЕсли;
Иначе
лпЗначение = ПолучитьПустоеЗначение();
КонецЕсли;

Если ПустоеЗначение(лпЗначение) = 1 Тогда
прервать;
КонецЕсли;

КонецЦикла;

возврат лпЗначение;

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

Процедура Сформировать()
лпТекст = "{""title"":""Conference"",""room"":{""number"":23,""participants"":[""john"",""ann""]}}";

лпСпс = ОбработатьДанныеJSON(фТекст,0);


лпid = ПолучитьЗначениеИзСписка(лпСпс, "room/participants/1");

сообщить(лпid);


лпТекст = ОбработатьДанныеJSON(лпСпс,1);


сообщить(лпТекст);
КонецПроцедуры