ReSQL.ru
     
powered by simpleCommunicator - 2.0.38     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Delphi [игнор отключен] [закрыт для гостей] / json с подитогами
4 сообщений из 4, страница 1 из 1
json с подитогами
    #40121345
bzums
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
bzums
Гость
Никак не получается корресктно построить json.
Пробовал и снизу ыыерз и сверху вниз.
Конструкция получается натсолько сложная, хотя задача примитивная.

Помогите пожалуйста.
Есть такой вот набор (результат запроса):
id desc store date summa
0 total 18.00
1 store 2 6/14/2014 15.00
2 group yy 2 6/14/2014 11.00
3 group mm 2 6/14/2014 11.00
4 group ww 2 6/14/2014 11.00
5 group dd 2 6/14/2014 6.00
6 row 2 6/14/2014 6.00
5 group dd 2 6/13/2014 5.00
6 row 2 6/13/2014 5.00
2 group yy 2 12/30/2013 4.00
3 group mm 2 12/30/2013 4.00
4 group ww 2 12/30/2013 4.00
5 group dd 2 12/30/2013 4.00
6 row 2 12/30/2013 4.00
1 store 1 12/31/2013 3.00
2 group yy 1 12/31/2013 3.00
3 group mm 1 12/31/2013 3.00
4 group ww 1 12/31/2013 3.00
5 group dd 1 12/31/2013 3.00
6 row 1 12/31/2013 3.00

