(PowerBuilder) Loading and Parsing a Complex JSON Array

This example loads a JSON array containing more complex data. It shows how to parse (access) various values contained within the JSON.

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

integer li_rc
oleobject loo_Sb
integer li_BCrlf
oleobject loo_JsonArray
integer li_Success
integer li_NumRecords
integer i
oleobject loo_JsonRecord
integer li_NumTelefones
integer j
integer li_NumContatos
integer k
integer li_NumEmails

// This is the JSON we'll be loading:

// 	[
// 	  {
// 	    "telefones": [
// 	      {
// 	        "numero": "19995555555",
// 	        "tipo": "T",
// 	        "id": 2541437
// 	      } 
// 	    ],
// 	    "cnpj": "11395551000164",
// 	    "rua": "R XAVIER AUGUSTO ROGGE, 22",
// 	    "complemento": "",
// 	    "contatos": [
// 	    ],
// 	    "tipo": "J",
// 	    "razao_social": "SOUP BRASIL LTDA - ME",
// 	    "nome_fantasia": "SOUP BRASIL",
// 	    "bairro": "ABC DOS COLIBRIS",
// 	    "cidade": "TEST",
// 	    "inscricao_estadual": "222.102.222.116",
// 	    "observacao": "",
// 	    "id": 2209595,
// 	    "ultima_alteracao": "2016-12-26 16:22:34",
// 	    "cep": "13555000",
// 	    "suframa": "",
// 	    "estado": "SP",
// 	    "emails": [
// 	      {
// 	        "email": "somebody@terra.com.br",
// 	        "tipo": "T",
// 	        "id": 1065557
// 	      } 
// 	    ],
// 	    "excluido": false
// 	  },
// 	  {
// 	    "telefones": [
// 	    ],
// 	    "cnpj": "12496555500180",
// 	    "rua": "AV ROLF WIEST, 100",
// 	    "complemento": "ANDAR 7 SALA 612 A 620",
// 	    "contatos": [
// 	    ],
// 	    "tipo": "J",
// 	    "razao_social": "SIMPLE SOFTWARE LTDA",
// 	    "nome_fantasia": "",
// 	    "bairro": "DOM ZETIRO",
// 	    "cidade": "APARTVILLE",
// 	    "inscricao_estadual": "",
// 	    "observacao": "",
// 	    "id": 2255594,
// 	    "ultima_alteracao": "2016-12-26 16:28:31",
// 	    "cep": "89255505",
// 	    "suframa": "",
// 	    "estado": "SC",
// 	    "emails": [
// 	    ],
// 	    "excluido": false
// 	  },
// 	  {
// 	    "telefones": [
// 	      {
// 	        "numero": "1938655556",
// 	        "tipo": "T",
// 	        "id": 2555438
// 	      } 
// 	    ],
// 	    "cnpj": "00003555500153",
// 	    "rua": "AV ABCDEF PINTO CATAO, 18",
// 	    "complemento": "",
// 	    "contatos": [
// 	      {
// 	        "telefones": [
// 	          {
// 	            "numero": "1999655554",
// 	            "tipo": "T",
// 	            "id": 2555559
// 	          } 
// 	        ],
// 	        "cargo": "zzz de compras",
// 	        "nome": "Gerard",
// 	        "emails": [
// 	          {
// 	            "email": "gerard@terra.com.br",
// 	            "tipo": "T",
// 	            "id": 1065559
// 	          } 
// 	        ],
// 	        "id": 844485,
// 	        "excluido": false
// 	      } 
// 	    ],
// 	    "tipo": "J",
// 	    "razao_social": "TIDY TECNOLOGIA LTDA - EPP",
// 	    "nome_fantasia": "TIDY",
// 	    "bairro": "TUNA",
// 	    "cidade": "JAGUAR",
// 	    "inscricao_estadual": "395.222.441.222",
// 	    "observacao": "ligar sempre depois das 14hs",
// 	    "id": 2255597,
// 	    "ultima_alteracao": "2016-12-28 07:31:52",
// 	    "cep": "13555500",
// 	    "suframa": "",
// 	    "estado": "SP",
// 	    "emails": [
// 	      {
// 	        "email": "xi@tidy.com.br",
// 	        "tipo": "T",
// 	        "id": 10655558
// 	      } 
// 	    ],
// 	    "excluido": false
// 	  } 
// 	]
// 

// Construct a StringBuilder containing the above JSON array.
loo_Sb = create oleobject
// Use "Chilkat_9_5_0.StringBuilder" for versions of Chilkat < 10.0.0
li_rc = loo_Sb.ConnectToNewObject("Chilkat.StringBuilder")
if li_rc < 0 then
    destroy loo_Sb
    MessageBox("Error","Connecting to COM object failed")
    return
end if
li_BCrlf = 1
loo_Sb.AppendLine("[",li_BCrlf)
loo_Sb.AppendLine("  {",li_BCrlf)
loo_Sb.AppendLine("    ~"telefones~": [",li_BCrlf)
loo_Sb.AppendLine("      {",li_BCrlf)
loo_Sb.AppendLine("        ~"numero~": ~"19995555555~",",li_BCrlf)
loo_Sb.AppendLine("        ~"tipo~": ~"T~",",li_BCrlf)
loo_Sb.AppendLine("        ~"id~": 2541437",li_BCrlf)
loo_Sb.AppendLine("      }",li_BCrlf)
loo_Sb.AppendLine("    ],",li_BCrlf)
loo_Sb.AppendLine("    ~"cnpj~": ~"11395551000164~",",li_BCrlf)
loo_Sb.AppendLine("    ~"rua~": ~"R XAVIER AUGUSTO ROGGE, 22~",",li_BCrlf)
loo_Sb.AppendLine("    ~"complemento~": ~"~",",li_BCrlf)
loo_Sb.AppendLine("    ~"contatos~": [",li_BCrlf)
loo_Sb.AppendLine("    ],",li_BCrlf)
loo_Sb.AppendLine("    ~"tipo~": ~"J~",",li_BCrlf)
loo_Sb.AppendLine("    ~"razao_social~": ~"SOUP BRASIL LTDA - ME~",",li_BCrlf)
loo_Sb.AppendLine("    ~"nome_fantasia~": ~"SOUP BRASIL~",",li_BCrlf)
loo_Sb.AppendLine("    ~"bairro~": ~"ABC DOS COLIBRIS~",",li_BCrlf)
loo_Sb.AppendLine("    ~"cidade~": ~"TEST~",",li_BCrlf)
loo_Sb.AppendLine("    ~"inscricao_estadual~": ~"222.102.222.116~",",li_BCrlf)
loo_Sb.AppendLine("    ~"observacao~": ~"~",",li_BCrlf)
loo_Sb.AppendLine("    ~"id~": 2209595,",li_BCrlf)
loo_Sb.AppendLine("    ~"ultima_alteracao~": ~"2016-12-26 16:22:34~",",li_BCrlf)
loo_Sb.AppendLine("    ~"cep~": ~"13555000~",",li_BCrlf)
loo_Sb.AppendLine("    ~"suframa~": ~"~",",li_BCrlf)
loo_Sb.AppendLine("    ~"estado~": ~"SP~",",li_BCrlf)
loo_Sb.AppendLine("    ~"emails~": [",li_BCrlf)
loo_Sb.AppendLine("      {",li_BCrlf)
loo_Sb.AppendLine("        ~"email~": ~"somebody@terra.com.br~",",li_BCrlf)
loo_Sb.AppendLine("        ~"tipo~": ~"T~",",li_BCrlf)
loo_Sb.AppendLine("        ~"id~": 1065557",li_BCrlf)
loo_Sb.AppendLine("      }",li_BCrlf)
loo_Sb.AppendLine("    ],",li_BCrlf)
loo_Sb.AppendLine("    ~"excluido~": false",li_BCrlf)
loo_Sb.AppendLine("  },",li_BCrlf)
loo_Sb.AppendLine("  {",li_BCrlf)
loo_Sb.AppendLine("    ~"telefones~": [",li_BCrlf)
loo_Sb.AppendLine("    ],",li_BCrlf)
loo_Sb.AppendLine("    ~"cnpj~": ~"12496555500180~",",li_BCrlf)
loo_Sb.AppendLine("    ~"rua~": ~"AV ROLF WIEST, 100~",",li_BCrlf)
loo_Sb.AppendLine("    ~"complemento~": ~"ANDAR 7 SALA 612 A 620~",",li_BCrlf)
loo_Sb.AppendLine("    ~"contatos~": [",li_BCrlf)
loo_Sb.AppendLine("    ],",li_BCrlf)
loo_Sb.AppendLine("    ~"tipo~": ~"J~",",li_BCrlf)
loo_Sb.AppendLine("    ~"razao_social~": ~"SIMPLE SOFTWARE LTDA~",",li_BCrlf)
loo_Sb.AppendLine("    ~"nome_fantasia~": ~"~",",li_BCrlf)
loo_Sb.AppendLine("    ~"bairro~": ~"DOM ZETIRO~",",li_BCrlf)
loo_Sb.AppendLine("    ~"cidade~": ~"APARTVILLE~",",li_BCrlf)
loo_Sb.AppendLine("    ~"inscricao_estadual~": ~"~",",li_BCrlf)
loo_Sb.AppendLine("    ~"observacao~": ~"~",",li_BCrlf)
loo_Sb.AppendLine("    ~"id~": 2255594,",li_BCrlf)
loo_Sb.AppendLine("    ~"ultima_alteracao~": ~"2016-12-26 16:28:31~",",li_BCrlf)
loo_Sb.AppendLine("    ~"cep~": ~"89255505~",",li_BCrlf)
loo_Sb.AppendLine("    ~"suframa~": ~"~",",li_BCrlf)
loo_Sb.AppendLine("    ~"estado~": ~"SC~",",li_BCrlf)
loo_Sb.AppendLine("    ~"emails~": [",li_BCrlf)
loo_Sb.AppendLine("    ],",li_BCrlf)
loo_Sb.AppendLine("    ~"excluido~": false",li_BCrlf)
loo_Sb.AppendLine("  },",li_BCrlf)
loo_Sb.AppendLine("  {",li_BCrlf)
loo_Sb.AppendLine("    ~"telefones~": [",li_BCrlf)
loo_Sb.AppendLine("      {",li_BCrlf)
loo_Sb.AppendLine("        ~"numero~": ~"1938655556~",",li_BCrlf)
loo_Sb.AppendLine("        ~"tipo~": ~"T~",",li_BCrlf)
loo_Sb.AppendLine("        ~"id~": 2555438",li_BCrlf)
loo_Sb.AppendLine("      }",li_BCrlf)
loo_Sb.AppendLine("    ],",li_BCrlf)
loo_Sb.AppendLine("    ~"cnpj~": ~"00003555500153~",",li_BCrlf)
loo_Sb.AppendLine("    ~"rua~": ~"AV ABCDEF PINTO CATAO, 18~",",li_BCrlf)
loo_Sb.AppendLine("    ~"complemento~": ~"~",",li_BCrlf)
loo_Sb.AppendLine("    ~"contatos~": [",li_BCrlf)
loo_Sb.AppendLine("      {",li_BCrlf)
loo_Sb.AppendLine("        ~"telefones~": [",li_BCrlf)
loo_Sb.AppendLine("          {",li_BCrlf)
loo_Sb.AppendLine("            ~"numero~": ~"1999655554~",",li_BCrlf)
loo_Sb.AppendLine("            ~"tipo~": ~"T~",",li_BCrlf)
loo_Sb.AppendLine("            ~"id~": 2555559",li_BCrlf)
loo_Sb.AppendLine("          }",li_BCrlf)
loo_Sb.AppendLine("        ],",li_BCrlf)
loo_Sb.AppendLine("        ~"cargo~": ~"zzz de compras~",",li_BCrlf)
loo_Sb.AppendLine("        ~"nome~": ~"Gerard~",",li_BCrlf)
loo_Sb.AppendLine("        ~"emails~": [",li_BCrlf)
loo_Sb.AppendLine("          {",li_BCrlf)
loo_Sb.AppendLine("            ~"email~": ~"gerard@terra.com.br~",",li_BCrlf)
loo_Sb.AppendLine("            ~"tipo~": ~"T~",",li_BCrlf)
loo_Sb.AppendLine("            ~"id~": 1065559",li_BCrlf)
loo_Sb.AppendLine("          }",li_BCrlf)
loo_Sb.AppendLine("        ],",li_BCrlf)
loo_Sb.AppendLine("        ~"id~": 844485,",li_BCrlf)
loo_Sb.AppendLine("        ~"excluido~": false",li_BCrlf)
loo_Sb.AppendLine("      }",li_BCrlf)
loo_Sb.AppendLine("    ],",li_BCrlf)
loo_Sb.AppendLine("    ~"tipo~": ~"J~",",li_BCrlf)
loo_Sb.AppendLine("    ~"razao_social~": ~"TIDY TECNOLOGIA LTDA - EPP~",",li_BCrlf)
loo_Sb.AppendLine("    ~"nome_fantasia~": ~"TIDY~",",li_BCrlf)
loo_Sb.AppendLine("    ~"bairro~": ~"TUNA~",",li_BCrlf)
loo_Sb.AppendLine("    ~"cidade~": ~"JAGUAR~",",li_BCrlf)
loo_Sb.AppendLine("    ~"inscricao_estadual~": ~"395.222.441.222~",",li_BCrlf)
loo_Sb.AppendLine("    ~"observacao~": ~"ligar sempre depois das 14hs~",",li_BCrlf)
loo_Sb.AppendLine("    ~"id~": 2255597,",li_BCrlf)
loo_Sb.AppendLine("    ~"ultima_alteracao~": ~"2016-12-28 07:31:52~",",li_BCrlf)
loo_Sb.AppendLine("    ~"cep~": ~"13555500~",",li_BCrlf)
loo_Sb.AppendLine("    ~"suframa~": ~"~",",li_BCrlf)
loo_Sb.AppendLine("    ~"estado~": ~"SP~",",li_BCrlf)
loo_Sb.AppendLine("    ~"emails~": [",li_BCrlf)
loo_Sb.AppendLine("      {",li_BCrlf)
loo_Sb.AppendLine("        ~"email~": ~"xi@tidy.com.br~",",li_BCrlf)
loo_Sb.AppendLine("        ~"tipo~": ~"T~",",li_BCrlf)
loo_Sb.AppendLine("        ~"id~": 10655558",li_BCrlf)
loo_Sb.AppendLine("      }",li_BCrlf)
loo_Sb.AppendLine("    ],",li_BCrlf)
loo_Sb.AppendLine("    ~"excluido~": false",li_BCrlf)
loo_Sb.AppendLine("  }",li_BCrlf)
loo_Sb.AppendLine("]",li_BCrlf)

