【GitHub分享】一款非常优秀的JSON解析引擎,《Jsoncpp》黑猫易语言移植版。 - 精易论坛

子程序名	返回值类型	公开	备注
_临时子程序

变量名	类型	静态	数组	备注
json	文本型
reader	JsonReader			解析引擎
root	JsonValue			根对象
key1	文本型
key2	逻辑型
key3	文本型
key4	双精度小数型

json ＝ #常量1
' {"key1": 100,"key2":true,"array":[{"key3":"1111"},{"key4":3.14}]}

如果真 (reader.从文本解析 (json, root))

key1 ＝ root.At (“key1”).asString ()

key2 ＝ root.At (“key2”).asBool ()

key3 ＝ root.At (“array”).Index (0).At (“key3”).asString ()

key4 ＝ root.At (“array”).Index (1).At (“key4”).asDouble ()

调试输出 (key1, key2, key3, key4)

i支持库列表	支持库注释
spec	特殊功能支持库

子程序名	返回值类型	公开	备注
_临时子程序

变量名	类型	静态	数组	备注
json	文本型
reader	JsonReader			解析引擎
root	JsonValue			根对象
title	文本型
array	JsonValue
i	整数型
key	文本型

json ＝ #常量2
' {"root":{"child":{"title":"Hello World"}},"array":[{"key":"1111"},{"key":"2222"}]}

如果真 (reader.从文本解析 (json, root))

' 多层直接解析

title ＝ root.At (“root”).At (“child”).At (“title”).asString ()

调试输出 (title)

' 数组解析

array ＝ root.At (“array”)

调试输出 (“数组成员数:”, array.Length ())

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

key ＝ array.Index (i － 1).At (“key”).asString ()

' 数组下标从0开始

调试输出 (i, key)

计次循环尾 ()

i支持库列表	支持库注释
spec	特殊功能支持库

子程序名	返回值类型	公开	备注
__测试_解析优酷视频源_			'测试代码

变量名	类型	静态	数组	备注
reader	JsonReader
root	JsonValue
data	JsonValue
剧名	文本型
集名	文本型
stream	JsonValue
i	整数型
片源	JsonValue
分段文件	JsonValue
j	整数型
原始地址	文本型

' 测试json 地址
' https://ups.youku.com/ups/get.json?vid=XNjE2OTM1NTg0&ccode=0401&client_ip=192.168.1.1&utid=Op9zEU%2Ft1XUCAXFZe9aDvQ6a&client_ts=1492074201%E2%80%9D,%20%E2%80%9CGET

如果真 (reader.从文件解析 (取运行目录 () ＋ “\json.txt”, root))

data ＝ root.At (“data”)

剧名＝ data.At (“show”).At (“title”).asString ()

集名＝ data.At (“video”).At (“title”).asString ()

调试输出 (剧名, 集名)

stream ＝ data.At (“stream”) ' 数组

' youku 通常情况下, 0 = 流畅,1 = 高清, 2 = 超清

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

片源＝ stream.Index (i － 1) ' 数组下标从0开始

分段文件＝片源.At (“segs”) ' 数组

计次循环首 (分段文件.Length (), j)

原始地址＝分段文件.Index (i － 1).At (“cdn_url”).asString ()

判断 (i ＝ 1)

调试输出 (“流畅分段视频地址: ”, j, 原始地址)

判断 (i ＝ 2)

调试输出 (“高清分段视频地址: ”, j, 原始地址)

判断 (i ＝ 3)

调试输出 (“超清分段视频地址: ”, j, 原始地址)

计次循环尾 ()

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br />
.支持库 spec<br />
<br />
.子程序 __测试_解析优酷视频源_, , , '测试代码<br />
.局部变量 reader, JsonReader<br />
.局部变量 root, JsonValue<br />
.局部变量 data, JsonValue<br />
.局部变量 剧名, 文本型<br />
.局部变量 集名, 文本型<br />
.局部变量 stream, JsonValue<br />
.局部变量 i, 整数型<br />
.局部变量 片源, JsonValue<br />
.局部变量 分段文件, JsonValue<br />
.局部变量 j, 整数型<br />
.局部变量 原始地址, 文本型<br />
<br />
' 测试json 地址<br />
<br />
' https://ups.youku.com/ups/get.json?vid=XNjE2OTM1NTg0&ccode=0401&client_ip=192.168.1.1&utid=Op9zEU%2Ft1XUCAXFZe9aDvQ6a&client_ts=1492074201%E2%80%9D,%20%E2%80%9CGET<br />
<br />
.如果真 (reader.从文件解析 (取运行目录 () ＋ “\json.txt”, root))<br />
    data ＝ root.At (“data”)<br />
<br />
    剧名 ＝ data.At (“show”).At (“title”).asString ()<br />
    集名 ＝ data.At (“video”).At (“title”).asString ()<br />
    调试输出 (剧名, 集名)<br />
<br />
    stream ＝ data.At (“stream”)  ' 数组<br />
    ' youku 通常情况下, 0 = 流畅,1 = 高清, 2 = 超清<br />
<br />
    .计次循环首 (stream.Length (), i)<br />
        片源 ＝ stream.Index (i － 1)  ' 数组下标从0开始<br />
<br />
        分段文件 ＝ 片源.At (“segs”)  ' 数组<br />
        .计次循环首 (分段文件.Length (), j)<br />
            原始地址 ＝ 分段文件.Index (i － 1).At (“cdn_url”).asString ()<br />
<br />
            .判断开始 (i ＝ 1)<br />
                调试输出 (“流畅 分段视频地址: ”, j, 原始地址)<br />
            .判断 (i ＝ 2)<br />
                调试输出 (“高清 分段视频地址: ”, j, 原始地址)<br />
            .判断 (i ＝ 3)<br />
                调试输出 (“超清 分段视频地址: ”, j, 原始地址)<br />
            .默认<br />
<br />
            .判断结束<br />
<br />
        .计次循环尾 ()<br />
    .计次循环尾 ()<br />
.如果真结束