如下,要解析的字符串:
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
D