易语言树型框json互转

树型框json互转例子，不知道自适应怎么写帮忙完善一下。
.计次循环首 (树型框1.取项目数 (), n)
.判断开始 (树型框1.取父项目 (n － 1) ＝ -1) ' 判断是否为主项目
.判断开始 (取数组成员数 (主_文本) ≠ 0) ' 主项目下是否有子项目 有子项目则遍历列表进json
副_json.清除 ()
.计次循环首 (取数组成员数 (主_文本), nn) ' 遍历列表
副_json.加成员 (主_文本 [nn], , , )
.计次循环尾 ()
主_json.置属性对象 (当前父项目文本, 副_json.取数据文本 ())
.默认
.如果真 (当前父项目文本 ≠ “”) ' 防止bug
主_json.置属性 (树型框1.取项目文本 (n － 1), “”, ) ' 没子项目则增加进json
.如果真结束

.判断结束
当前父项目文本 ＝ 树型框1.取项目文本 (n － 1) ' 更新当前主项目文本
重定义数组 (主_文本, 假, 0) ' 重置
.默认
加入成员 (主_文本, 树型框1.取项目文本 (n － 1)) ' 不是主项目则增加进列表
.判断结束
.判断开始 (树型框1.取项目数 () ＝ n 且 取父项目数 (树型框1.取父项目 (n － 1), 树型框1) ＝ 0) ' 修复最后一个无法加入json的问题 最后一个就结束了循环 索引无法继续循环 导致无法加入
主_json.置属性 (树型框1.取项目文本 (树型框1.取项目数 () － 1), “”, )
.默认
副_json.清除 ()
.计次循环首 (取数组成员数 (主_文本), nn)
副_json.加成员 (主_文本 [nn], , , )
.计次循环尾 ()
主_json.置属性对象 (当前父项目文本, 副_json.取数据文本 ())
.判断结束
调试输出 (树型框1.取项目数 (), n, 取父项目数 (树型框1.取父项目 (n － 1), 树型框1), 树型框1.取父项目 (n － 1), n － 1, 当前父项目, 当前父项目文本, 主_文本) ' debug
.计次循环尾 ()