易语言JSON解析支持库,支持复杂格式解析/生成,常用编码转换等功能。 - 精易论坛

{
"test1":"Hello World!",
"test2":100,
"test3":3.14,
"test4":true,
"test5":4294967296,
"test6":{"child1":"1111","child2":"2222"},
"array":[{"app1":"aaaa","app2":"bbbb"},{"app1":"cccc","app2":"dddd"}]
}

子程序名	返回值类型	公开	备注
_启动子程序	整数型		本子程序在程序启动后最先执行

变量名	类型	静态	数组	备注
Reader	Json::Reader			JSON解析引擎
Root	Json::Value			根节点对象
Array	Json::Value			数组对象
i	整数型
test1	Json::Value

判断 (Reader.从文本解析 ( #常量1, Root))

调试输出 (Root.At (“test1”).asString ()) ' 输出文本型值

调试输出 (Root.At (“test2”).asInt ()) ' 输出整数型值

调试输出 (Root.At (“test3”).asDouble ()) ' 输出双精度小数型值

调试输出 (Root.At (“test4”).asBool ()) ' 输出逻辑型值

调试输出 (Root.At (“test5”).asInt64 ()) ' 输出长整数型值

调试输出 (“===========================================================”)

调试输出 (Root.At (“test6”).At (“child1”).asString ()) ' 取出JSON对象中的成员值

调试输出 (“===========================================================”)

Array ＝ Root.At (“array”)

如果真 (Array.isArray ()) ' 是否为数组对象

调试输出 (“数组长度:”, Array.Length ())

计次循环首 (Array.Length (), i)

调试输出 (i, Array.Index (i － 1).At (“app1”).asString ()) ' 数组下标从0开始,取出数组对象中的成员值

计次循环尾 ()

调试输出 (“===========================================================”)

test1 ＝ Root.At (“test1”)

调试输出 (“状态判断:”)

调试输出 (“是否为文本型: ”, test1.isString ())

调试输出 (“是否为逻辑型: ”, test1.isBool ())

调试输出 (“是否为整数型: ”, test1.isInt ())

调试输出 (“是否为双精度小数型: ”, test1.isDouble ())

调试输出 (“是否为长整数型: ”, test1.isInt64 ())

调试输出 (“是否为空: ”, test1.isNull ())

调试输出 (“是否为对象: ”, test1.isObject ())

调试输出 (“是否为数组: ”, test1.isArray ())

调试输出 (“解析失败,错误信息: ”, Reader.取错误信息 ())

标准输入 ()
返回 (0) ' 可以根据您的需要返回任意数值

i支持库列表	支持库注释
JsonReader	(未知支持库)
spec	特殊功能支持库

.版本 2<br />
.支持库 JsonReader<br />
.支持库 spec<br />
<br />
.子程序 _启动子程序, 整数型, , 本子程序在程序启动后最先执行<br />
.局部变量 Reader, Json::Reader, , , JSON解析引擎<br />
.局部变量 Root, Json::Value, , , 根节点对象<br />
.局部变量 Array, Json::Value, , , 数组对象<br />
.局部变量 i, 整数型<br />
.局部变量 test1, Json::Value<br />
<br />
.判断开始 (Reader.从文本解析 (#常量1, Root))<br />
    调试输出 (Root.At (“test1”).asString ())  ' 输出文本型值<br />
    调试输出 (Root.At (“test2”).asInt ())  ' 输出整数型值<br />
    调试输出 (Root.At (“test3”).asDouble ())  ' 输出双精度小数型值<br />
    调试输出 (Root.At (“test4”).asBool ())  ' 输出逻辑型值<br />
    调试输出 (Root.At (“test5”).asInt64 ())  ' 输出长整数型值<br />
    调试输出 (“===========================================================”)<br />
    调试输出 (Root.At (“test6”).At (“child1”).asString ())  ' 取出JSON对象中的成员值<br />
    调试输出 (“===========================================================”)<br />
    Array ＝ Root.At (“array”)<br />
    .如果真 (Array.isArray ())  ' 是否为数组对象<br />
        调试输出 (“数组长度:”, Array.Length ())<br />
        .计次循环首 (Array.Length (), i)<br />
            调试输出 (i, Array.Index (i － 1).At (“app1”).asString ())  ' 数组下标从0开始,取出数组对象中的成员值<br />
        .计次循环尾 ()<br />
    .如果真结束<br />
    调试输出 (“===========================================================”)<br />
    test1 ＝ Root.At (“test1”)<br />
    调试输出 (“状态判断:”)<br />
    调试输出 (“是否为文本型: ”, test1.isString ())<br />
    调试输出 (“是否为逻辑型: ”, test1.isBool ())<br />
    调试输出 (“是否为整数型: ”, test1.isInt ())<br />
    调试输出 (“是否为双精度小数型: ”, test1.isDouble ())<br />
    调试输出 (“是否为长整数型: ”, test1.isInt64 ())<br />
    调试输出 (“是否为空: ”, test1.isNull ())<br />
    调试输出 (“是否为对象: ”, test1.isObject ())<br />
    调试输出 (“是否为数组: ”, test1.isArray ())<br />
.默认<br />
<br />
    调试输出 (“解析失败,错误信息: ”, Reader.取错误信息 ())<br />
.判断结束<br />
<br />
标准输入 ()<br />
返回 (0)  ' 可以根据您的需要返回任意数值

子程序名	返回值类型	公开	备注
_启动子程序	整数型		本子程序在程序启动后最先执行

变量名	类型	静态	数组	备注
Root	Json::Value			根对象
Object	Json::Value			子对象
Array	Json::Value			数组对象
item1	Json::Value			数组成员对象
item2	Json::Value			数组成员对象

Root.Add (“test1”, “1111”)  ' 添加文本型值
' Root.Add (“test1”, 100)  ' 修改"test1"的值
Root.Add (“test2”, 1024)  ' 添加整数型值
Root.Add (“test3”, 真)  ' 添加逻辑型值
Root.Add (“test4”, #pi )  ' 添加双精度小数型值
Root.Add (“test5”, 4294967296)  ' 添加长整数型值
' ========================================================
Object.Add (“child1”, “1111”)
Object.Add (“child2”, “2222”)
Root.Add (“object”, Object)  ' 添加JSON对象
' ========================================================
item1.Add (“min”, “aaaa”)
item1.Add (“max”, “bbbb”)
item2.Add (“min”, “cccc”)
item2.Add (“max”, “dddd”)
Array.Append (item1)  ' 将item1对象加入数组
Array.Append (item2)  ' 将item2对象加入数组
Root.Add (“array”, Array)  ' 将数组对象加入到根对象中
' ========================================================
信息框 (Root.toStyledString (), 0, , )  ' 输出带格式的JSON文本。
标准输入 ()
返回 (0)  ' 可以根据您的需要返回任意数值

i支持库列表	支持库注释
JsonReader	(未知支持库)

常用编码转换例子:

子程序名	返回值类型	公开	备注
_启动子程序	整数型		本子程序在程序启动后最先执行

调试输出 (A2W (“你好!”))  ' ANSI转Unicode
调试输出 (W2A ({ 96, 79, 125, 89, 33, 0, 0, 0 }))  ' Unicode转ANSI
调试输出 (A2T (“你好!”))  ' ANSI转UTF-8
调试输出 (T2A (“浣犲ソ!”))  ' UTF-8转ANSI
' ======================================================
' 常用格式化字符串转换
调试输出 (格式化字符串 (“你好!”, 真, 0))  ' 将文本转换为: \u0031\u0031 ,这样的编码
调试输出 (格式化字符串 (“\u4f60\u597d\u0021\ubaad\uf00d”, 假, 0))  ' 将格式化字符串编码转回文本
调试输出 (格式化字符串 (“你好!”, 真, 1))  ' 将文本转换为: %u0031%u0031 ,这样的编码
调试输出 (格式化字符串 (“%u4f60%u597d%u0021%ubaad%uf00d”, 假, 1))  ' 将格式化字符串编码转回文本
调试输出 (格式化字符串 (“你好!ABC D”, 真, 2))  ' 将文本转换为: %E4%BD%A0%E5%A5%BD%21ABC%20D ,这样的编码(URL编码)
调试输出 (格式化字符串 (“%E4%BD%A0%E5%A5%BD%21ABC%20D”, 假, 2))  ' 将格式化字符串编码转回文本
标准输入 ()
返回 (0)  ' 可以根据您的需要返回任意数值

i支持库列表	支持库注释
spec	特殊功能支持库
JsonReader	(未知支持库)

转换结果:

* 字节集:8{96,79,125,89,33,0,0,0}
* “你好!”
* “浣犲ソ!”
* “你好!”
* “\u4f60\u597d\u0021\ubaad\uf00d”
* “你好!”
* “%u4f60%u597d%u0021%ubaad%uf00d”
* “你好!”
* “%E4%BD%A0%E5%A5%BD%21ABC%20D”
* “你好!ABC D”

=======================================================
支持库下载:
链接: https://pan.baidu.com/s/1slGv1il 密码: mph2