英文:

Format Adjustment for VBA-WEB dictionary to JSON Body

问题 {#heading}

{
  "applicationId": "customsHub",
  "exportAsContentType": "NOT_ZIPPED_SINGLE",
  "documents": 
  {
    "documentIds": 
    [
      {
        "documentId": "491e2229-471a-4b18-907a-0e25a312e5a7"
      }
    ]
  }
}

英文:

I asked a question before, but I didn't ask it well... so after I did some more homework I realised I need help with the conversion of VBA dictionary into a specific JSON format to be sent as the Body of an API POST query.

Here is what I have:

Dim Body As New Dictionary
Body.Add "applicationId", "customsHub"
Body.Add "exportAsContentType", "NOT_ZIPPED_SINGLE"
Body.Add "documents", New Dictionary
With Body("documents")
.Add "documentIds", New Dictionary
With Body("documents")("documentIds")
.Add "documentId", "491e2229-471a-4b18-907a-0e25a312e5a7"
End With

End With

Output:

{
  "applicationId": "customsHub",
  "exportAsContentType": "NOT_ZIPPED_SINGLE",
  "documents": {
    "documentIds": {
      "documentId": "491e2229-471a-4b18-907a-0e25a312e5a7"
    }
  }

What I need to get -

{
  "applicationId": "customsHub",
  "exportAsContentType": "NOT_ZIPPED_SINGLE",
  "documents": 
  {
    "documentIds": 
    [
      {
        "documentId": "491e2229-471a-4b18-907a-0e25a312e5a7"
      }
    ]
  }
}

How do I add this nested array as part of the VBA dictionary pre-conversion?

答案1 {#1}

得分: 1

在Json中，"[]"字符表示一个数组。因此，你应该在一个数组内创建最后一个New Dictionary：

Sub createDict_REturnJson()
  Dim Body As New scripting.Dictionary
Body.Add "applicationId", "customsHub"
Body.Add "exportAsContentType", "NOT_ZIPPED_SINGLE"
Body.Add "documents", New scripting.Dictionary
With Body("documents")
.Add "documentIds", Array(New scripting.Dictionary) '将字典放入一个数组中
With Body("documents")("documentIds")(0) '将项放置在数组的第一个元素中：
.Add "documentId", "491e2229-471a-4b18-907a-0e25a312e5a7"
End With

End With
Dim Json As String '用于测试输出： Json = JsonConverter.ConvertToJson(Body, 2) '假设你使用JsonConverter模块... Debug.Print Json End Sub

为了更好地理解，你可以用下面的代码替换这部分：

  With Body("documents")
    .Add "documentIds", Array(New scripting.Dictionary) '将字典放入一个数组中
With Body("documents")("documentIds")(0) '将项放置在数组的第一个元素中：
  .Add "documentId", "491e2229-471a-4b18-907a-0e25a312e5a7"
End With    

End With

使用下面的代码替代，将两个字典添加到数组中，第一个字典包含两个键（IDs），第二个字典仅包含一个键（仅用于教学目的...）：

  With Body("documents")
    .Add "documentIds", Array(New scripting.Dictionary, New scripting.Dictionary) '将两个字典放入数组中
With Body("documents")("documentIds")(0)
    .Add "documentId", "491e2229-471a-4b18-907a-0e25a312e5a7" '第一个字典的第一个键
    .Add "documentId2", "testID2" '第一个字典的第二个键
End With
Body("documents")("documentIds")(1).Add "DocumentID3", "TestID3" '第二个字典的第一个（单一）键...

End With

英文:

"[]" characters in Json means an array. So you should create the last New Dictionary inside an array:

Sub createDict_REturnJson()
  Dim Body As New scripting.Dictionary
Body.Add "applicationId", "customsHub"
Body.Add "exportAsContentType", "NOT_ZIPPED_SINGLE"
Body.Add "documents", New scripting.Dictionary
With Body("documents")
.Add "documentIds", Array(New scripting.Dictionary) 'place the dictionary in an array
With Body("documents")("documentIds")(0) 'place the item as the array first element:
.Add "documentId", "491e2229-471a-4b18-907a-0e25a312e5a7"
End With

End With
Dim Json As String ' to test the output: Json = JsonConverter.ConvertToJson(Body, 2) 'supposing that you use JsonConverter module... Debug.Print Json End Sub

To better catch the idea you can replace this part:

  With Body("documents")
    .Add "documentIds", Array(New scripting.Dictionary) 'place the dictionary in an array
With Body("documents")("documentIds")(0) 'place the item as the array first element:
  .Add "documentId", "491e2229-471a-4b18-907a-0e25a312e5a7"
End With    

End With

with the next one, adding two dictionaries in the array, the first one keeping two keys (IDs) and the second one only one (only for didactic purpose...):

  With Body("documents")
    .Add "documentIds", Array(New scripting.Dictionary, New scripting.Dictionary) 'placing two dictionaries in the array
With Body("documents")("documentIds")(0)
    .Add "documentId", "491e2229-471a-4b18-907a-0e25a312e5a7" 'first dictionary first key
    .Add "documentId2", "testID2" 'first dictionary second key
End With
Body("documents")("documentIds")(1).Add "DocumentID3", "TestID3" 'second dictionary first (single) key...

End With