Json解析视图操作

终于弄出来了，所以分享个大家。调用了模块，自行下载即可。
这里好像类型 4 对象，不能遍历全程，所以出现错误，做个标记。
.判断开始 (输出框.内容 ≠ “”)
代码 ＝ 子文本替换 (#易语言代码, “[代码]”, 输出框.内容, , , 真)
.如果真 (置剪辑板文本 (代码))
信息框 (“模块自行导入，” ＋ “代码直接粘贴到子程序即可！” ＋ “代码如下：” ＋ #换行符 ＋ 代码, 0, “Json代码复制成功：”, )
.如果真结束

.默认
信息框 (“请先解析数据!!!”, 48, “Json代码复制失败：”, )