JSON解析树型显示

易语言 2020-11-14 13:32:59

JSON解析树型显示

.如果 (类型 = 0 或 类型 = 1 或 类型 = 2 或 类型 = 6)
树型框.加入项目 (引索, 属性组 [i] + “=” + J.取通用属性 (属性名 + “['” + 属性组 [i] + “']”, 真), , , , , )
.否则
主引索 = 树型框.加入项目 (引索, 属性组 [i], , , , , )
.如果 (类型 = 5)
成员数量 = J.取所有属性名 (成员数组, 属性名 + “['” + 属性组 [i] + “']”)
.计次循环首 (成员数量, M)
子引索 = 树型框.加入项目 (主引索, “{” + 成员数组 [M] + “}”, , , , , )
JOSN解析 (JOSN文本, 属性名 + “['” + 属性组 [i] + “']” + “[” + 成员数组 [M] + “]”, 子引索)
.计次循环尾 ()
.否则
JOSN解析 (JOSN文本, 属性名 + “['” + 属性组 [i] + “']”, 主引索)