(VBScript) Create a JSON Array Containing an Object

Creates a top-level JSON array containing an object.

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

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

' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.JsonArray")
set jArray = CreateObject("Chilkat.JsonArray")
success = jArray.AddObjectAt(0)
' json is a Chilkat.JsonObject
Set json = jArray.ObjectAt(0)

success = json.UpdateString("groupId","")
success = json.UpdateString("sku","")
success = json.UpdateString("title","")
success = json.UpdateString("barcode","")
success = json.UpdateString("category","")
success = json.UpdateString("description","")
success = json.UpdateString("images[0]","url1")
success = json.UpdateString("images[1]","url...")
success = json.UpdateString("isbn","")
success = json.UpdateString("link","")
success = json.UpdateString("linkLomadee","")
success = json.UpdateString("prices[0].type","")
success = json.UpdateNumber("prices[0].price","0")
success = json.UpdateNumber("prices[0].priceLomadee","0")
success = json.UpdateNumber("prices[0].priceCpa","0")
success = json.UpdateNumber("prices[0].installment","0")
success = json.UpdateNumber("prices[0].installmentValue","0")
success = json.UpdateString("productAttributes.""Atributo 1""","Valor 1")
success = json.UpdateString("productAttributes.""Atributo ...""","Valor ...")
success = json.UpdateString("technicalSpecification.""Especificação 1""","Valor")
success = json.UpdateString("technicalSpecification.""Especificação ...""","Valor ...")
success = json.UpdateNumber("quantity","0")
success = json.UpdateNumber("sizeHeight","0")
success = json.UpdateNumber("sizeLength","0")
success = json.UpdateNumber("sizeWidth","0")
success = json.UpdateNumber("weightValue","0")
success = json.UpdateNumber("declaredPrice","0")
success = json.UpdateNumber("handlingTimeDays","0")
success = json.UpdateBool("marketplace",0)
success = json.UpdateString("marketplaceName","")

jArray.EmitCompact = 0
outFile.WriteLine(jArray.Emit())

' The output of this program is:

' [
'   {
'     "groupId": "",
'     "sku": "",
'     "title": "",
'     "barcode": "",
'     "category": "",
'     "description": "",
'     "images": [
'       "url1",
'       "url..."
'     ],
'     "isbn": "",
'     "link": "",
'     "linkLomadee": "",
'     "prices": [
'       {
'         "type": "",
'         "price": 0,
'         "priceLomadee": 0,
'         "priceCpa": 0,
'         "installment": 0,
'         "installmentValue": 0
'       }
'     ],
'     "productAttributes": {
'       "Atributo 1": "Valor 1",
'       "Atributo ...": "Valor ..."
'     },
'     "technicalSpecification": {
'       "Especificação 1": "Valor",
'       "Especificação ...": "Valor ..."
'     },
'     "quantity": 0,
'     "sizeHeight": 0,
'     "sizeLength": 0,
'     "sizeWidth": 0,
'     "weightValue": 0,
'     "declaredPrice": 0,
'     "handlingTimeDays": 0,
'     "marketplace": false,
'     "marketplaceName": ""
'   }
' ]

outFile.Close