(VB.NET) Swap JSON Objects

Demonstrates how to swap two JSON objects within a JSON document.

Note: This example requires Chilkat v9.5.0.76 or greater.

Chilkat .NET Downloads Chilkat .NET Framework Chilkat for .NET Core

Dim json As New Chilkat.JsonObject
json.EmitCompact = False

' Load the following JSON:

' {
'   "petter": {
'     "DOB": "26/02/1986",
'     "gender": "male",
'     "country": "US"
'   },
'   "Sara": {
'     "DOB": "13/05/1982",
'     "gender": "female",
'     "country": "FR"
'   },
'   "Jon": {
'     "DOB": "19/03/1984",
'     "gender": "male",
'     "country": "UK"
'   }
' }

Dim success As Boolean = json.LoadFile("qa_data/json/people.json")
' Assume success..

' Swap the positions of Jon and Sara.
Dim index1 As Integer = json.IndexOf("Jon")
Dim index2 As Integer = json.IndexOf("Sara")
json.Swap(index1,index2)

' We have this now:
Debug.WriteLine(json.Emit())

' {
'   "petter": {
'     "DOB": "26/02/1986",
'     "gender": "male",
'     "country": "US"
'   },
'   "Jon": {
'     "DOB": "19/03/1984",
'     "gender": "male",
'     "country": "UK"
'   },
'   "Sara": {
'     "DOB": "13/05/1982",
'     "gender": "female",
'     "country": "FR"
'   }
' }

' To swap an inner member:
Dim jsonSara As Chilkat.JsonObject = json.ObjectOf("Sara")
index1 = jsonSara.IndexOf("DOB")
index2 = jsonSara.IndexOf("country")
jsonSara.Swap(index1,index2)


' We now have this:
Debug.WriteLine(json.Emit())

' {
'   "petter": {
'     "DOB": "26/02/1986",
'     "gender": "male",
'     "country": "US"
'   },
'   "Jon": {
'     "DOB": "19/03/1984",
'     "gender": "male",
'     "country": "UK"
'   },
'   "Sara": {
'     "country": "FR",
'     "gender": "female",
'     "DOB": "13/05/1982"
'   }
' }