Question

我正在使用vba json解析器：https://github.com/VBA-tools/VBA-JSON。我想循环遍历<div class="wrapper" > <div class="header"> <div class="logo1">Logo</div> </div> </div>数组中的元素，但我不确定如何执行此操作。 e.g。

如果你想在Set Json = JsonConverter.ParseJSON("{""a"":123,""b"":[1,2,3,4],""c"":{""d"":456}}")中取回元素的数量，你怎么做？

您可以通过执行以下操作来获取实际值：B

Answer 1

来源vba-json州的文档：

解析JSON并创建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”，您将返回一个字典。

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

1 个答案: