json数据处理函数

ivrdachen

找到一段json数据处理的代码，很好用，我想把它变成函数直接调用，总是出错，
Sub bluejson()   
    Dim aa, y As Object
    Set x = CreateObject("ScriptControl"): x.Language = "JScript"
    aa = Sheets("Sheet1").Range("A1").Value
    Set y = x.eval("eval(" & aa & ")")
    MsgBox y.account
End Sub


我想要的函数是
Function bluejson(jsontext) as Object
    Dim aa, y As Object
    Set x = CreateObject("ScriptControl"): x.Language = "JScript"
    aa = jsontext
    Set y = x.eval("eval(" & aa & ")")
    bluejson=y
End Function
比如json数据是：{"orderID":"06fc55ee-72a6-4f13-d874-d9e137c1e5bc","clOrdID":"","clOrdLinkID":"","account":27874,"timestamp":"2018-03-22T01:36:10.914Z"}
其他过程里面调用
Sub test()
shuju="{""orderID"":""06fc55ee-72a6-4f13-d874-d9e137c1e5bc"",""clOrdID"":"""",""clOrdLinkID"":"""",""account"":27874,""timestamp"":""2018-03-22T01:36:10.914Z""}"
msgbox bluejson.account
End Sub

但报错运行不了，请教下各位该怎么改呢？

ivrdachen

自己试了很多次，搞定了，代码如下：
Function getjson(aa) As Object
    Set x = CreateObject("ScriptControl"): x.Language = "JScript"
    Set getjson = x.eval("eval(" & aa & ")")
End Function


调用：
Sub test()
aa = "{""orderID"":""06fc55ee-72a6-4f13-d874-d9e137c1e5bc"",""clOrdID"":"""",""clOrdLinkID"":"""",""account"":27874,""timestamp"":""2018-03-22T01:36:10.914Z""}"
MsgBox getjson(aa).account
End Sub

Kaohsing

ivrdachen 发表于 2018-3-22 14:58
自己试了很多次，搞定了，代码如下：
Function getjson(aa) As Object
    Set x = CreateObject("Script ...

Function jx(tt) As Object
    Dim aa, y As Object
    Set x = CreateObject("ScriptControl")
    x.Language = "JScript"
    x.addcode "var js=" & tt
   Set jx = x.eval("js")
End Function
Sub test()
   shuju = "{""orderID"":""06fc55ee-72a6-4f13-d874-d9e137c1e5bc"",""clOrdID"":"""",""clOrdLinkID"":"""",""account"":27874,""timestamp"":""2018-03-22T01:36:10.914Z""}"
   Set obj = jx(shuju)
   MsgBox obj.account
End Sub

ivrdachen

Kaohsing 发表于 2018-3-22 15:05
Function jx(tt) As Object
    Dim aa, y As Object
    Set x = CreateObject("ScriptControl")

又遇到了一个问题，如果处理的字符串不是json数据或不存在需要的字段，会导致出错，忽略错误的话每次都需要在调用函数前加 On Error Resume Next，这个比较麻烦，如何能直接在函数内部加上 On Error Resume Next，如果不是json数据的话或没有需要的字段，返回空值呢？

duquancai

ivrdachen 发表于 2018-4-4 21:45
又遇到了一个问题，如果处理的字符串不是json数据或不存在需要的字段，会导致出错，忽略错误的话每次都需 ...

处理的字符串与json数据 有啥区别嘛？找出区别进行判断！！！

ivrdachen

duquancai 发表于 2018-4-4 21:48
处理的字符串与json数据 有啥区别嘛？找出区别进行判断！！！

在调用之前是可以进行判断，但每次都要判断比较麻烦啊，我是想直接在函数内部做判断，如果出错就返回空值的

duquancai

ivrdachen 发表于 2018-4-4 21:52
在调用之前是可以进行判断，但每次都要判断比较麻烦啊，我是想直接在函数内部做判断，如果出错就返回空值 ...

哦哦哦哦哦！那你自己玩嘛！！！

Kaohsing

ivrdachen 发表于 2018-4-4 21:45
又遇到了一个问题，如果处理的字符串不是json数据或不存在需要的字段，会导致出错，忽略错误的话每次都需 ...

在js内部，用正则表达式匹配，然后进行逻辑运算，或者在函数外部进行判断，有就执行，没有就返空。