VBA-JSON创建嵌套对象 [英] VBA-JSON Create nested objects

问题描述

我已经看到了很多示例，这些示例显示了如何使用VBA-JSON解析JSON字符串，但是我想知道如何使用该库从头开始创建JSON对象.

I have seen a lot of examples showing how to parse json strings with VBA-JSON, however I would like to know how to create a JSON object from scratch using this library.

我从开始:

Set Json = JsonConverter.ParseJson("{}")
Json("key") = "value"

这按预期工作.

但是，如果要创建一个嵌套对象，例如:

However, if I want to create a nested object, for example:

Json("new_key")(1)("value") = 1
Json("new_key")(2)("foo") = "bar"

不输出预期值:{"new_key":[{"value": 1}, {"foo": "bar"}]}

这个库可以实现吗?还是有另一种方法?

Is this possible to achieve with this library? Or is there another way to do it?

谢谢

推荐答案

您可以在VBA中使用Dictionary and Collection. 之后，将它们转换为Json. 这是一个例子:

You can use Dictionary and Collection in VBA. After that convert them to Json. This is an example:

Sub test()
    Dim c As Collection
    Dim d As Dictionary
    Dim e As Dictionary
    Dim f As Dictionary
    Dim json As String

    Set c = New Collection
    Set d = New Dictionary
    Set e = New Dictionary
    Set f = New Dictionary

    d.Add "value", 1
    e.Add "foo", "bar"
    c.Add d
    c.Add e
    f.Add "new_key", c

    json = JsonConverter.ConvertToJson(ByVal f)

    Debug.Print json
End Sub

这是输出:

{"new_key":[{"value":1},{"foo":"bar"}]}

这篇关于VBA-JSON创建嵌套对象的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！