易语言json取成员文本源码

易语言json取成员文本源码

@ctw507

.版本 2

.程序集 窗口程序集1
.程序集变量 json, _Json

.子程序 __启动窗口_创建完毕

子程序2 ()

.子程序 子程序2
.局部变量 txt, 文本型
.局部变量 code, 文本型
.局部变量 extra, 文本型
.局部变量 message, 文本型
.局部变量 开奖期数, 整数型
.局部变量 a, 整数型
.局部变量 txt1, 文本型
.局部变量 个数, 整数型
.局部变量 txt0, 文本型

txt ＝ #常量1  ' {"code":1,"message":"[{\"os\":\"13363634\",\"r\":\"8,0,1,8,7\"},{\"os\":\"13363633\",\"r\":\"8,8,0,4,4\"},{\"os\":\"13363632\",\"r\":\"2,6,9,8,6\"},{\"os\":\"13363631\",\"r\":\"9,5,9,2,3\"},{\"os\":\"13363630\",\"r\":\"7,2,1,9,3\"},{\"os\":\"13363629\",\"r\":\"7,5,5,9,4\"},{\"os\":\"13363628\",\"r\":\"1,4,1,6,7\"},{\"os\":\"13363627\",\"r\":\"2,6,1,2,2\"},{\"os\":\"13363626\",\"r\":\"4,0,0,0,6\"},{\"os\":\"13363625\",\"r\":\"0,0,7,7,4\"}]","extra":null}

' { } [ ] 都是json的形式

json.解析 (txt)  ' 对文本进行解析 清晰化json文本
code ＝ json.取文本属性 (“code”)  ' 获取code属性的文本
message ＝ json.取文本属性 (“message”)  ' 获取message属性的文本
extra ＝ json.取文本属性 (“extra”)  ' 获取extra属性的文本
输出调试文本 (code, message, extra)
' [{"os":"13363634","r":"8,0,1,8,7"},{"os":"13363633","r":"8,8,0,4,4"},{"os":"13363632","r":"2,6,9,8,6"},{"os":"13363631","r":"9,5,9,2,3"},{"os":"13363630","r":"7,2,1,9,3"},{"os":"13363629","r":"7,5,5,9,4"},{"os":"13363628","r":"1,4,1,6,7"},{"os":"13363627","r":"2,6,1,2,2"},{"os":"13363626","r":"4,0,0,0,6"},{"os":"13363625","r":"0,0,7,7,4"}] 这个还是一个json 所以需要再次解析

json.解析 (message)
个数 ＝ json.取成员数 ()  ' 看获取的文本有多少个json
' js.取成员json (a － 1).取文本属性 (“os”)        js.取成员json (a － 1) 是表示上面得到的message的第a-1个的{"os":"  ","r":" "}
' js.取成员json (a － 1).取文本属性 (“os”)是表示上面得到的message的第a-1个的os 的值
' js.取成员json (a － 1).取文本属性 (“r”)是表示上面得到的message的第a-1个的r 的值
' 用循环判断 表示循环取出数据
.判断循环首 (真)
    a ＝ a ＋ 1
    txt1 ＝ “开奖期数：” ＋ json.取成员json (a － 1).取文本属性 (“os”) ＋ “ 开奖结果为：” ＋ json.取成员json (a － 1).取文本属性 (“r”)
    ' 输出调试文本 (txt1, a)
    编辑框1.加入文本 (txt1 ＋ #换行符)
    .如果真 (个数 ＝ a)
        跳出循环 ()
    .如果真结束

.判断循环尾 ()
' 调试输出 (a)