如下,要解析的字符串:
JsonStr = "{""desc"":""成功"",""dataa"":{""maxPage"":43522,""ppiUsername"":""谢文泽""}}"
利用NuGet包管理器控制台安装好newtonsoft.json.输入命令:Install-Package Newtonsoft.Json
我建立了一个控制台程序:
运行结果:
代码:
Imports Newtonsoft.Json.Linq
Module Module1
Sub Main()
Dim js As JObject
Dim JsonStr As String
JsonStr = "{""desc"":""成功"",""dataa"":{""maxPage"":43522,""ppiUsername"":""谢文泽""}}"
js = JObject.Parse(JsonStr)
MsgBox(js.SelectToken("dataa").SelectToken("ppiUsername"))
End Sub
End Module
使用scriptcontrol的话也是一样。添加引用到解决方案:
结果: