(PureBasic) 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 PureBasic Module Download Chilkat PureBasic Module

IncludeFile "CkJsonObject.pb"

Procedure ChilkatExample()

    json.i = CkJsonObject::ckCreate()
    If json.i = 0
        Debug "Failed to create object."
        ProcedureReturn
    EndIf

    CkJsonObject::setCkEmitCompact(json, 0)

    ; 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.i = CkJsonObject::ckLoadFile(json,"qa_data/json/people.json")
    ; Assume success..

    ; Swap the positions of Jon and Sara.
    index1.i = CkJsonObject::ckIndexOf(json,"Jon")
    index2.i = CkJsonObject::ckIndexOf(json,"Sara")
    CkJsonObject::ckSwap(json,index1,index2)

    ; We have this now:
    Debug CkJsonObject::ckEmit(json)

    ; {
    ;   "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:
    jsonSara.i = CkJsonObject::ckObjectOf(json,"Sara")
    index1 = CkJsonObject::ckIndexOf(jsonSara,"DOB")
    index2 = CkJsonObject::ckIndexOf(jsonSara,"country")
    CkJsonObject::ckSwap(jsonSara,index1,index2)
    CkJsonObject::ckDispose(jsonSara)

    ; We now have this:
    Debug CkJsonObject::ckEmit(json)

    ; {
    ;   "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"
    ;   }
    ; }


    CkJsonObject::ckDispose(json)


    ProcedureReturn
EndProcedure