json - 数组的大小 excel - json vba 解析器

Question

我正在使用 vba json 解析器:https://github.com/VBA-tools/VBA-JSON。我想遍历 B 数组中的元素，但我不确定如何执行此操作。例如

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

如果你想取回 B 中的元素数量，你该怎么做？

您可以通过执行以下操作取回实际值: Json("a")

Answer 1

源 vba-json 状态的文档:

parse JSON and create Dictionary/Collection

因此，您将取回其中一个对象。这似乎有效:

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

Json 示例中的“b”返回一个集合，但对于“c”，您将返回一个字典。