PureBasic

Create JSON Array of Strings

See more JSON Examples

Demonstrates how to create a JSON array of strings. PureBasic

IncludeFile "CkJsonArray.pb"

Procedure ChilkatExample()

    ; The goal of this example is to produce this:

    ; [
    ;   "tag1",
    ;   "tag2",
    ;   "tag3"
    ; ]

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

    CkJsonArray::ckAddStringAt(jarr,-1,"tag1")
    CkJsonArray::ckAddStringAt(jarr,-1,"tag2")
    CkJsonArray::ckAddStringAt(jarr,-1,"tag3")

    CkJsonArray::setCkEmitCompact(jarr, 0)
    Debug CkJsonArray::ckEmit(jarr)


    CkJsonArray::ckDispose(jarr)


    ProcedureReturn
EndProcedure