// Load the JSON array into a JsonArray:
loo_JsonArray = create oleobject
// Use "Chilkat_9_5_0.JsonArray" for versions of Chilkat < 10.0.0
li_rc = loo_JsonArray.ConnectToNewObject("Chilkat.JsonArray")

li_Success = loo_JsonArray.LoadSb(loo_Sb)
if li_Success <> 1 then
    Write-Debug loo_JsonArray.LastErrorText
    destroy loo_Sb
    destroy loo_JsonArray
    return
end if

// Get some information from each record in the array.
li_NumRecords = loo_JsonArray.Size
i = 0
do while i < li_NumRecords
    Write-Debug "------ Record " + string(i) + " -------"

    loo_JsonRecord = loo_JsonArray.ObjectAt(i)

    // Examine information for this record
    li_NumTelefones = loo_JsonRecord.SizeOfArray("telefones")
    Write-Debug "Number of telefones: " + string(li_NumTelefones)
    j = 0
    do while j < li_NumTelefones
        loo_JsonRecord.J = j
        Write-Debug "  telefones numero: " + loo_JsonRecord.StringOf("telefones[j].numero")
        Write-Debug "  telefones tipo: " + loo_JsonRecord.StringOf("telefones[j].tipo")
        Write-Debug "  telefones id: " + loo_JsonRecord.StringOf("telefones[j].id")
        j = j + 1
    loop

    Write-Debug "cnpj: " + loo_JsonRecord.StringOf("cnpj")
    Write-Debug "rua: " + loo_JsonRecord.StringOf("rua")
    // ...

    li_NumContatos = loo_JsonRecord.SizeOfArray("contatos")
    Write-Debug "Number of contatos: " + string(li_NumContatos)
    j = 0
    do while j < li_NumContatos
        loo_JsonRecord.J = j

        li_NumTelefones = loo_JsonRecord.SizeOfArray("contatos[j].telefones")
        Write-Debug "  Number of telefones: " + string(li_NumTelefones)
        k = 0
        do while k < li_NumTelefones
            loo_JsonRecord.K = k
            Write-Debug "  telefones numero: " + loo_JsonRecord.StringOf("contatos[j].telefones[k].numero")
            Write-Debug "  telefones tipo: " + loo_JsonRecord.StringOf("contatos[j].telefones[k].tipo")
            Write-Debug "  telefones id: " + loo_JsonRecord.StringOf("contatos[j].telefones[k].id")
            k = k + 1
        loop

        Write-Debug "  cargo: " + loo_JsonRecord.StringOf("contatos[j].cargo")

        li_NumEmails = loo_JsonRecord.SizeOfArray("contatos[j].emails")
        Write-Debug "  Number of emails: " + string(li_NumEmails)
        k = 0
        do while k < li_NumEmails
            loo_JsonRecord.K = k
            Write-Debug "  emails email: " + loo_JsonRecord.StringOf("contatos[j].emails[k].email")
            Write-Debug "  emails tipo: " + loo_JsonRecord.StringOf("contatos[j].emails[k].tipo")
            Write-Debug "  emails id: " + loo_JsonRecord.StringOf("contatos[j].emails[k].id")
            k = k + 1
        loop

        j = j + 1
    loop

    destroy loo_JsonRecord
    i = i + 1
loop

// The output for the above code is:

// 	------ Record 0 -------
// 	Number of telefones: 1
// 	  telefones numero: 19995555555
// 	  telefones tipo: T
// 	  telefones id: 2541437
// 	cnpj: 11395551000164
// 	rua: R XAVIER AUGUSTO ROGGE, 22
// 	Number of contatos: 0
// 	------ Record 1 -------
// 	Number of telefones: 0
// 	cnpj: 12496555500180
// 	rua: AV ROLF WIEST, 100
// 	Number of contatos: 0
// 	------ Record 2 -------
// 	Number of telefones: 1
// 	  telefones numero: 1938655556
// 	  telefones tipo: T
// 	  telefones id: 2555438
// 	cnpj: 00003555500153
// 	rua: AV ABCDEF PINTO CATAO, 18
// 	Number of contatos: 1
// 	  Number of telefones: 1
// 	  telefones numero: 1999655554
// 	  telefones tipo: T
// 	  telefones id: 2555559
// 	  cargo: zzz de compras
// 	  Number of emails: 1
// 	  emails email: gerard@terra.com.br
// 	  emails tipo: T
// 	  emails id: 1065559
// 


destroy loo_Sb
destroy loo_JsonArray