(VB.NET) 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 .NET Downloads Chilkat .NET Framework Chilkat for .NET Core

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

' Batch 2 File
Dim a2 As String = "{""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 = True
Dim json1 As New Chilkat.JsonObject
json1.Load(a1)

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

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

Dim i As Integer = 0
Dim numOrders As Integer = jarr2.Size
While (i < numOrders)
    Dim jOrder As Chilkat.JsonObject = jarr2.ObjectAt(i)
    ' Assuming non-null return...
    jarr1.AddObjectCopyAt(-1,jOrder)
    i = i + 1
End While

' Show the merged JSON.
json1.EmitCompact = False
Debug.WriteLine(json1.Emit())

' Result:

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