VB.NET

JSON Copy Objects

See more JSON Examples

Copy objects from one JSON document to another. VB.NET

Dim json1 As New Chilkat.JsonObject
json1.UpdateString("ID1.cn","Name")
json1.UpdateString("ID1.objectGUID","GUID")
json1.UpdateString("ID2.cn","Name")
json1.UpdateString("ID2.objectGUID","GUID")

json1.EmitCompact = False
Debug.WriteLine(json1.Emit())

' json1 contains:
' {
'   "ID1": {
'     "cn": "Name",
'     "objectGUID": "GUID"
'   },
'   "ID2": {
'     "cn": "Name",
'     "objectGUID": "GUID"
'   }
' }

Dim json2 As New Chilkat.JsonObject
json2.UpdateString("Name1.ID1.cn","Name")
json2.UpdateString("Name1.ID1.objectGUID","GUID")
json2.UpdateString("Name1.ID2.cn","Name")
json2.UpdateString("Name1.ID2.objectGUID","GUID")
json2.UpdateString("Name2.ID3.cn","Name")
json2.UpdateString("Name2.ID3.objectGUID","GUID")

json2.EmitCompact = False
Debug.WriteLine(json2.Emit())

' {
'   "Name1": {
'     "ID1": {
'       "cn": "Name",
'       "objectGUID": "GUID"
'     },
'     "ID2": {
'       "cn": "Name",
'       "objectGUID": "GUID"
'     }
'   },
'   "Name2": {
'     "ID3": {
'       "cn": "Name",
'       "objectGUID": "GUID"
'     }
'   }
' }

' Copy Name1, Name2 into json1

Dim i As Integer = 0
Dim numMembers As Integer = json2.Size
While i < numMembers
    Dim jsonObj As Chilkat.JsonObject = json2.ObjectAt(i)
    json1.AppendObjectCopy(json2.NameAt(i),jsonObj)
    i = i + 1
End While

' Now see what json1 contains:
Debug.WriteLine(json1.Emit())

' {
'   "ID1": {
'     "cn": "Name",
'     "objectGUID": "GUID"
'   },
'   "ID2": {
'     "cn": "Name",
'     "objectGUID": "GUID"
'   },
'   "Name1": {
'     "ID1": {
'       "cn": "Name",
'       "objectGUID": "GUID"
'     },
'     "ID2": {
'       "cn": "Name",
'       "objectGUID": "GUID"
'     }
'   },
'   "Name2": {
'     "ID3": {
'       "cn": "Name",
'       "objectGUID": "GUID"
'     }
'   }
' }