json_ksort 二维数组键值排序源码

.版本 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)

@田老板