JSON.Add in Loops

[alexvremja]

Hi! I need to build such json payload: { "items": [ { "barcode": "AP108016035NL", "destination_country_code": "DE", "sender_reference": "hans001" }, { "barcode": "AP108016049NL", "destination_country_code": "FR", "sender_reference": "philippe002" }, { "barcode": "AP108016052NL", "destination_country_code": "ES", "sender_reference": "angel003" } ] }

surely there is a better solution but so far I built the following routine :

`barcodes=Array("AP108016035NL|DE|hans001","AP208016049NL|FR|philippe002","AP309145987NL|ES|angel003") Response.LCID = 1040 Set JSON= New JSONObject Set JSONB= New JSONObject Set JSONA= New JSONArray

for each barcode in barcodes bcA=split(barcode,"|") JSON.change "barcode",bcA(0) JSON.change "destination_country_code",bcA(1) JSON.change "sender_reference", bcA(2) 'JSON.write JSONA.push JSON 'response.write "
"&bca(0) next JSONB.add "items", JSONA JSONB.write`

the problem is that the result contains 3 times the latest data: {"items":[{"barcode":"AP309145987NL","destination_country_code":"ES","sender_reference":"angel003"},{"barcode":"AP309145987NL","destination_country_code":"ES","sender_reference":"angel003"},{"barcode":"AP309145987NL","destination_country_code":"ES","sender_reference":"angel003"}]}

I made many tests with JSONObject and JSONArray, but haven't find the solution. can pls suggest a solution? thanks

[rcdmk]

Hi. You almost got it. What you need to do is create a new instance of JSONObject for each loop iteration:

For Each barcode In barcodes
    bcA = Split(barcode, "|")
    JSON = New JSONObject
    JSON.Add "barcode", bcA(0)
    JSON.Add "destination_country_code", bcA(1)
    JSON.Add "sender_reference", bcA(2)
    JSONA.Push JSON
Next

JSONA.Write

Bests!

[alexvremja]

Works like a charm..

Thanks a lot!