kassmanservit,спасибо,у меня версия 2012.2 <2016.1test.mac 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.
#include %systemInclude
main() public {
try{
d init
s json= ##class(%ZEN.proxyObject).%New()
s key1=$o(^tmp("<rel>",""))
while key1'="" {
i $g(val(key1))="" {
s val(key1)= ##class(%ZEN.proxyObject).%New()
d json.%DispatchSetProperty(key1,val(key1))
}
s key2=$o(^tmp("<rel>",key1,""))
while key2'="" {
i $g(val(key2))="" {
s val(key2)= ##class(%ZEN.proxyObject).%New()
}else{
k json.%data(key2)
s json.%changed = 1
}
d val(key1).%DispatchSetProperty(key2,val(key2))
s key2=$o(^tmp("<rel>",key1,key2))
}
s key1=$o(^tmp("<rel>",key1))
}
k val
d json.%ToJSON(,"2aelow")
}catch(ex){
w "Error ",ex.DisplayString(),!
}
k ^tmp
}
init() {
k ^tmp
s ^tmp("<rel>","blok1","lesson1") = "child"
s ^tmp("<rel>","blok1","lesson1","<percent>") = 100
s ^tmp("<rel>","blok1","lesson2") = "child"
s ^tmp("<rel>","blok1","lesson2","<percent>") = 50
s ^tmp("<rel>","blok2","lesson3") = "child"
s ^tmp("<rel>","blok2","lesson3","<percent>") = 30
s ^tmp("<rel>","blok2","lesson4") = "child"
s ^tmp("<rel>","blok2","lesson4","<percent>") = 30
s ^tmp("<rel>","blok3","lesson5") = "child"
s ^tmp("<rel>","blok3","lesson5","<percent>") = 30
s ^tmp("<rel>","blok3","lesson6") = "child"
s ^tmp("<rel>","blok3","lesson6","<percent>") = 30
s ^tmp("<rel>","blok4","lesson7") = "child"
s ^tmp("<rel>","blok4","lesson7","<percent>") = 30
s ^tmp("<rel>","blok4","lesson8") = "child"
s ^tmp("<rel>","blok4","lesson8","<percent>") = 30
s ^tmp("<rel>","blok5","lesson10") = "child"
s ^tmp("<rel>","blok5","lesson10","<percent>") = 30
s ^tmp("<rel>","blok5","lesson9") = "child"
s ^tmp("<rel>","blok5","lesson9","<percent>") = 30
s ^tmp("<rel>","blok6","lesson11") = "child"
s ^tmp("<rel>","blok6","lesson11","<percent>") = 30
s ^tmp("<rel>","blok6","lesson12") = "child"
s ^tmp("<rel>","blok6","lesson12","<percent>") = 30
s ^tmp("<rel>","blok7","lesson13") = "child"
s ^tmp("<rel>","blok7","lesson13","<percent>") = 30
s ^tmp("<rel>","blok7","lesson14") = "child"
s ^tmp("<rel>","blok7","lesson14","<percent>") = 30
s ^tmp("<rel>","blok8","lesson15") = "child"
s ^tmp("<rel>","blok8","lesson15","<percent>") = 30
s ^tmp("<rel>","blok8","lesson16") = "child"
s ^tmp("<rel>","blok8","lesson16","<percent>") = 30
s ^tmp("<rel>","blok9","lesson17") = "child"
s ^tmp("<rel>","blok9","lesson17","<percent>") = 30
s ^tmp("<rel>","blok9","lesson18") = "child"
s ^tmp("<rel>","blok9","lesson18","<percent>") = 30
s ^tmp("<rel>","book1","module1") = "child"
s ^tmp("<rel>","book1","module1","<percent>") = 20
s ^tmp("<rel>","book1","module2") = "child"
s ^tmp("<rel>","book1","module2","<percent>") = 20
s ^tmp("<rel>","book1","module3") = "child"
s ^tmp("<rel>","book1","module3","<percent>") = 20
s ^tmp("<rel>","lesson5","theme") = "child"
s ^tmp("<rel>","lesson5","theme","<percent>") = 111
s ^tmp("<rel>","lesson6","theme2") = "child"
s ^tmp("<rel>","lesson6","theme2","<percent>") = 0
s ^tmp("<rel>","module1","blok1") = "child"
s ^tmp("<rel>","module1","blok1","<percent>") = 20
s ^tmp("<rel>","module1","blok2") = "child"
s ^tmp("<rel>","module1","blok2","<percent>") = 20
s ^tmp("<rel>","module1","blok3") = "child"
s ^tmp("<rel>","module1","blok3","<percent>") = 20
s ^tmp("<rel>","module2","blok4") = "child"
s ^tmp("<rel>","module2","blok4","<percent>") = 20
s ^tmp("<rel>","module2","blok5") = "child"
s ^tmp("<rel>","module2","blok5","<percent>") = 20
s ^tmp("<rel>","module2","blok6") = "child"
s ^tmp("<rel>","module2","blok6","<percent>") = 20
s ^tmp("<rel>","module3","blok7") = "child"
s ^tmp("<rel>","module3","blok7","<percent>") = 20
s ^tmp("<rel>","module3","blok8") = "child"
s ^tmp("<rel>","module3","blok8","<percent>") = 20
s ^tmp("<rel>","module3","blok9") = "child"
s ^tmp("<rel>","module3","blok9","<percent>") = 100
;s ^tmp("<rel>","theme","book1") = "child"
;s ^tmp("<rel>","theme","book1","<percent>") = 20
}
Результат: 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.
USER>d ^test
{
"book1": {
"module1": {
"blok1": {
"lesson1": {
},
"lesson2": {
}
},
"blok2": {
"lesson3": {
},
"lesson4": {
}
},
"blok3": {
"lesson5": {
"theme": {
}
},
"lesson6": {
"theme2": {
}
}
}
},
"module2": {
"blok4": {
"lesson7": {
},
"lesson8": {
}
},
"blok5": {
"lesson10": {
},
"lesson9": {
}
},
"blok6": {
"lesson11": {
},
"lesson12": {
}
}
},
"module3": {
"blok7": {
"lesson13": {
},
"lesson14": {
}
},
"blok8": {
"lesson15": {
},
"lesson16": {
}
},
"blok9": {
"lesson17": {
},
"lesson18": {
}
}
}
}
}
>=2016.1test.mac 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.
#include %systemInclude
main() public {
try{
d init
s json={}
s key1=$o(^tmp("<rel>",""))
while key1'="" {
i $g(val(key1))="" {
s val(key1)={}
d json.$set(key1,val(key1))
}
s key2=$o(^tmp("<rel>",key1,""))
while key2'="" {
i $g(val(key2))="" {
s val(key2)={}
}else{
d json.$remove(key2)
}
d val(key1).$set(key2,val(key2))
s key2=$o(^tmp("<rel>",key1,key2))
}
s key1=$o(^tmp("<rel>",key1))
}
k val
w json.$toJSONFormat()
}catch(ex){
w "Error ",ex.DisplayString(),!
}
k ^tmp
}
init() {
; ...
}
Результат аналогичный. |
