(VB.NET UWP/WinRT) Iterate JSON where Member Names are Data Values

Demonstrates how to parse JSON where member names are not keywords, but instead are data values.

Chilkat Universal Windows Platform (UWP) / WinRT Downloads Chilkat for the Universal Windows Platform (UWP)

Dim json As New Chilkat.JsonObject

Dim success As Boolean = json.LoadFile("qa_data/json/valuesAsNames.json")

' Imagine we have JSON such as the following:

' {
'   "1680": {
'     "entity_id": "1680",
'     "type_id": "simple",
'     "sku": "123"
'   },
'   "1701": {
'     "entity_id": "1701",
'     "type_id": "simple",
'     "sku": "456"
'   }
' }
' 

' This presents a parsing problem because the member names, such as "1680"
' are not keywords.  Instead they are data values.  We don't know what they
' may be in advance.  


' To solve, we iterate over the members, get the name of each, ...
Dim numMembers As Integer = json.Size
Dim i As Integer
For i = 0 To numMembers - 1

    Dim name As String = json.NameAt(i)

    Debug.WriteLine(name & ":")
    Dim jRecord As Chilkat.JsonObject = json.ObjectAt(i)

    Debug.WriteLine("entity_id: " & jRecord.StringOf("entity_id"))
    Debug.WriteLine("type_id: " & jRecord.StringOf("type_id"))
    Debug.WriteLine("sku: " & jRecord.StringOf("sku"))



Next