使用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