【VBA研究】解析JSON数据的几种方法

iamlaosong文

网抓数据或者通过接口接收数据时，发来的数据很多是JSON格式，这是JavaScript常用的一种数据结构。对这种数据如何解析呢？先假定发来的数据如下，并针对这个数据给出几种解析方法写成的函数：

 

'返回数据（json格式）
    '{"traces":[
    '{"acceptTime":"2016-12-03 12:24:25","acceptAddress":"宿州市","remark":"宿州市邮政速递公司北区揽投部已收件（揽投员姓名：陆登杰,联系电话:18955780863）"},
    '{"acceptTime":"2016-12-03 18:45:11","acceptAddress":"宿州市","remark":"离开宿州市 发往蚌埠市"},
    '{"acceptTime":"2016-12-03 21:13:10","acceptAddress":"蚌埠市","remark":"到达蚌埠市处理中心（经转）"},
    '{"acceptTime":"2016-12-03 21:14:29","acceptAddress":"蚌埠市","remark":"离开蚌埠市 发往南京市（经转）"},
    '{"acceptTime":"2016-12-04 01:31:00","acceptAddress":"南京市","remark":"到达EMS航空集散中心（南京）处理中心（经转）"},
    '{"acceptTime":"2016-12-04 06:34:00","acceptAddress":"南京市","remark":"离开南京市 发往北京市（经转）"},
    '{"acceptTime":"2016-12-04 08:39:00","acceptAddress":"北京市","remark":"到达  中国邮政速递物流股份有限公司北京市邮件处理中心（航 处理中心"},
    '{"acceptTime":"2016-12-04 11:22:04","acceptAddress":"北京市","remark":"离开中国邮政速递物流股份有限公司北京市国货航航空邮件处 发往北京邮政速递上地区域分公司清华营投部"},
    '{"acceptTime":"2016-12-04 13:23:00","acceptAddress":"北京市","remark":"北京邮政速递上地区域分公司清华营投部安排投递，预计23:59:00前投递"},
    '{"acceptTime":"2016-12-04 15:50:40","acceptAddress":"北京市","remark":"投递并签收，签收人：本人收"}]}

 

 

1、用instr函数，这是我最早想到的办法，当然很土很暴力啦

 

'用instr函数，从字符串中取出轨迹信息，返回条数
Function get_trace(mystring As String) As Integer
    Dim m1, m2, m3, m4, n, s