DataFlex
DataFlex
Loading and Parsing a Complex JSON Array
See more JSON Examples
This example loads a JSON array containing more complex data. It shows how to parse (access) various values contained within the JSON.Chilkat DataFlex Downloads
Use ChilkatAx-win32.pkg
Procedure Test
Boolean iSuccess
Variant vSb
Handle hoSb
Boolean iBCrlf
Handle hoJsonArray
Integer iNumRecords
Integer i
Variant vJsonRecord
Handle hoJsonRecord
Integer iNumTelefones
Integer j
Integer iNumContatos
Integer k
Integer iNumEmails
String sTemp1
Move False To iSuccess
// 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.
Get Create (RefClass(cComChilkatStringBuilder)) To hoSb
If (Not(IsComObjectCreated(hoSb))) Begin
Send CreateComObject of hoSb
End
Move True To iBCrlf
Get ComAppendLine Of hoSb "[" iBCrlf To iSuccess
Get ComAppendLine Of hoSb " {" iBCrlf To iSuccess
Get ComAppendLine Of hoSb ' "telefones": [' iBCrlf To iSuccess
Get ComAppendLine Of hoSb " {" iBCrlf To iSuccess
Get ComAppendLine Of hoSb ' "numero": "19995555555",' iBCrlf To iSuccess
Get ComAppendLine Of hoSb ' "tipo": "T",' iBCrlf To iSuccess
Get ComAppendLine Of hoSb ' "id": 2541437' iBCrlf To iSuccess
Get ComAppendLine Of hoSb " }" iBCrlf To iSuccess
Get ComAppendLine Of hoSb " ]," iBCrlf To iSuccess
Get ComAppendLine Of hoSb ' "cnpj": "11395551000164",' iBCrlf To iSuccess
Get ComAppendLine Of hoSb ' "rua": "R XAVIER AUGUSTO ROGGE, 22",' iBCrlf To iSuccess
Get ComAppendLine Of hoSb ' "complemento": "",' iBCrlf To iSuccess
Get ComAppendLine Of hoSb ' "contatos": [' iBCrlf To iSuccess
Get ComAppendLine Of hoSb " ]," iBCrlf To iSuccess
Get ComAppendLine Of hoSb ' "tipo": "J",' iBCrlf To iSuccess
Get ComAppendLine Of hoSb ' "razao_social": "SOUP BRASIL LTDA - ME",' iBCrlf To iSuccess
Get ComAppendLine Of hoSb ' "nome_fantasia": "SOUP BRASIL",' iBCrlf To iSuccess
Get ComAppendLine Of hoSb ' "bairro": "ABC DOS COLIBRIS",' iBCrlf To iSuccess
Get ComAppendLine Of hoSb ' "cidade": "TEST",' iBCrlf To iSuccess
Get ComAppendLine Of hoSb ' "inscricao_estadual": "222.102.222.116",' iBCrlf To iSuccess
Get ComAppendLine Of hoSb ' "observacao": "",' iBCrlf To iSuccess
Get ComAppendLine Of hoSb ' "id": 2209595,' iBCrlf To iSuccess
Get ComAppendLine Of hoSb ' "ultima_alteracao": "2016-12-26 16:22:34",' iBCrlf To iSuccess
Get ComAppendLine Of hoSb ' "cep": "13555000",' iBCrlf To iSuccess
Get ComAppendLine Of hoSb ' "suframa": "",' iBCrlf To iSuccess
Get ComAppendLine Of hoSb ' "estado": "SP",' iBCrlf To iSuccess
Get ComAppendLine Of hoSb ' "emails": [' iBCrlf To iSuccess
Get ComAppendLine Of hoSb " {" iBCrlf To iSuccess
Get ComAppendLine Of hoSb ' "email": "somebody@terra.com.br",' iBCrlf To iSuccess
Get ComAppendLine Of hoSb ' "tipo": "T",' iBCrlf To iSuccess
Get ComAppendLine Of hoSb ' "id": 1065557' iBCrlf To iSuccess
Get ComAppendLine Of hoSb " }" iBCrlf To iSuccess
Get ComAppendLine Of hoSb " ]," iBCrlf To iSuccess
Get ComAppendLine Of hoSb ' "excluido": false' iBCrlf To iSuccess
Get ComAppendLine Of hoSb " }," iBCrlf To iSuccess
Get ComAppendLine Of hoSb " {" iBCrlf To iSuccess
Get ComAppendLine Of hoSb ' "telefones": [' iBCrlf To iSuccess
Get ComAppendLine Of hoSb " ]," iBCrlf To iSuccess
Get ComAppendLine Of hoSb ' "cnpj": "12496555500180",' iBCrlf To iSuccess
Get ComAppendLine Of hoSb ' "rua": "AV ROLF WIEST, 100",' iBCrlf To iSuccess
Get ComAppendLine Of hoSb ' "complemento": "ANDAR 7 SALA 612 A 620",' iBCrlf To iSuccess
Get ComAppendLine Of hoSb ' "contatos": [' iBCrlf To iSuccess
Get ComAppendLine Of hoSb " ]," iBCrlf To iSuccess
Get ComAppendLine Of hoSb ' "tipo": "J",' iBCrlf To iSuccess
Get ComAppendLine Of hoSb ' "razao_social": "SIMPLE SOFTWARE LTDA",' iBCrlf To iSuccess
Get ComAppendLine Of hoSb ' "nome_fantasia": "",' iBCrlf To iSuccess
Get ComAppendLine Of hoSb ' "bairro": "DOM ZETIRO",' iBCrlf To iSuccess
Get ComAppendLine Of hoSb ' "cidade": "APARTVILLE",' iBCrlf To iSuccess
Get ComAppendLine Of hoSb ' "inscricao_estadual": "",' iBCrlf To iSuccess
Get ComAppendLine Of hoSb ' "observacao": "",' iBCrlf To iSuccess
Get ComAppendLine Of hoSb ' "id": 2255594,' iBCrlf To iSuccess
Get ComAppendLine Of hoSb ' "ultima_alteracao": "2016-12-26 16:28:31",' iBCrlf To iSuccess
Get ComAppendLine Of hoSb ' "cep": "89255505",' iBCrlf To iSuccess
Get ComAppendLine Of hoSb ' "suframa": "",' iBCrlf To iSuccess
Get ComAppendLine Of hoSb ' "estado": "SC",' iBCrlf To iSuccess
Get ComAppendLine Of hoSb ' "emails": [' iBCrlf To iSuccess
Get ComAppendLine Of hoSb " ]," iBCrlf To iSuccess
Get ComAppendLine Of hoSb ' "excluido": false' iBCrlf To iSuccess
Get ComAppendLine Of hoSb " }," iBCrlf To iSuccess
Get ComAppendLine Of hoSb " {" iBCrlf To iSuccess
Get ComAppendLine Of hoSb ' "telefones": [' iBCrlf To iSuccess
Get ComAppendLine Of hoSb " {" iBCrlf To iSuccess
Get ComAppendLine Of hoSb ' "numero": "1938655556",' iBCrlf To iSuccess
Get ComAppendLine Of hoSb ' "tipo": "T",' iBCrlf To iSuccess
Get ComAppendLine Of hoSb ' "id": 2555438' iBCrlf To iSuccess
Get ComAppendLine Of hoSb " }" iBCrlf To iSuccess
Get ComAppendLine Of hoSb " ]," iBCrlf To iSuccess
Get ComAppendLine Of hoSb ' "cnpj": "00003555500153",' iBCrlf To iSuccess
Get ComAppendLine Of hoSb ' "rua": "AV ABCDEF PINTO CATAO, 18",' iBCrlf To iSuccess
Get ComAppendLine Of hoSb ' "complemento": "",' iBCrlf To iSuccess
Get ComAppendLine Of hoSb ' "contatos": [' iBCrlf To iSuccess
Get ComAppendLine Of hoSb " {" iBCrlf To iSuccess
Get ComAppendLine Of hoSb ' "telefones": [' iBCrlf To iSuccess
Get ComAppendLine Of hoSb " {" iBCrlf To iSuccess
Get ComAppendLine Of hoSb ' "numero": "1999655554",' iBCrlf To iSuccess
Get ComAppendLine Of hoSb ' "tipo": "T",' iBCrlf To iSuccess
Get ComAppendLine Of hoSb ' "id": 2555559' iBCrlf To iSuccess
Get ComAppendLine Of hoSb " }" iBCrlf To iSuccess
Get ComAppendLine Of hoSb " ]," iBCrlf To iSuccess
Get ComAppendLine Of hoSb ' "cargo": "zzz de compras",' iBCrlf To iSuccess
Get ComAppendLine Of hoSb ' "nome": "Gerard",' iBCrlf To iSuccess
Get ComAppendLine Of hoSb ' "emails": [' iBCrlf To iSuccess
Get ComAppendLine Of hoSb " {" iBCrlf To iSuccess
Get ComAppendLine Of hoSb ' "email": "gerard@terra.com.br",' iBCrlf To iSuccess
Get ComAppendLine Of hoSb ' "tipo": "T",' iBCrlf To iSuccess
Get ComAppendLine Of hoSb ' "id": 1065559' iBCrlf To iSuccess
Get ComAppendLine Of hoSb " }" iBCrlf To iSuccess
Get ComAppendLine Of hoSb " ]," iBCrlf To iSuccess
Get ComAppendLine Of hoSb ' "id": 844485,' iBCrlf To iSuccess
Get ComAppendLine Of hoSb ' "excluido": false' iBCrlf To iSuccess
Get ComAppendLine Of hoSb " }" iBCrlf To iSuccess
Get ComAppendLine Of hoSb " ]," iBCrlf To iSuccess
Get ComAppendLine Of hoSb ' "tipo": "J",' iBCrlf To iSuccess
Get ComAppendLine Of hoSb ' "razao_social": "TIDY TECNOLOGIA LTDA - EPP",' iBCrlf To iSuccess
Get ComAppendLine Of hoSb ' "nome_fantasia": "TIDY",' iBCrlf To iSuccess
Get ComAppendLine Of hoSb ' "bairro": "TUNA",' iBCrlf To iSuccess
Get ComAppendLine Of hoSb ' "cidade": "JAGUAR",' iBCrlf To iSuccess
Get ComAppendLine Of hoSb ' "inscricao_estadual": "395.222.441.222",' iBCrlf To iSuccess
Get ComAppendLine Of hoSb ' "observacao": "ligar sempre depois das 14hs",' iBCrlf To iSuccess
Get ComAppendLine Of hoSb ' "id": 2255597,' iBCrlf To iSuccess
Get ComAppendLine Of hoSb ' "ultima_alteracao": "2016-12-28 07:31:52",' iBCrlf To iSuccess
Get ComAppendLine Of hoSb ' "cep": "13555500",' iBCrlf To iSuccess
Get ComAppendLine Of hoSb ' "suframa": "",' iBCrlf To iSuccess
Get ComAppendLine Of hoSb ' "estado": "SP",' iBCrlf To iSuccess
Get ComAppendLine Of hoSb ' "emails": [' iBCrlf To iSuccess
Get ComAppendLine Of hoSb " {" iBCrlf To iSuccess
Get ComAppendLine Of hoSb ' "email": "xi@tidy.com.br",' iBCrlf To iSuccess
Get ComAppendLine Of hoSb ' "tipo": "T",' iBCrlf To iSuccess
Get ComAppendLine Of hoSb ' "id": 10655558' iBCrlf To iSuccess
Get ComAppendLine Of hoSb " }" iBCrlf To iSuccess
Get ComAppendLine Of hoSb " ]," iBCrlf To iSuccess
Get ComAppendLine Of hoSb ' "excluido": false' iBCrlf To iSuccess
Get ComAppendLine Of hoSb " }" iBCrlf To iSuccess
Get ComAppendLine Of hoSb "]" iBCrlf To iSuccess
// Load the JSON array into a JsonArray:
Get Create (RefClass(cComChilkatJsonArray)) To hoJsonArray
If (Not(IsComObjectCreated(hoJsonArray))) Begin
Send CreateComObject of hoJsonArray
End
Get pvComObject of hoSb to vSb
Get ComLoadSb Of hoJsonArray vSb To iSuccess
If (iSuccess <> True) Begin
Get ComLastErrorText Of hoJsonArray To sTemp1
Showln sTemp1
Procedure_Return
End
// Get some information from each record in the array.
Get ComSize Of hoJsonArray To iNumRecords
Move 0 To i
While (i < iNumRecords)
Showln "------ Record " i " -------"
Get ComObjectAt Of hoJsonArray i To vJsonRecord
If (IsComObject(vJsonRecord)) Begin
Get Create (RefClass(cComChilkatJsonObject)) To hoJsonRecord
Set pvComObject Of hoJsonRecord To vJsonRecord
End
// Examine information for this record
Get ComSizeOfArray Of hoJsonRecord "telefones" To iNumTelefones
Showln "Number of telefones: " iNumTelefones
Move 0 To j
While (j < iNumTelefones)
Set ComJ Of hoJsonRecord To j
Get ComStringOf Of hoJsonRecord "telefones[j].numero" To sTemp1
Showln " telefones numero: " sTemp1
Get ComStringOf Of hoJsonRecord "telefones[j].tipo" To sTemp1
Showln " telefones tipo: " sTemp1
Get ComStringOf Of hoJsonRecord "telefones[j].id" To sTemp1
Showln " telefones id: " sTemp1
Move (j + 1) To j
Loop
Get ComStringOf Of hoJsonRecord "cnpj" To sTemp1
Showln "cnpj: " sTemp1
Get ComStringOf Of hoJsonRecord "rua" To sTemp1
Showln "rua: " sTemp1
// ...
Get ComSizeOfArray Of hoJsonRecord "contatos" To iNumContatos
Showln "Number of contatos: " iNumContatos
Move 0 To j
While (j < iNumContatos)
Set ComJ Of hoJsonRecord To j
Get ComSizeOfArray Of hoJsonRecord "contatos[j].telefones" To iNumTelefones
Showln " Number of telefones: " iNumTelefones
Move 0 To k
While (k < iNumTelefones)
Set ComK Of hoJsonRecord To k
Get ComStringOf Of hoJsonRecord "contatos[j].telefones[k].numero" To sTemp1
Showln " telefones numero: " sTemp1
Get ComStringOf Of hoJsonRecord "contatos[j].telefones[k].tipo" To sTemp1
Showln " telefones tipo: " sTemp1
Get ComStringOf Of hoJsonRecord "contatos[j].telefones[k].id" To sTemp1
Showln " telefones id: " sTemp1
Move (k + 1) To k
Loop
Get ComStringOf Of hoJsonRecord "contatos[j].cargo" To sTemp1
Showln " cargo: " sTemp1
Get ComSizeOfArray Of hoJsonRecord "contatos[j].emails" To iNumEmails
Showln " Number of emails: " iNumEmails
Move 0 To k
While (k < iNumEmails)
Set ComK Of hoJsonRecord To k
Get ComStringOf Of hoJsonRecord "contatos[j].emails[k].email" To sTemp1
Showln " emails email: " sTemp1
Get ComStringOf Of hoJsonRecord "contatos[j].emails[k].tipo" To sTemp1
Showln " emails tipo: " sTemp1
Get ComStringOf Of hoJsonRecord "contatos[j].emails[k].id" To sTemp1
Showln " emails id: " sTemp1
Move (k + 1) To k
Loop
Move (j + 1) To j
Loop
Send Destroy of hoJsonRecord
Move (i + 1) To i
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
//
End_Procedure