Chilkat HOME .NET Core C# Android™ AutoIt C C# C++ Chilkat2-Python CkPython Classic ASP DataFlex Delphi ActiveX Delphi DLL Go Java Lianja Mono C# Node.js Objective-C PHP ActiveX PHP Extension Perl PowerBuilder PowerShell PureBasic Ruby SQL Server Swift 2 Swift 3,4,5... Tcl Unicode C Unicode C++ VB.NET VBScript Visual Basic 6.0 Visual FoxPro Xojo Plugin
(PowerBuilder) Loading and Parsing a Complex JSON ArrayThis example loads a JSON array containing more complex data. It shows how to parse (access) various values contained within the JSON.
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 li_rc = loo_Sb.ConnectToNewObject("Chilkat_9_5_0.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 li_rc = loo_JsonArray.ConnectToNewObject("Chilkat_9_5_0.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 |
© 2000-2024 Chilkat Software, Inc. All Rights Reserved.