.版本 2
.支持库 spec
.程序集 窗口程序集_窗口1
.子程序 _窗口1_创建完毕
.局部变量 json, 类_json
.局部变量 retBool, 逻辑型
调试输出 (#json)
retBool ＝ json.解析 (#json)
.如果 (retBool ＝ 真)
json ＝ json_ksort (json)
调试输出 (json.取数据文本 ())
.否则
.如果结束
.子程序 json_ksort, 类_json
.参数 json, 类_json
.参数 排序方法, 整数型, 可空, 0正序1倒序
.局部变量 keys, 文本型, , "0"
.局部变量 _json, 类_json
.局部变量 i, 整数型
.局部变量 key, 文本型
json.取所有属性名 (keys)
.如果真 (取数组成员数 (keys) ≤ 0)
返回 (json)
.如果真结束
数组_排序 (keys, 排序方法, 假)
.计次循环首 (取数组成员数 (keys), i)
key ＝ keys [i]
_json.置属性 (key, json.取通用属性 (key))
.计次循环尾 ()
返回 (_json)