B4X
B4X
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 B4X Downloads
Dim success As Boolean = False
' 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.
Dim sb As ChilkatStringBuilder
sb.Initialize
Dim bCrlf As Boolean = True
sb.AppendLine("[", bCrlf)
sb.AppendLine(" {", bCrlf)
sb.AppendLine(" " & Chr(34) & "telefones" & Chr(34) & ": [", bCrlf)
sb.AppendLine(" {", bCrlf)
sb.AppendLine(" " & Chr(34) & "numero" & Chr(34) & ": " & Chr(34) & "19995555555" & Chr(34) & ",", bCrlf)
sb.AppendLine(" " & Chr(34) & "tipo" & Chr(34) & ": " & Chr(34) & "T" & Chr(34) & ",", bCrlf)
sb.AppendLine(" " & Chr(34) & "id" & Chr(34) & ": 2541437", bCrlf)
sb.AppendLine(" }", bCrlf)
sb.AppendLine(" ],", bCrlf)
sb.AppendLine(" " & Chr(34) & "cnpj" & Chr(34) & ": " & Chr(34) & "11395551000164" & Chr(34) & ",", bCrlf)
sb.AppendLine(" " & Chr(34) & "rua" & Chr(34) & ": " & Chr(34) & "R XAVIER AUGUSTO ROGGE, 22" & Chr(34) & ",", bCrlf)
sb.AppendLine(" " & Chr(34) & "complemento" & Chr(34) & ": " & Chr(34) & Chr(34) & ",", bCrlf)
sb.AppendLine(" " & Chr(34) & "contatos" & Chr(34) & ": [", bCrlf)
sb.AppendLine(" ],", bCrlf)
sb.AppendLine(" " & Chr(34) & "tipo" & Chr(34) & ": " & Chr(34) & "J" & Chr(34) & ",", bCrlf)
sb.AppendLine(" " & Chr(34) & "razao_social" & Chr(34) & ": " & Chr(34) & "SOUP BRASIL LTDA - ME" & Chr(34) & ",", bCrlf)
sb.AppendLine(" " & Chr(34) & "nome_fantasia" & Chr(34) & ": " & Chr(34) & "SOUP BRASIL" & Chr(34) & ",", bCrlf)
sb.AppendLine(" " & Chr(34) & "bairro" & Chr(34) & ": " & Chr(34) & "ABC DOS COLIBRIS" & Chr(34) & ",", bCrlf)
sb.AppendLine(" " & Chr(34) & "cidade" & Chr(34) & ": " & Chr(34) & "TEST" & Chr(34) & ",", bCrlf)
sb.AppendLine(" " & Chr(34) & "inscricao_estadual" & Chr(34) & ": " & Chr(34) & "222.102.222.116" & Chr(34) & ",", bCrlf)
sb.AppendLine(" " & Chr(34) & "observacao" & Chr(34) & ": " & Chr(34) & Chr(34) & ",", bCrlf)
sb.AppendLine(" " & Chr(34) & "id" & Chr(34) & ": 2209595,", bCrlf)
sb.AppendLine(" " & Chr(34) & "ultima_alteracao" & Chr(34) & ": " & Chr(34) & "2016-12-26 16:22:34" & Chr(34) & ",", bCrlf)
sb.AppendLine(" " & Chr(34) & "cep" & Chr(34) & ": " & Chr(34) & "13555000" & Chr(34) & ",", bCrlf)
sb.AppendLine(" " & Chr(34) & "suframa" & Chr(34) & ": " & Chr(34) & Chr(34) & ",", bCrlf)
sb.AppendLine(" " & Chr(34) & "estado" & Chr(34) & ": " & Chr(34) & "SP" & Chr(34) & ",", bCrlf)
sb.AppendLine(" " & Chr(34) & "emails" & Chr(34) & ": [", bCrlf)
sb.AppendLine(" {", bCrlf)
sb.AppendLine(" " & Chr(34) & "email" & Chr(34) & ": " & Chr(34) & "somebody@terra.com.br" & Chr(34) & ",", bCrlf)
sb.AppendLine(" " & Chr(34) & "tipo" & Chr(34) & ": " & Chr(34) & "T" & Chr(34) & ",", bCrlf)
sb.AppendLine(" " & Chr(34) & "id" & Chr(34) & ": 1065557", bCrlf)
sb.AppendLine(" }", bCrlf)
sb.AppendLine(" ],", bCrlf)
sb.AppendLine(" " & Chr(34) & "excluido" & Chr(34) & ": false", bCrlf)
sb.AppendLine(" },", bCrlf)
sb.AppendLine(" {", bCrlf)
sb.AppendLine(" " & Chr(34) & "telefones" & Chr(34) & ": [", bCrlf)
sb.AppendLine(" ],", bCrlf)
sb.AppendLine(" " & Chr(34) & "cnpj" & Chr(34) & ": " & Chr(34) & "12496555500180" & Chr(34) & ",", bCrlf)
sb.AppendLine(" " & Chr(34) & "rua" & Chr(34) & ": " & Chr(34) & "AV ROLF WIEST, 100" & Chr(34) & ",", bCrlf)
sb.AppendLine(" " & Chr(34) & "complemento" & Chr(34) & ": " & Chr(34) & "ANDAR 7 SALA 612 A 620" & Chr(34) & ",", bCrlf)
sb.AppendLine(" " & Chr(34) & "contatos" & Chr(34) & ": [", bCrlf)
sb.AppendLine(" ],", bCrlf)
sb.AppendLine(" " & Chr(34) & "tipo" & Chr(34) & ": " & Chr(34) & "J" & Chr(34) & ",", bCrlf)
sb.AppendLine(" " & Chr(34) & "razao_social" & Chr(34) & ": " & Chr(34) & "SIMPLE SOFTWARE LTDA" & Chr(34) & ",", bCrlf)
sb.AppendLine(" " & Chr(34) & "nome_fantasia" & Chr(34) & ": " & Chr(34) & Chr(34) & ",", bCrlf)
sb.AppendLine(" " & Chr(34) & "bairro" & Chr(34) & ": " & Chr(34) & "DOM ZETIRO" & Chr(34) & ",", bCrlf)
sb.AppendLine(" " & Chr(34) & "cidade" & Chr(34) & ": " & Chr(34) & "APARTVILLE" & Chr(34) & ",", bCrlf)
sb.AppendLine(" " & Chr(34) & "inscricao_estadual" & Chr(34) & ": " & Chr(34) & Chr(34) & ",", bCrlf)
sb.AppendLine(" " & Chr(34) & "observacao" & Chr(34) & ": " & Chr(34) & Chr(34) & ",", bCrlf)
sb.AppendLine(" " & Chr(34) & "id" & Chr(34) & ": 2255594,", bCrlf)
sb.AppendLine(" " & Chr(34) & "ultima_alteracao" & Chr(34) & ": " & Chr(34) & "2016-12-26 16:28:31" & Chr(34) & ",", bCrlf)
sb.AppendLine(" " & Chr(34) & "cep" & Chr(34) & ": " & Chr(34) & "89255505" & Chr(34) & ",", bCrlf)
sb.AppendLine(" " & Chr(34) & "suframa" & Chr(34) & ": " & Chr(34) & Chr(34) & ",", bCrlf)
sb.AppendLine(" " & Chr(34) & "estado" & Chr(34) & ": " & Chr(34) & "SC" & Chr(34) & ",", bCrlf)
sb.AppendLine(" " & Chr(34) & "emails" & Chr(34) & ": [", bCrlf)
sb.AppendLine(" ],", bCrlf)
sb.AppendLine(" " & Chr(34) & "excluido" & Chr(34) & ": false", bCrlf)
sb.AppendLine(" },", bCrlf)
sb.AppendLine(" {", bCrlf)
sb.AppendLine(" " & Chr(34) & "telefones" & Chr(34) & ": [", bCrlf)
sb.AppendLine(" {", bCrlf)
sb.AppendLine(" " & Chr(34) & "numero" & Chr(34) & ": " & Chr(34) & "1938655556" & Chr(34) & ",", bCrlf)
sb.AppendLine(" " & Chr(34) & "tipo" & Chr(34) & ": " & Chr(34) & "T" & Chr(34) & ",", bCrlf)
sb.AppendLine(" " & Chr(34) & "id" & Chr(34) & ": 2555438", bCrlf)
sb.AppendLine(" }", bCrlf)
sb.AppendLine(" ],", bCrlf)
sb.AppendLine(" " & Chr(34) & "cnpj" & Chr(34) & ": " & Chr(34) & "00003555500153" & Chr(34) & ",", bCrlf)
sb.AppendLine(" " & Chr(34) & "rua" & Chr(34) & ": " & Chr(34) & "AV ABCDEF PINTO CATAO, 18" & Chr(34) & ",", bCrlf)
sb.AppendLine(" " & Chr(34) & "complemento" & Chr(34) & ": " & Chr(34) & Chr(34) & ",", bCrlf)
sb.AppendLine(" " & Chr(34) & "contatos" & Chr(34) & ": [", bCrlf)
sb.AppendLine(" {", bCrlf)
sb.AppendLine(" " & Chr(34) & "telefones" & Chr(34) & ": [", bCrlf)
sb.AppendLine(" {", bCrlf)
sb.AppendLine(" " & Chr(34) & "numero" & Chr(34) & ": " & Chr(34) & "1999655554" & Chr(34) & ",", bCrlf)
sb.AppendLine(" " & Chr(34) & "tipo" & Chr(34) & ": " & Chr(34) & "T" & Chr(34) & ",", bCrlf)
sb.AppendLine(" " & Chr(34) & "id" & Chr(34) & ": 2555559", bCrlf)
sb.AppendLine(" }", bCrlf)
sb.AppendLine(" ],", bCrlf)
sb.AppendLine(" " & Chr(34) & "cargo" & Chr(34) & ": " & Chr(34) & "zzz de compras" & Chr(34) & ",", bCrlf)
sb.AppendLine(" " & Chr(34) & "nome" & Chr(34) & ": " & Chr(34) & "Gerard" & Chr(34) & ",", bCrlf)
sb.AppendLine(" " & Chr(34) & "emails" & Chr(34) & ": [", bCrlf)
sb.AppendLine(" {", bCrlf)
sb.AppendLine(" " & Chr(34) & "email" & Chr(34) & ": " & Chr(34) & "gerard@terra.com.br" & Chr(34) & ",", bCrlf)
sb.AppendLine(" " & Chr(34) & "tipo" & Chr(34) & ": " & Chr(34) & "T" & Chr(34) & ",", bCrlf)
sb.AppendLine(" " & Chr(34) & "id" & Chr(34) & ": 1065559", bCrlf)
sb.AppendLine(" }", bCrlf)
sb.AppendLine(" ],", bCrlf)
sb.AppendLine(" " & Chr(34) & "id" & Chr(34) & ": 844485,", bCrlf)
sb.AppendLine(" " & Chr(34) & "excluido" & Chr(34) & ": false", bCrlf)
sb.AppendLine(" }", bCrlf)
sb.AppendLine(" ],", bCrlf)
sb.AppendLine(" " & Chr(34) & "tipo" & Chr(34) & ": " & Chr(34) & "J" & Chr(34) & ",", bCrlf)
sb.AppendLine(" " & Chr(34) & "razao_social" & Chr(34) & ": " & Chr(34) & "TIDY TECNOLOGIA LTDA - EPP" & Chr(34) & ",", bCrlf)
sb.AppendLine(" " & Chr(34) & "nome_fantasia" & Chr(34) & ": " & Chr(34) & "TIDY" & Chr(34) & ",", bCrlf)
sb.AppendLine(" " & Chr(34) & "bairro" & Chr(34) & ": " & Chr(34) & "TUNA" & Chr(34) & ",", bCrlf)
sb.AppendLine(" " & Chr(34) & "cidade" & Chr(34) & ": " & Chr(34) & "JAGUAR" & Chr(34) & ",", bCrlf)
sb.AppendLine(" " & Chr(34) & "inscricao_estadual" & Chr(34) & ": " & Chr(34) & "395.222.441.222" & Chr(34) & ",", bCrlf)
sb.AppendLine(" " & Chr(34) & "observacao" & Chr(34) & ": " & Chr(34) & "ligar sempre depois das 14hs" & Chr(34) & ",", bCrlf)
sb.AppendLine(" " & Chr(34) & "id" & Chr(34) & ": 2255597,", bCrlf)
sb.AppendLine(" " & Chr(34) & "ultima_alteracao" & Chr(34) & ": " & Chr(34) & "2016-12-28 07:31:52" & Chr(34) & ",", bCrlf)
sb.AppendLine(" " & Chr(34) & "cep" & Chr(34) & ": " & Chr(34) & "13555500" & Chr(34) & ",", bCrlf)
sb.AppendLine(" " & Chr(34) & "suframa" & Chr(34) & ": " & Chr(34) & Chr(34) & ",", bCrlf)
sb.AppendLine(" " & Chr(34) & "estado" & Chr(34) & ": " & Chr(34) & "SP" & Chr(34) & ",", bCrlf)
sb.AppendLine(" " & Chr(34) & "emails" & Chr(34) & ": [", bCrlf)
sb.AppendLine(" {", bCrlf)
sb.AppendLine(" " & Chr(34) & "email" & Chr(34) & ": " & Chr(34) & "xi@tidy.com.br" & Chr(34) & ",", bCrlf)
sb.AppendLine(" " & Chr(34) & "tipo" & Chr(34) & ": " & Chr(34) & "T" & Chr(34) & ",", bCrlf)
sb.AppendLine(" " & Chr(34) & "id" & Chr(34) & ": 10655558", bCrlf)
sb.AppendLine(" }", bCrlf)
sb.AppendLine(" ],", bCrlf)
sb.AppendLine(" " & Chr(34) & "excluido" & Chr(34) & ": false", bCrlf)
sb.AppendLine(" }", bCrlf)
sb.AppendLine("]", bCrlf)
' Load the JSON array into a JsonArray:
Dim jsonArray As ChilkatJsonArray
jsonArray.Initialize
success = jsonArray.LoadSb(sb)
If success <> True Then
Log(jsonArray.LastErrorText)
Return
End If
' Get some information from each record in the array.
Dim numRecords As Int = jsonArray.Size
Dim i As Int = 0
Do While i < numRecords
Log("------ Record " & i & " -------")
Dim jsonRecord As ChilkatJsonObject = jsonArray.ObjectAt(i)
' Examine information for this record
Dim numTelefones As Int = jsonRecord.SizeOfArray("telefones")
Log("Number of telefones: " & numTelefones)
Dim j As Int = 0
Do While j < numTelefones
jsonRecord.J = j
Log(" telefones numero: " & jsonRecord.StringOf("telefones[j].numero"))
Log(" telefones tipo: " & jsonRecord.StringOf("telefones[j].tipo"))
Log(" telefones id: " & jsonRecord.StringOf("telefones[j].id"))
j = j + 1
Loop
Log("cnpj: " & jsonRecord.StringOf("cnpj"))
Log("rua: " & jsonRecord.StringOf("rua"))
' ...
Dim numContatos As Int = jsonRecord.SizeOfArray("contatos")
Log("Number of contatos: " & numContatos)
j = 0
Do While j < numContatos
jsonRecord.J = j
numTelefones = jsonRecord.SizeOfArray("contatos[j].telefones")
Log(" Number of telefones: " & numTelefones)
Dim k As Int = 0
Do While k < numTelefones
jsonRecord.K = k
Log(" telefones numero: " & jsonRecord.StringOf("contatos[j].telefones[k].numero"))
Log(" telefones tipo: " & jsonRecord.StringOf("contatos[j].telefones[k].tipo"))
Log(" telefones id: " & jsonRecord.StringOf("contatos[j].telefones[k].id"))
k = k + 1
Loop
Log(" cargo: " & jsonRecord.StringOf("contatos[j].cargo"))
Dim numEmails As Int = jsonRecord.SizeOfArray("contatos[j].emails")
Log(" Number of emails: " & numEmails)
k = 0
Do While k < numEmails
jsonRecord.K = k
Log(" emails email: " & jsonRecord.StringOf("contatos[j].emails[k].email"))
Log(" emails tipo: " & jsonRecord.StringOf("contatos[j].emails[k].tipo"))
Log(" emails id: " & jsonRecord.StringOf("contatos[j].emails[k].id"))
k = k + 1
Loop
j = j + 1
Loop
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
'