Excel数组的大小-JSON VBA解析器

Question

I am using a vba json parser : https://github.com/VBA-tools/VBA-JSON . I want to loop over the elements in the B array but I am unsure how to do this. eg

Set Json = JsonConverter.ParseJSON("{""a"":123,""b"":[1,2,3,4],""c"":{""d"":456}}")

If you want to get back the number of elements in B how do you do this?

You get back the actual value by doing the following : Json("a")

Answer 1

The docs for the source vba-json state:

parse JSON and create Dictionary/Collection

So you will get back one of those objects. This seems to work:

Sub testJson()

Dim Json As Object
Set Json = JsonConverter.ParseJson("{""a"":123,""b"":[1,2,3,4],""c"":{""d"":456}}")

Debug.Print Json("a") ' -> 123
Debug.Print Json("b")(2) ' -> 2
Debug.Print Json("c")("d") ' -> 456
Json("c")("e") = 789

Dim var As Object
    ' Get the object from Json
    Set var = Json("b")
    ' Both Dictionary and Collection support the Count property
    Debug.Print var.Count

Dim elem As Variant
    For Each elem In var
        Debug.Print elem
    Next elem

Debug.Print JsonConverter.ConvertToJson(Json)
' -> "{""a"":123,""b"":[1,2,3,4],""c"":{""d"":456,""e"":789}}"

End Sub

The "b" in the Json example returns a collection but for "c" you would get back a dictionary.