Гость
Войти | Профиль | Очистить
Действия ...
Форумы / Delphi [игнор отключен] [закрыт для гостей] / json с подитогами / 4 сообщений из 4, страница 1 из 1
19.12.2021, 13:25
    #40121345
bzums
bzums
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
json с подитогами
Никак не получается корресктно построить 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, 19:10
    #40121424
defecator
defecatorПривилегированный пользователь
Модератор форума
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
json с подитогами
надо использовать нормальные СУБД, чтобы на выходе иметь JSON, а не на входе
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
19.12.2021, 20:21
    #40121446
bzums
bzums
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
json с подитогами
Про базу данных полностью согласен.
Это реально боль.

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

Как мне избавиться от большого количества одинаковых строк?
Если у каждого узла есть одна и таде пара - сумма, то как унифицировать код?
То есть
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:27
    #40121451
bzums
bzums
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
json с подитогами
снизу вверх (от строк к группам):
 
Код: 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
| Ответить | Цитировать | Написать  
Форумы / Delphi [игнор отключен] [закрыт для гостей] / json с подитогами / 4 сообщений из 4, страница 1 из 1
Целевая тема:
Создать новую тему:
Автор:
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
созд. / загр.: 405ms
Закрыть
start [/forum/topic.php?fid=58&mobile=1&tid=2036773]:
 0ms
get settings:
 11ms
get forum list:
 16ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 39ms
get topic data:
 12ms
get forum data:
 3ms
get page messages:
 45ms
get tp. blocked users:
 1ms
others: 270ms
total:  405ms
x
x
Закрыть


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