易语言JSON转树形图

示例中用到的JSON：

{
    "data": [
        {
            "CODE": 20220128,
            "NAME": 258
        },
        {
            "CODE": 20220128,
            "NAME": 268
        }
    ],
    "returnCode": "000000",
    "returnMsg": "SUCCESS",
    "success": true
}

易语言转换源代码

.版本 2
.支持库 iext

.子程序 _转换_被单击
.局部变量 原始内容, 文本型
.局部变量 json, 类_json
.局部变量 data, 类_json
.局部变量 data成员数, 整数型
.局部变量 data计数器, 整数型
.局部变量 单个数据, 类_json
.局部变量 单个节点, 整数型

原始内容 ＝ 编辑框1.内容

.如果 (json.解析 (原始内容))
    data ＝ json.取属性 (“data”)
    data成员数 ＝ data.成员数 ()

    树型框1.加入项目 (, “解析结果”, , , , , )
    .计次循环首 (data成员数, data计数器)


        单个数据 ＝ data.取成员 (data计数器 － 1)


        单个节点 ＝ 树型框1.加入项目 (, 到文本 (data计数器 － 1), , , , , )

        树型框1.加入项目 (单个节点, “券的编码：” ＋ 单个数据.取通用属性 (“CODE”), , , , , )


    .计次循环尾 ()

.否则
    信息框 (“错误JSON格式”, 48, “错误提示”, )
.如果结束