json列表转到树形数据

银河世纪

原始数据：

  

[{"a":"ROOT","b":"316","c":"a0"},{"a":"316","b":"JYPT999.221209518016.0","c":"a1"},{"a":"JYPT999.221209518016.0","b":"JYPT999.221209518016.1","c":"a2"},{"a":"JYPT999.221209518016.1","b":"prod.10086000048093","c":"a3"},{"a":"JYPT999.221209518016.0","b":"prod.10086000053018","c":"a4"},{"a":"361","b":"prod.10086000053018","c":"a5"}]

[{"a":"ROOT","b":"316","c":"a0"},{"a":"316","b":"JYPT999.221209518016.0","c":"a1"},{"a":"JYPT999.221209518016.0","b":"JYPT999.221209518016.1","c":"a2"},{"a":"JYPT999.221209518016.1","b":"prod.10086000048093","c":"a3"},{"a":"JYPT999.221209518016.0","b":"prod.10086000053018","c":"a4"},{"a":"361","b":"prod.10086000053018","c":"a5"}]

需要转成：

  

[{"a":"ROOT","b":"316","c":"a0","d":[{"a":"316","b":"JYPT999.221209518016.0","c":"a1","d":[{"a":"JYPT999.221209518016.0","b":"JYPT999.221209518016.1","c":"a2","d":[{"a":"JYPT999.221209518016.1","b":"prod.10086000048093","c":"a3"}]},{"a":"JYPT999.221209518016.0","b":"prod.10086000053018","c":"a4"}]},{"a":"361","b":"prod.10086000053018","c":"a5"}]}]

[{"a":"ROOT","b":"316","c":"a0","d":[{"a":"316","b":"JYPT999.221209518016.0","c":"a1","d":[{"a":"JYPT999.221209518016.0","b":"JYPT999.221209518016.1","c":"a2","d":[{"a":"JYPT999.221209518016.1","b":"prod.10086000048093","c":"a3"}]},{"a":"JYPT999.221209518016.0","b":"prod.10086000053018","c":"a4"}]},{"a":"361","b":"prod.10086000053018","c":"a5"}]}]

a是父ID b是子ID
最好用易语言写

Wod

你这是直接要源码来的，再说了。json解析到树形开源的一大堆，你也不自己去搜一下。

emodiyu

你这是直接要源码来的，再说了。json解析到树形开源的一大堆，你也不自己去搜一下。

zz1318

不会搜索没关系 我帮你搜了 https://bbs.125.la/forum.php?mod ... 0%E6%A0%91%E5%BD%A2

银河世纪

zz1318 发表于 2024-3-25 18:08
不会搜索没关系 我帮你搜了 https://bbs.125.la/forum.php?mod=viewthread&tid=14101044&highlight=json%E8 ...

真不好意思啊  ，我这个需要先转

银河世纪

Wod 发表于 2024-3-25 18:00
你这是直接要源码来的，再说了。json解析到树形开源的一大堆，你也不自己去搜一下。 ...

那些都只是json直接到树的

银河世纪

  

子程序名	返回值类型	公开	备 注
子程序2	逻辑型
参数名	类 型	参考	可空	数组	备 注
list	存取列表
list2	存取列表
bb	文本型

变量名	类 型	静态	数组	备 注
list3	存取列表
i	整数型
b	文本型
json	存取键值表
bool	逻辑型

计次循环首 (list.取数量 (), i)
如果真 (取反 (list.取逻辑值 (i, “f”)) 且 list.取文本 (i, “a”) ＝ bb)
list.置逻辑值 (取主键路径 (i, “f”), 真)
list.取键值表 (i, json)
list2.添加值 (json)
b ＝ list.取文本 (i, “b”)
如果真 (子程序2 (list, list3, b))
list2.置列表 (取主键路径 (list2.取数量 (), “children”), list3, )
bool ＝ 真

计次循环尾 ()
返回 (bool)

i支持库列表	支持库注释
e2ee	E2EE互联网服务器套件

.版本 2<br /> .支持库 e2ee<br /> <br /> .子程序 子程序2, 逻辑型<br /> .参数 list, 存取列表, 参考<br /> .参数 list2, 存取列表, 参考<br /> .参数 bb, 文本型<br /> .局部变量 list3, 存取列表<br /> .局部变量 i, 整数型<br /> .局部变量 b, 文本型<br /> .局部变量 json, 存取键值表<br /> .局部变量 bool, 逻辑型<br /> <br /> .计次循环首 (list.取数量 (), i)<br />     .如果真 (取反 (list.取逻辑值 (i, “f”)) 且 list.取文本 (i, “a”) ＝ bb)<br />         list.置逻辑值 (取主键路径 (i, “f”), 真)<br />         list.取键值表 (i, json)<br />         list2.添加值 (json)<br />         b ＝ list.取文本 (i, “b”)<br />         .如果真 (子程序2 (list, list3, b))<br />             list2.置列表 (取主键路径 (list2.取数量 (), “children”), list3, )<br />         .如果真结束<br />         bool ＝ 真<br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> 返回 (bool)

[{"a":"ROOT","b":"316","c":"a0"},{"a":"316","b":"JYPT999.221209518016.0","c":"a1"},{"a":"JYPT999.221209518016.0","b":"JYPT999.221209518016.1","c":"a2"},{"a":"JYPT999.221209518016.1","b":"prod.10086000048093","c":"a3"},{"a":"JYPT999.221209518016.0","b":"prod.10086000053018","c":"a4"},{"a":"316","b":"prod.10086000053018","c":"a5"}]

  

子程序名	返回值类型	公开	备 注
_启动子程序	整数型		本子程序在程序启动后最先执行

变量名	类 型	静态	数组	备 注
list	存取列表
i	整数型
存取列表	存取列表

list.从JSON载入 ( #常量1, , , )
计次循环首 (list.取数量 (), i)
list.置列表 (取主键路径 (i, “children”), 存取列表, )
计次循环尾 ()
子程序2 (list, 存取列表, “ROOT”)
输出调试 (取程序名称 (1), 存取列表.到JSON (假, , , , ))
返回 (0)  ' 可以根据您的需要返回任意数值

i支持库列表	支持库注释
e2ee	E2EE互联网服务器套件

.版本 2<br /> .支持库 e2ee<br /> <br /> .子程序 _启动子程序, 整数型, , 本子程序在程序启动后最先执行<br /> .局部变量 list, 存取列表<br /> .局部变量 i, 整数型<br /> .局部变量 存取列表, 存取列表<br /> <br /> list.从JSON载入 (#常量1, , , )<br /> <br /> .计次循环首 (list.取数量 (), i)<br />     list.置列表 (取主键路径 (i, “children”), 存取列表, )<br /> .计次循环尾 ()<br /> <br /> <br /> 子程序2 (list, 存取列表, “ROOT”)<br /> 输出调试 (取程序名称 (1), 存取列表.到JSON (假, , , , ))<br /> 返回 (0)  ' 可以根据您的需要返回任意数值