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