使用JSON.NET分离JSON对象（vb）

Question

我无法分离JSON对象的各个部分。 json字符串里面有3个对象。一个叫做“JSONData”，我需要把它分解成它自己的对象。我尝试了很多我开始失去信心的事情。下面是其中两项似乎最有用的内容。但是，它们都是空的。没有错误，只是空的。希望有人可以帮助！

Dim j As String = JsonConvert.SerializeXmlNode(xml) 'Started out as XML 
Dim o As JObject = JsonConvert.DeserializeObject(j) 'Then Json String to JObject 
Dim channel As JObject = DirectCast(o("JSONData"), JObject) 'Try #1 to separate 
'/// or 
Dim jsondata As String = o.Item("JSONData") 'Try #2 
'/// i have tried both above with ("IMSXMLLog.JSONData") as well. Same Result. 

https://jsfiddle.net/jharris8567/v23kj42v/ - 全JSON

Answer 1

JSONData是另一个对象IMSXMLLog里面，所以你倾向使用路径IMSXMLLog.JSONData是正确的。但是，JToken上的索引器不支持路径，只有单个属性名称。要使用路径语法，你需要使用SelectToken方法：

Dim data as JObject = DirectCast(o.SelectToken("IMSXMLLog.JSONData"), JObject) 

小提琴：https://dotnetfiddle.net/Wu70Tu