(Xojo Plugin) 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.

Chilkat Xojo Plugin Download Xojo Plugin for Windows, Linux, Mac OS X, and ARM, ARM64

// Batch 1 File
Dim a1 As String
a1 = "{""payload"": {""Orders"": [{""AmazonOrderId"": ""1"",""OrderStatus"": ""Unshipped""},{""AmazonOrderId"": ""2"",""OrderStatus"": ""Unshipped""}]}"

// Batch 2 File
Dim a2 As String
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"}]}

Dim success As Boolean
success = True
Dim json1 As New Chilkat.JsonObject
success = json1.Load(a1)

Dim json2 As New Chilkat.JsonObject
success = json2.Load(a2)

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

Dim i As Int32
i = 0
Dim numOrders As Int32
numOrders = jarr2.Size
While (i < numOrders)
    Dim jOrder As Chilkat.JsonObject
    jOrder = jarr2.ObjectAt(i)
    // Assuming non-null return...
    success = jarr1.AddObjectCopyAt(-1,jOrder)
    i = i + 1
Wend

// Show the merged JSON.
json1.EmitCompact = False
System.DebugLog(json1.Emit())

// Result:

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