如何从json创建的对象获取信息

时间:2014-02-19 14:30:41

标签: json vba

我有一个json字符串:{"jsonrpc":"2.0","result":[{"event":{"id":"27151641","name":"TSW Pegasus FC (Res) v Sun Hei SC (Res)","countryCode":"HK","timezone":"GMT","openDate":"2014-02-19T12:30:00.000Z"},"marketCount":14},{"event":{"id ":"27151646","name":"Humble Lions v Boys Town FC...等等

因此结果位是事件/市场对的列表。我在一个名为jsonlib的类模块中使用了parse方法,我从http://code.google.com/p/vba-json/issues/attachmentText?id=15&aid=150001000&name=jsonlib.cls&token=31ObtlGBtaGXd2KR0QLyffX_x8Y:1359742317106得到了

这会创建一个对象(jason_obj),它代表上面的结果位。现在我想获得每个事件的ID列表。我可以使用for each ...构造将每个event / marketcount对作为对象返回,但是我无法弄清楚如何到达事件对象中某处的id字段。我试图使用tostring方法来获取线索,并且从这个代码应该可以工作,但它不会:

For Each eventItem In jason_obj
 this_eventx = eventItem("event")
 this_id = this_eventx("id")
 Next

对访问对象/集合不太了解。有人可以帮忙吗?感谢

1 个答案:

答案 0 :(得分:0)

需要设置对象,引用应使用item:

对于每个eventItem在jason_obj

设置this_eventx = eventItem.item(“event”)

this_id = this_eventx.item(“id”)

下一步

HTH

是的,