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