如何解析JSON儿童VB.NET Newtonsoft

Question

我有touble使用VB.NET使用Newtonsoft Json.Net库

Json Data 
    --------- 
    { 
     "CC": "sample.cc@emailDomain.com", 
     "CcFull": [ 
      { 
       "Email": "sample.cc@emailDomain.com", 
       "Name": "John Sample" 
      }, 
      { 
       "Email": "another.cc@emailDomain.com", 
       "Name": "Mike Sample" 
      } 
     ], 
     "FromFull" : { 
      "Email": "myUser@theirDomain.com", 
      "Name": "John Doe" 
     } 
    } 

解析JSON

我能得到这样一个有效的JObject：

Dim o As JObject = JObject.Parse(strJson) 

然后我可以得到一个JTokens列表并遍历它们并轻松获取根项目值 - 但是如何让Child为CcFull记录？

Dim results As List(Of JToken) = o.Children().ToList 
    For Each item As JProperty In results 
     item.CreateReader() 
     Select Case item.Name 
      Case "CC" 
       dim strCC = item.Value.ToString 
      Case "CcFull" 
       'This has children (Email and Name) 

     End Select 
    Next 

看来我可能会使用JArray或解析item.value - 但语法避开了我。

我不想在VB中设置一个完整的强类型模型，并执行一个自动反序列化 - 更喜欢在C＃中使用动态方法 - 或者最好只是为nCcull节点迭代n个子项并拔出电子邮件和名称的值，并将其放入通用列表中。

似乎在SO或Google上没有好的VB.NET示例。

C＃有完全简单的方法来做到这一点 - 但我被困在这个项目的VB.NET中。

感谢乡亲

Answer 1

我在JSON.Net的LINQ到JSON执行方面的专家，但是这个工作对我来说。

你几乎都在那里。您需要做的只是在对象模型中进一步钻取。

Dim results As List(Of JToken) = o.Children().ToList 
For Each item As JProperty In results 
    item.CreateReader() 
    Select Case item.Name 
     Case "CC" 
      Dim strCC = item.Value.ToString 
     Case "CcFull" 
      Dim strEmail As String 
      Dim strName As String 

      For Each subitem As JObject In item.Values 
       strEmail = subitem("Email") 
       strName = subitem("Name") 
      Next 
    End Select 
Next 

您从结果列表中获得的项目具有子项，如您所述。该子项具有一系列值 - 数组由JSON字符串中的括号表示。 Values方法是一个IEnumerable方法，所以我们可以迭代它，从每次迭代中接收一个JObject。该对象表示CcFull数组中的单个条目。然后可以使用该属性名称作为索引来检索该属性的值。