关于json文本写入与提取总是出错

triplefish

        各位大神好，最近在学些json处理，按照大神们写出的例子，都能够理解并能在vba中运行。但是我吧自己的数据替换大神们提供的数据后，总是出现未结束的字符串常量，导致不能提取想要的数据。
        下面是小弟我的数据，能不能提供一个简单的代码，只要msgbox能正确显示，我就能自己研究怎么取出，谢谢！

{"OM":{"orderId":"1234567890","customerPhone":"13800138000","Name":"张三丰","Address":北京长安街1号A","carrierName":"顺水物流",},"Invoice":"否","OI":[{"productId":"654321","productName":"teslamodel y" }]}

duquancai

导致不能提取想要的数据。不知道你想要什么数据啊？你没说要提取具体哪个数据啊？也不知道你的json字符串来自哪里啊？

mxf21cn

Sub test1()
     k = "{'status':200,'error':'成功','data':{'examInfo':{'id':'a5c6e45ea4dcabf63acb7836760a9ef1','settings':{'isShowAvgTip':'false','isOpenPush':'true','isMatric':'false'"
     k = k & ",'isShowScoreRadar':'false','isRemoteSearch':'false'},'name':'XX市2017-2018学年第二学期高二期末水平测试'},'scores':[{'infoDetail':[{'name':'主观题','value':'72'},"
     k = k & "{'name':'客观题','value':'25'}],'courseTotalScore':'150','totalScore':'97','totalScoreNum':'97','courseCode':'YW','courseName':'语文'},"
     k = k & "{'infoDetail':[{'name':'主观题','value':'28'},{'name':'客观题','value':'45'}],'courseTotalScore':'150','totalScore':'73','totalScoreNum':'73','courseCode':'LSX','courseName':'理科数学'},"
     k = k & "{'infoDetail':[{'name':'听说','value':'9'},{'name':'笔试','value':'89'}],'courseTotalScore':'150','totalScore':'98','totalScoreNum':'98','courseCode':'YY','courseName':'英语（含听说）'},"
     k = k & "{'infoDetail':[{'name':'客观题','value':'20'},{'name':'主观题','value':'21'}],'courseTotalScore':'100','totalScore':'41','totalScoreNum':'41','courseCode':'WL','courseName':'物理'},"
     k = k & "{'infoDetail':[{'name':'主观题','value':'16'},{'name':'客观题','value':'26'}],'courseTotalScore':'100','totalScore':'42','totalScoreNum':'42','courseCode':'HX','courseName':'化学'},"
     k = k & "{'infoDetail':[{'name':'客观题','value':'27'},{'name':'主观题','value':'38'}],'courseTotalScore':'100','totalScore':'65','totalScoreNum':'65','courseCode':'SW','courseName':'生物'}]"
     k = k & ",'userInfo':{'stName':'XXX','school':'XX市XX中学','examNo':'08190XXXX'}}}"

        strJOSN = k9
        Set oDom = CreateObject("htmlfile")
        Set oWindow = oDom.parentWindow
        oWindow.execScript "a=" & strJOSN

        MsgBox oWindow.eval("a.error")
        MsgBox oWindow.eval("a.data.examInfo.id")
        MsgBox oWindow.eval("a.data.scores[0].totalScoreNum")
        MsgBox oWindow.eval("a.data.scores[0].infoDetail[1].value")
End Sub
给你参考

triplefish

duquancai 发表于 2018-8-19 14:48
导致不能提取想要的数据。不知道你想要什么数据啊？你没说要提取具体哪个数据啊？也不知道你的json字符串来 ...

提取每一个key的值啊，例如我要提取adress后面的地址

duquancai

triplefish 发表于 2018-8-19 20:34
提取每一个key的值啊，例如我要提取adress后面的地址

楼上不是已经给你代码了吗？

triplefish

mxf21cn 发表于 2018-8-19 18:21
Sub test1()
     k = "{'status':200,'error':'成功','data':{'examInfo':{'id':'a5c6e45ea4dcabf63acb78 ...

回去了试一下，感谢

triplefish

mxf21cn 发表于 2018-8-19 18:21
Sub test1()
     k = "{'status':200,'error':'成功','data':{'examInfo':{'id':'a5c6e45ea4dcabf63acb78 ...

运行到oWindow.execScript "a=" & strJOSN这一行报错，是哪里不对吗 之前还从未遇到过这种错误

duquancai

triplefish 发表于 2018-8-20 13:41
运行到oWindow.execScript "a=" & strJOSN这一行报错，是哪里不对吗 之前还从未遇到过这种错误

无附件，不知道字符串“变量”strJOSN的具体值。很难得到满意的答复！

mxf21cn

triplefish 发表于 2018-8-20 13:41
运行到oWindow.execScript "a=" & strJOSN这一行报错，是哪里不对吗 之前还从未遇到过这种错误

你的字符串不是标准JSON  格式改为  "{'OM':{'orderId':'1234567890','customerPhone':'13800138000','Name':'张三丰','Address':'北京长安街1号A','carrierName':'顺水物流'},'Invoice':'否','OI':[{'productId':'654321','productName':'teslamodel y' }]}"就可以了，具体哪里有差别 ，我都改完了   就看你的眼力了

triplefish

mxf21cn 发表于 2018-8-20 18:12
你的字符串不是标准JSON  格式改为  "{'OM':{'orderId':'1234567890','customerPhone':'13800138000','Na ...

大神你好,我用你提供的例子，运行到那一步还是同样的错误，是不是引用有问题啊