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

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

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

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

Комментарии
Избранное Подписка Сортировка: Древо
1. aximo 805 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 301 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С
Москва
зарплата от 140 000 руб. до 200 000 руб.
Полный день

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

Консультант 1С (Бухгалтерия)
Санкт-Петербург
зарплата от 100 000 руб.
Полный день

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

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