0. JetBrain 17.12.15 22:04 Сейчас в теме

Обработка в JSON формате + бонус "Суперсила"

Пример обработки для чтения/Запись формата JSON, с источником/приемником com-массивом.

Перейти к публикации

Комментарии
Избранное Подписка Сортировка: Древо
1. aximo 804 19.12.15 10:47 Сейчас в теме
приятно видеть, что инструментарий платформы 1с развивается.
2. vano-ekt 1179 19.12.15 16:19 Сейчас в теме
//сдесь получаем массив

сдесь желание смотреть код пропало
Oslo696; NN2P; DrAku1a; BigB; +4 Ответить
3. JetBrain 19.12.15 18:56 Сейчас в теме
(2) vano-ekt, есть другие варианты обработать COMObject быстрее? Сами варианты то конечно есть...
Или имелось ввиду перегнать сразу за "пару секунд" массив в формат json, без циклов обхода строк, но тогда эта "сверхсекретная" информация не для данного паблика :)
4. CyberCerber 300 21.12.15 09:52 Сейчас в теме
(3) думаю, имелось в виду совсем другое... :-)
Получать массив нужно не сдесь, а здесь.
8. JetBrain 22.12.15 22:56 Сейчас в теме
(2) vano-ekt, специально для Вас бонус см. разделе "суперсила", дальше смотреть код и не нужно ;)
5. AndreyNit 50 22.12.15 09:00 Сейчас в теме
Познавательно, автору плюс.
6. dj_serega 362 22.12.15 18:53 Сейчас в теме
А почему:
        code                = Строка(COMSafeArray.GetValue(Индекс,0)); //Код товара поставщика
        name                = Строка(COMSafeArray.GetValue(Индекс,1)); //Наименование товара
        manufacturer        = Строка(COMSafeArray.GetValue(Индекс,2)); //Производитель
        manufacturerCountry = Строка(COMSafeArray.GetValue(Индекс,3)); //Страна
        barcode             = Строка(COMSafeArray.GetValue(Индекс,4)); //Штрихкод производителя
        quantity            = Число(COMSafeArray.GetValue(Индекс,5)); //Количество
        price               = Число(COMSafeArray.GetValue(Индекс,6)); //Цена с НДС, руб.
        Если Число(COMSafeArray.GetValue(Индекс,6)) > 0 Тогда
            multiplicity = (COMSafeArray.GetValue(Индекс,7)); //Кратность 
        Иначе 
            multiplicity = 1; //Кратность 
        КонецЕсли;
        ratends            = Число(COMSafeArray.GetValue(Индекс,8)); //Ставка НДС, %
Показать

И
        ЗаписьJSON.ЗаписатьИмяСвойства("code");                ЗаписьJSON.ЗаписатьЗначение(code);
          ЗаписьJSON.ЗаписатьИмяСвойства("name");                ЗаписьJSON.ЗаписатьЗначение(name);
          ЗаписьJSON.ЗаписатьИмяСвойства("manufacturer");        ЗаписьJSON.ЗаписатьЗначение(manufacturer);
          ЗаписьJSON.ЗаписатьИмяСвойства("manufacturerCountry"); ЗаписьJSON.ЗаписатьЗначение(manufacturerCountry);
          ЗаписьJSON.ЗаписатьИмяСвойства("barcode");             ЗаписьJSON.ЗаписатьЗначение(barcode);
          ЗаписьJSON.ЗаписатьИмяСвойства("quantity");            ЗаписьJSON.ЗаписатьЗначение(quantity);
          ЗаписьJSON.ЗаписатьИмяСвойства("price");               ЗаписьJSON.ЗаписатьЗначение(price);
          ЗаписьJSON.ЗаписатьИмяСвойства("multiplicity");        ЗаписьJSON.ЗаписатьЗначение(multiplicity);
          ЗаписьJSON.ЗаписатьИмяСвойства("ratends");             ЗаписьJSON.ЗаписатьЗначение(ratends);
          ЗаписьJSON.ЗаписатьИмяСвойства("expirationDate");      ЗаписьJSON.ЗаписатьЗначение(expirationDate);
 
Показать

не через общие функции реализовано?
EMelihoff; +1 Ответить
7. JetBrain 22.12.15 21:58 Сейчас в теме
(6) dj_serega, задачи такой не ставилось, пример должен быть как можно проще, и каким образом этот сделать?
9. kosmo0 81 23.12.15 10:44 Сейчас в теме
А кусок кода на запись так и должна совпадать с кодом на чтение?
10. JetBrain 23.12.15 11:05 Сейчас в теме
(9) kosmo0, нет так не должно быть, блок записи исправил.
11. alex_4x 81 09.02.16 13:22 Сейчас в теме
для 1С 8.2 нет реализации ? чтобы не типовыми методами 8.3 Чтение и запись делать....
12. JetBrain 10.02.16 07:15 Сейчас в теме
(11) alex_4x, для 8.2 самописные функции, примеры разные http://infostart.ru/public/59535/
Оставьте свое сообщение
Новые вопросы с вознаграждением
Автор темы объявил вознаграждение за найденный ответ, его получит тот, кто первый поможет автору.

Вакансии

Программист 1С
Санкт-Петербург
зарплата от 150 000 руб.
Полный день

Программист 1С
Санкт-Петербург
зарплата от 120 000 руб.
Полный день

Консультант 1С
Нижний Новгород
зарплата до 100 000 руб.
Полный день

Программист стажер 1С
Нижний Новгород
зарплата от 30 000 руб.
Полный день

Программист 1С
Нижний Новгород
зарплата до 100 000 руб.
Полный день