|
|
再补一个
当然用java处理JSON非常方便。
但用VBA处理,比较麻烦,举个例子实现读取 [{"fuck":"yes"},{"who":"C","detail":{"first":"crl","address":"drs"}}] 中的yes 和crl
同样的功能,
用java(保存成 XXX.JS 文件):
var ss = [{"fuck":"yes"},{"who":"C","detail":{"first":"crl","address":"drs"}}];
WScript.Echo(ss[0].fuck);
WScript.Echo(ss[1].detail.first);
用VBA:
Sub FUCKC2()
'aa = Cells(1, 1).Value
aa = "[{""" & "fuck""" & ":""" & "yes""" & "},{""" & "who""" & ":""" & "C""" & ",""" & "detail""" & ":{""" & "first""" & ":""" & "crl""" & ",""" & "address""" & ":""" & "drs""" & "}}]"
Set objJs = CreateObject("MSScriptControl.ScriptControl")
objJs.Language = "javascript"
func = "function j(s,i) {return eval('(' + s + '[' + i + '])');}"
objJs.AddCode func
Set x = objJs.CodeObject.j(aa, 0)
Debug.Print x.fuck
Set y = objJs.CodeObject.j(aa, 1)
Debug.Print y.detail.first
End Sub |
评分
-
1
查看全部评分
-
|