VBScript

Merge SP-API JSON Order Arrays

See more Amazon SP-API Examples

Demonstrates how to merge JSON arrays for the case of Amazon SP-API orders. VBScript

Dim fso, outFile
Set fso = CreateObject("Scripting.FileSystemObject")
'Create a Unicode (utf-16) output text file.
Set outFile = fso.CreateTextFile("output.txt", True, True)

success = 0

' Batch 1 File
a1 = "{""payload"": {""Orders"": [{""AmazonOrderId"": ""1"",""OrderStatus"": ""Unshipped""},{""AmazonOrderId"": ""2"",""OrderStatus"": ""Unshipped""}]}"

' Batch 2 File
a2 = "{""payload"": {""Orders"": [{""AmazonOrderId"": ""3"",""OrderStatus"": ""Unshipped""},{""AmazonOrderId"": ""4"",""OrderStatus"": ""Unshipped""}]}"

' Required Merged File
' {"payload": {"Orders": [{"AmazonOrderId": "1","OrderStatus": "Unshipped"},{"AmazonOrderId": "2","OrderStatus": "Unshipped"},{"AmazonOrderId": "3","OrderStatus": "Unshipped"},{"AmazonOrderId": "4","OrderStatus": "Unshipped"}]}

success = 1
set json1 = CreateObject("Chilkat.JsonObject")
success = json1.Load(a1)

set json2 = CreateObject("Chilkat.JsonObject")
success = json2.Load(a2)

' We're going to add the order records from json2 to json1.
' jarr1 is a Chilkat.JsonArray
Set jarr1 = json1.ArrayOf("payload.Orders")
' jarr2 is a Chilkat.JsonArray
Set jarr2 = json2.ArrayOf("payload.Orders")

i = 0
numOrders = jarr2.Size
Do While (i < numOrders)
    ' jOrder is a Chilkat.JsonObject
    Set jOrder = jarr2.ObjectAt(i)
    ' Assuming non-null return...
    success = jarr1.AddObjectCopyAt(-1,jOrder)
    i = i + 1
Loop

' Show the merged JSON.
json1.EmitCompact = 0
outFile.WriteLine(json1.Emit())

' Result:

' {
'   "payload": {
'     "Orders": [
'       {
'         "AmazonOrderId": "1",
'         "OrderStatus": "Unshipped"
'       },
'       {
'         "AmazonOrderId": "2",
'         "OrderStatus": "Unshipped"
'       },
'       {
'         "AmazonOrderId": "3",
'         "OrderStatus": "Unshipped"
'       },
'       {
'         "AmazonOrderId": "4",
'         "OrderStatus": "Unshipped"
'       }
'     ]
'   }
' }

outFile.Close