B4X Requires Chilkat v11.0.0+

Swap JSON Objects

See more JSON Examples

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

Dim success As Boolean = False

Dim json As ChilkatJsonObject
json.Initialize
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"
'    }
'  }

success = json.LoadFile("qa_data/json/people.json")
If success = False Then
    Log(json.LastErrorText)
    Return
End If


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

'  We have this now:
Log(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 ChilkatJsonObject
jsonSara.Initialize
json.ObjectOf2("Sara", jsonSara)

index1 = jsonSara.IndexOf("DOB")
index2 = jsonSara.IndexOf("country")
jsonSara.Swap(index1, index2)

'  We now have this:
Log(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"
'    }
'  }