页面订单json解析易语言源码实现了高级表格显示JSON数据，调用易语言模块解析json结构分析淘宝订单页面。
.版本 2
.支持库 spec
.子程序 从网页源码中读取订单到数组
.参数 网页源码, 文本型
.参数 订单内容数组, 订单信息, 参考 数组
.局部变量 正则, 正则表达式类
.局部变量 json, STJson
.局部变量 jsonv, STJsonValue
.局部变量 jsonr, STJsonParseResult
.局部变量 i, 整数型
.局部变量 临时_订单, 订单信息
.局部变量 o, 整数型
.局部变量 店铺sellerid, 文本型
清除数组 (订单内容数组)
正则.创建 (#正则_匹配订单, 网页源码)
jsonv ＝ json.Parse (正则.取子匹配文本 (1, 1), jsonr)
正则.创建 (“seller_id=(.*?)&”, 正则.取子匹配文本 (1, 1))
店铺sellerid ＝ 正则.取子匹配文本 (1, 1)
.如果真 (jsonr.stat ＝ 假)
调试输出 (“匹配失败！”)
jsonv ＝ json.Parse (网页源码, jsonr)
.如果真 (jsonr.stat ＝ 假)
返回 ()
.如果真结束
正则.创建 (“seller_id=(.*?)&”, 网页源码)
店铺sellerid ＝ 正则.取子匹配文本 (1, 1)
' 调试输出 (店铺sellerid)
.如果真结束
.计次循环首 (jsonv.Get (“mainOrders”).Size (), i)
临时_订单.订单编号 ＝ jsonv.Get (“mainOrders”).GetAt (i).Get (“orderInfo”).Get (“id”).AsString ()
临时_订单.成交时间 ＝ jsonv.Get (“mainOrders”).GetAt (i).Get (“orderInfo”).Get (“createTime”).AsString ()
临时_订单.订单标识 ＝ 到整数 (jsonv.Get (“mainOrders”).GetAt (i).Get (“extra”).Get (“sellerFlag”).AsString ())
临时_订单.买家旺旺 ＝ jsonv.Get (“mainOrders”).GetAt (i).Get (“buyer”).Get (“nick”).AsString ()
临时_订单.交易状态 ＝ jsonv.Get (“mainOrders”).GetAt (i).Get (“statusInfo”).Get (“text”).AsString ()
临时_订单.实收款 ＝ 到数值 (jsonv.Get (“mainOrders”).GetAt (i).Get (“payInfo”).Get (“actualFee”).AsString ())
' 临时_订单.快递费 ＝ jsonv.Get (“mainOrders”).GetAt (i).Get (“payInfo”).Get (“postType”).AsString ()
正则.创建 (#正则_匹配数字, jsonv.Get (“mainOrders”).GetAt (i).Get (“payInfo”).Get (“postType”).AsString ())
临时_订单.快递费 ＝ 到数值 (正则.取匹配文本 (1))
临时_订单.评价状态 ＝ jsonv.Get (“mainOrders”).GetAt (i).Get (“operations”).GetAt (2).Get (“text”).AsString ()
' 调试输出 (正则.取子匹配文本 (1, 1), 正则.取匹配数量 (), 正则.取子匹配数量 (), jsonv.Get (“mainOrders”).GetAt (i).Get (“payInfo”).Get (“postType”).AsString (), 正则.取匹配文本 (1))
.计次循环首 (jsonv.Get (“mainOrders”).GetAt (i).Get (“subOrders”).Size (), o)
临时_订单.购买数量 ＝ 到整数 (jsonv.Get (“mainOrders”).GetAt (i).Get (“subOrders”).GetAt (o).Get (“quantity”).AsString ())
临时_订单.宝贝名称 ＝ jsonv.Get (“mainOrders”).GetAt (i).Get (“subOrders”).GetAt (o).Get (“itemInfo”).Get (“title”).AsString ()
临时_订单.宝贝URL ＝ jsonv.Get (“mainOrders”).GetAt (i).Get (“subOrders”).GetAt (o).Get (“itemInfo”).Get (“itemUrl”).AsString ()
临时_订单.宝贝主图 ＝ jsonv.Get (“mainOrders”).GetAt (i).Get (“subOrders”).GetAt (o).Get (“itemInfo”).Get (“pic”).AsString ()
临时_订单.商家编码 ＝ jsonv.Get (“mainOrders”).GetAt (i).Get (“subOrders”).GetAt (o).Get (“itemInfo”).Get (“extra”).GetAt (1).Get (“value”).AsString ()
临时_订单.SKU规格 ＝ jsonv.Get (“mainOrders”).GetAt (i).Get (“subOrders”).GetAt (o).Get (“itemInfo”).Get (“skuText”).GetAt (1).Get (“value”).AsString ()
加入成员 (订单内容数组, 临时_订单)
.计次循环尾 ()
.计次循环尾 ()