vba 中解析json数据如下:
Sub VBA_Json()
Dim JsonStr As String
Dim SC As Object
Dim AA, BB
JsonStr = "{""desc"":""成功"",""dataa"":{""maxPage"":43522,""ppiUsername"":""谢文泽""}}"
Set SC = CreateObject("ScriptControl")
SC.Language = "JScript"
Set AA = SC.Eval("eval(" & JsonStr & ")")
Set BB = AA.dataa
Debug.Print BB.maxPage '打印 43522
Debug.Print BB.ppiUsername '打印 谢文泽
End Sub
现在在vb.net中,如何用Imports Microsoft.JScript解析上述json数据呢?
vsto版本是2012版本。