Como ler subitem de um array em JSON usando VB.NET - VBA

Para ler subitens de um array em JSON usando VB.NET ou VBA, você precisará seguir os seguintes passos:

1. Primeiro, você precisa carregar o arquivo JSON em sua memória. Use a biblioteca JSON.NET para isso:

Dim json As String = "{""name"":""John Smith"",""age"":30,""city"":""New York"",""phone"":[""212-555-1234"",""646-555-4567""]}"

Dim jObj As JObject = JObject.Parse(json)

2. Em seguida, você pode acessar os subitens do array lendo as propriedades do objeto JSON. Por exemplo, para ler o subitem "phone" do exemplo acima, use o seguinte código:

Dim phones As JArray = jObj.Item("phone")

For Each phone As JToken In phones
    Console.WriteLine(phone.ToString())
Next

Este código itera sobre cada item do array "phone" e imprime o resultado no console.

3. Você também pode acessar subitens de objetos aninhados. Suponha que o JSON tenha a seguinte estrutura:

{
    "name": "John Smith",
    "age": 30,
    "city": "New York",
    "phone": [
        {
            "type": "home",
            "number": "212-555-1234"
        },
        {
            "type": "office",
            "number": "646-555-4567"
        }
    ]
}

Para ler o subitem "number" do primeiro item do array "phone", use o seguinte código:

Dim phones As JArray = jObj.Item("phone")

Dim firstPhone As JObject = phones(0)
Dim number As JToken = firstPhone.Item("number")

Console.WriteLine(number.ToString())

Este código imprime "212-555-1234" no console.

Com essas técnicas, você pode ler subitens de arrays em JSON de maneira fácil e eficiente usando VB.NET ou VBA.