PowerBuilder

Copy JSON Object from one JSON Array to Another

See more JSON Examples

Demonstrates how to copy an object in a JSON array to another JSON array. PowerBuilder

integer li_rc
oleobject loo_Arr1
oleobject loo_Arr2
string s
string ls_SEmpty
oleobject loo_JObj

loo_Arr1 = create oleobject
li_rc = loo_Arr1.ConnectToNewObject("Chilkat.JsonArray")
if li_rc < 0 then
    destroy loo_Arr1
    MessageBox("Error","Connecting to COM object failed")
    return
end if
loo_Arr2 = create oleobject
li_rc = loo_Arr2.ConnectToNewObject("Chilkat.JsonArray")

s = "[{~"a~":1}, {~"b~":2}, {~"c~":3}]"
ls_SEmpty = "[]"

loo_Arr1.Load(s)
loo_Arr2.Load(ls_SEmpty)

loo_JObj = create oleobject
li_rc = loo_JObj.ConnectToNewObject("Chilkat.JsonObject")

loo_Arr1.ObjectAt2(1,loo_JObj)

loo_Arr2.AddObjectCopyAt(-1,loo_JObj)

Write-Debug loo_Arr2.Emit()

// output is:   [{"b":2}]


destroy loo_Arr1
destroy loo_Arr2
destroy loo_JObj