Como analisar filhos Json em VB.NET Newtonsoft
Eu estou tendo problema para analisar Json usando VB.NET usando a biblioteca Newtonsoft Json.Net
Json Data
---------
{
"CC": "[email protected]",
"CcFull": [
{
"Email": "[email protected]",
"Name": "John Sample"
},
{
"Email": "[email protected]",
"Name": "Mike Sample"
}
],
"FromFull" : {
"Email": "[email protected]",
"Name": "John Doe"
}
}
Eu posso conseguir um JObject válido assim:
Dim o As JObject = JObject.Parse(strJson)
Então eu posso obter uma lista de um JTokens e iterar através deles e obter facilmente os valores do item raiz - mas como obter os registros do Child para o 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
Parece que eu poderia usar um JArray ou analisar o item.value - mas a sintaxe me escapa.
Eu não quero configurar um modelo inteiro fortemente tipado em VB e fazer um deserialze automático - prefiro mais como a maneira dinâmica de fazê-lo em C # - ou preferivelmente apenas iterar em n filhos para o nó CcFull e arrancar os valores para e-mail e Nome e colocá-los em uma lista genérica.
Parece que não há bons exemplos de VB.NET em SO ou por Googling.
O C # tem maneiras totalmente simples de fazer isso - mas estou preso no VB.NET para este projeto.
Obrigado pessoal