json对象为数字的情况如何处理

cunfu2010

如图所示，obj对象下面有两个对象0和1，用CallByName()函数可以处理，如何不用CallByName()函数，如何处理？

Sub test1()
    st = "{""traces"":[{""acceptTime"":""2016-12-03"",""acceptAddress"":""宿州市"",""remark"":""宿州市邮政快递""},{""acceptTime"":""2016-12-04"",""acceptAddress"":""北京市"",""remark"":""投递并签收""}]}"
    With CreateObject("htmlfile")
        .parentWindow.execScript "var jsonobj = " & st
        Set obj = .parentWindow.jsonobj.traces
        MsgBox CallByName(CallByName(obj, 0, VbGet), "remark", VbGet)
        MsgBox obj
    End With
End Sub

cunfu2010

请高手指点一下

zzj198237

可以用java或者C#开发一个解析包

Kaohsing

只是数组的第一个元素，解析这个对象就是

cunfu2010

Kaohsing 发表于 2021-10-18 09:50
只是数组的第一个元素，解析这个对象就是

能具体说说吗？按数组元素处理，试过几个方法都不行

cunfu2010

zzj198237 发表于 2021-10-18 08:39
可以用java或者C#开发一个解析包

这个暂时不会呢

cunfu2010

Kaohsing 发表于 2021-10-18 09:50
只是数组的第一个元素，解析这个对象就是

多个元素要循环

xuqing8331

不知道是不是这个意思，供楼主参考

1. Sub test1()
   
2.     st = "{""traces"":[{""acceptTime"":""2016-12-03"",""acceptAddress"":""宿州市"",""remark"":""宿州市邮政快递""},{""acceptTime"":""2016-12-04"",""acceptAddress"":""北京市"",""remark"":""投递并签收""}]}"
   
3.     With CreateObject("htmlfile")
   
4.         .parentwindow.execScript "var jsonobj = " & st
   
5.         Set owin = .parentwindow
   
6.         MsgBox owin.eval("jsonobj.traces[0].remark")
   
7.     End With
   
8. End Sub

复制代码

cunfu2010

xuqing8331 发表于 2021-10-18 11:10
不知道是不是这个意思，供楼主参考

谢谢！您使用的是eval()函数，能够直接取指定键值。多问一句：如果想用for each循环对象取键值，怎么办呢？

cunfu2010

请教各位：能否通过自定义函数解决这类问题？