how two get key name using json object?

[qtbhappy]

hi, suppose we have a json string like jsonstr="{"customer":[{"name":"mary", "level":5},{"name":"peter", "level":6}]}"
after converted to json object in vba, I wonder how to get key names, such as name, level?

[timhall]

You can get the keys/items for objects with the following:

Dim Parsed As Dictionary
Set Parsed = JsonConverter.ParseJson(jsonstr)

Parsed.Keys ' => Array("customer")
Parsed("customer")(1).Keys ' => Array("name", "level")
Parsed("customer")(1).Items ' => Array("mary", 5)
Parsed("customer")(2).Keys ' => Array("name", "level")
Parsed("customer")(2).Items ' => Array("peter", 6)

Dim Key As Variant
'          ^ Need Variant/Object for For Each

For Each Key in Parsed("customer")(1).Keys
    Debug.Print Key
Next Key
' -> name
'    level

[qtbhappy]

great，thank you very much