Надо получить json:
Код: javascript
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
48.
49.
50.
51.
52.
53.
54.
55.
56.
57.
58.
59.
60.
61.
62.
63.
64.
65.
66.
67.
68.
69.
70.
71.
72.
73.
74.
75.
76.
77.
78.
79.
80.
81.
82.
83.
84.
85.
86.
87.
88.
89.
90.
91.
{
  "summa": 18,
  "stores": [
    {
      "store_id": 2,
      "summa": 15,00,
      "groups": [
        {
          "value": "year 2013",
          "summa": 4.00,
          "yy": {
            "value": "month 12/2013",
            "summa": 4.00
            "mm": {
              "value": "week 53/2013",
               "summa": 4.00,
              "ww": {
                "value": "day tue 13/06/2014",
                "summa": 4.00,
                "rows": [
                  {
                    "date": "12.30.2013",
                    "summa": 4.00
                  }
                ]
              }
            }
          },
        {
          "value": "year 2014",
          "summa": 11.00
          "yy": {
            "value": "month 6/2014",
             "summa": 11.00,
            "mm": {
              "value": "week 24/2014",
               "summa": 11.00,
              "ww": {
                "value": "day mon 13/06/2014",
                 "summa": 5.00,
                "rows": [
                  {
                    "date": "13.6.2014",
                    "summa": 5.00,
                  },
                "value": "day sun 14/06/2014",
                "summa": 6.00,
                "rows": [
                  {
                    "date": "14.6.2014",
                    "summa": 6.00
                  }
                ]
              }
            }
          }

        }
      ]
    },

    {
      "store_id": 1,
      "summa": 3,00,
      "groups": [
        {
          "value": "year 2013",
          "yy": {
            "value": "month 12/2013",
            "summa": 3.00,
            "mm": {
              "value": "week 53/2013",
               "summa": 3.00,
              "ww": {
                "value": "day tue 31/12/2013",
                "summa": 3.00,
                "rows": [
                  {
                    "date": "12.31.2013",
                    "summa": 3.00
                  }
                ]
              }
            }
          }

        }
      ]
    }
  ]
}
...
Рейтинг: 0 / 0
19.12.2021, 13:25
| Ответить | Цитировать | Написать  
json с подитогами
    #40121424
Фотография defecator
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
defecatorПривилегированный пользователь
Модератор форума
надо использовать нормальные СУБД, чтобы на выходе иметь JSON, а не на входе
...
Рейтинг: 0 / 0
19.12.2021, 19:10
| Ответить | Цитировать | Написать  
json с подитогами
    #40121446
bzums
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
bzums
Гость
Про базу данных полностью согласен.
Это реально боль.

Так как надоело ловить ошибки на реальном наборе данных (большом довольно) ,сделал на коленке простенький вариант.
Один сверзу вниз, второй наоборот.

Как мне избавиться от большого количества одинаковых строк?
Если у каждого узла есть одна и таде пара - сумма, то как унифицировать код?
То есть
group1.AddPair('summa', (summa))
group2.AddPair('summa', (summa))
group3.AddPair('summa', (summa))
group4.AddPair('summa', (summa))
store.AddPair('summa', (summa))
заменить на одну инструкцию....
...
Рейтинг: 0 / 0
19.12.2021, 20:21
| Ответить | Цитировать | Написать  
json с подитогами
    #40121451
bzums
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
bzums
Гость
снизу вверх (от строк к группам):
 
Код: pascal
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
48.
49.
50.
51.
52.
53.
54.
55.
56.
57.
58.
59.
60.
61.
62.
63.
64.
65.
66.
67.
68.
69.
70.
71.
72.
73.
74.
75.
76.
77.
78.
79.
80.
81.
82.
83.
procedure TForm30.Button1Click(Sender: TObject);
var
  stores, groups1, groups2, rows: TJSONArray;
  store,
  InnerObject1, InnerObject2,
  group1, group2, row: TJSONOBject;
begin

  //rows (id = 6)
  rows := TJSONArray.Create; //!!для первого раза содаем массив

  row := TJSONOBject.Create;
  row.AddPair('summa', '0.50');
  rows.AddElement(row);

  //rows (id = 6)

  row := TJSONOBject.Create;
  row.AddPair('summa', '0.25');
  rows.AddElement(row);

  //rows (id = 6)
  row := TJSONOBject.Create;
  row.AddPair('summa', '0,25');
  rows.AddElement(row);

  //group2 (id = 3)
  groups2 := TJSONArray.Create;  //!для первого раза содаем массив

  group2 := TJSONOBject.Create;
  group2.AddPair('value', '11');
  group2.AddPair('summa', '1.00');
  group2.AddPair('rows', rows);

  groups2.AddElement(group2);

/////////////////////////////////

  //rows (id = 6)
  rows := TJSONArray.Create; //после верзнего уровня на нижний - тоже создаем

  row := TJSONOBject.Create;
  row.AddPair('summa', '2.50');
  rows.AddElement(row);

  //rows (id = 6)

  row := TJSONOBject.Create;
  row.AddPair('summa', '3.50');
  rows.AddElement(row);

  //group2 (id = 3)
  //groups2 := TJSONArray.Create;    ///!! узел - брат (не создаем массив)

  group2 := TJSONOBject.Create;
  group2.AddPair('value', '10');
  group2.AddPair('summa', '6.00');
  group2.AddPair('rows', rows);

  groups2.AddElement(group2);


  //group1 (id = 2)
  groups1 := TJSONArray.Create;

  group1 := TJSONOBject.Create;
  group1.AddPair('value', '2014');
  group1.AddPair('summa', '7.00');
  group1.AddPair('months', groups2);   //1!!

  groups1.AddElement(group1);

  //store (id = 0)
  store := TJSONOBject.Create;
  store.AddPair('store_id', '1');
  store.AddPair('summa', '7.00');
  store.AddPair('years', groups1);   //1!!

  stores := TJSONArray.Create;
  stores.AddElement(store);

  memo1.Text := TJson.Format(stores);
end;



сверху вниз (от групп к строкам):
 
Код: pascal
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
48.
49.
50.
51.
52.
53.
54.
55.
56.
57.
58.
59.
60.
61.
62.
63.
64.
65.
66.
67.
68.
69.
70.
71.
72.
73.
74.
75.
76.
77.
78.
79.
80.
81.
82.
83.
84.
85.
86.
87.
88.
89.
90.
91.
92.
93.
94.
95.
96.
97.
98.
99.
100.
101.
102.
103.
104.
105.
106.
107.
108.
109.
110.
111.
112.
113.
114.
115.
116.
117.
118.
119.
120.
121.
122.
123.
124.
125.
126.
127.
128.
129.
130.
131.
132.
133.
134.
135.
136.
137.
138.
139.
140.
141.
142.
143.
144.
145.
146.
147.
148.
149.
150.
151.
152.
153.
procedure TForm30.Button1Click(Sender: TObject);
var
  stores, groups1, groups2, rows: TJSONArray;
  store,
  InnerObject1, InnerObject2,
  group1, group2, row: TJSONOBject;
begin
  //store (1)
  stores := TJSONArray.Create;
  store := TJSONOBject.Create;
  store.AddPair('store_id', '1');
  store.AddPair('summa', '25.00');
  stores.AddElement(store);


  //group1 (2)
  groups1 := TJSONArray.Create;

  group1 := TJSONOBject.Create;
  group1.AddPair('value', '2013');
  group1.AddPair('summa', '10.00');
  groups1.AddElement(group1);

                //group2 (3)
                groups2 := TJSONArray.Create; //1!!

                        group2 := TJSONOBject.Create;
                        group2.AddPair('value', '01');
                        group2.AddPair('summa', '4.00');
                        groups2.AddElement(group2);

                        //rows (6)
                        rows := TJSONArray.Create;  //1!!

                        row := TJSONOBject.Create;
                        row.AddPair('summa', '2.50');
                        rows.AddElement(row);

                        //rows (6)
                        row := TJSONOBject.Create;
                        row.AddPair('summa', '1.50');
                        rows.AddElement(row);
                        group2.AddPair('rows', rows);  //1!!


//-----------------------


                        //group2 (3)
                        group2 := TJSONOBject.Create;
                        group2.AddPair('value', '02');
                        group2.AddPair('summa', '6.00');
                        groups2.AddElement(group2);

                        group1.AddPair('months', groups2);   //1!!


                        //rows (6)
                        rows := TJSONArray.Create;

                        row := TJSONOBject.Create;
                        row.AddPair('summa', '1.00');
                        rows.AddElement(row);

                        //rows (6)
                        row := TJSONOBject.Create;
                        row.AddPair('summa', '2.00');
                        rows.AddElement(row);

                        //rows (6)
                        row := TJSONOBject.Create;
                        row.AddPair('summa', '3.00');
                        rows.AddElement(row);
                group2.AddPair('rows', rows);



  //group1 (2)
  group1 := TJSONOBject.Create;
  group1.AddPair('value', '2014');
  group1.AddPair('summa', '15.00');
  groups1.AddElement(group1);
  store.AddPair('years', groups1);   //1!!

                 //group2 (3)
                groups2 := TJSONArray.Create;

                group2 := TJSONOBject.Create;
                group2.AddPair('value', '11');
                group2.AddPair('summa', '1.00');
                groups2.AddElement(group2);

                //rows (6)
                rows := TJSONArray.Create;

                row := TJSONOBject.Create;
                row.AddPair('summa', '0.50');
                rows.AddElement(row);

                //rows (6)

                row := TJSONOBject.Create;
                row.AddPair('summa', '0.25');
                rows.AddElement(row);

                //rows (6)
                row := TJSONOBject.Create;
                row.AddPair('summa', '0,25');
                rows.AddElement(row);
                group2.AddPair('rows', rows);


//-----------------------


                //group2 (3)
                group2 := TJSONOBject.Create;
                group2.AddPair('value', '12');
                group2.AddPair('summa', '14.00');
                groups2.AddElement(group2);
                group1.AddPair('months', groups2);   //1!!


                //rows (6)
                rows := TJSONArray.Create;

                row := TJSONOBject.Create;
                row.AddPair('summa', '8.00');
                rows.AddElement(row);

                //rows (6)
                row := TJSONOBject.Create;
                row.AddPair('summa', '2.00');
                rows.AddElement(row);

                //rows (6)
                row := TJSONOBject.Create;
                row.AddPair('summa', '2.00');
                rows.AddElement(row);

                //rows (6)
                row := TJSONOBject.Create;
                row.AddPair('summa', '1.25');
                rows.AddElement(row);

                //rows (6)
                row := TJSONOBject.Create;
                row.AddPair('summa', '0.75');
                rows.AddElement(row);
                group2.AddPair('rows', rows);

  memo1.Text := TJson.Format(stores);
end;


как мне видится вариант с обратным порядком легче в реализации..

Большое спасибо

Модератор: Как мне оформить свое сообщение?
...
Рейтинг: 0 / 0
19.12.2021, 20:27
| Ответить | Цитировать | Написать  
4 сообщений из 4, страница 1 из 1
Форумы / Delphi [игнор отключен] [закрыт для гостей] / json с подитогами
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru             Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=58&msg=40121424&tid=2036773]:
 0ms
get settings:
 11ms
get forum list:
 12ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 34ms
get topic data:
 11ms
get forum data:
 3ms
get page messages:
 41ms
get tp. blocked users:
 1ms
others: 324ms
total:  445ms
созд. / загр.: 445ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]