|
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
(Visual FoxPro) 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.
LOCAL loSb LOCAL lnBCrlf LOCAL loJsonArray LOCAL lnSuccess LOCAL lnNumRecords LOCAL i LOCAL loJsonRecord LOCAL lnNumTelefones LOCAL j LOCAL lnNumContatos LOCAL k LOCAL lnNumEmails * 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. * For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.StringBuilder') loSb = CreateObject('Chilkat.StringBuilder') lnBCrlf = 1 loSb.AppendLine("[",lnBCrlf) loSb.AppendLine(" {",lnBCrlf) loSb.AppendLine(' "telefones": [',lnBCrlf) loSb.AppendLine(" {",lnBCrlf) loSb.AppendLine(' "numero": "19995555555",',lnBCrlf) loSb.AppendLine(' "tipo": "T",',lnBCrlf) loSb.AppendLine(' "id": 2541437',lnBCrlf) loSb.AppendLine(" }",lnBCrlf) loSb.AppendLine(" ],",lnBCrlf) loSb.AppendLine(' "cnpj": "11395551000164",',lnBCrlf) loSb.AppendLine(' "rua": "R XAVIER AUGUSTO ROGGE, 22",',lnBCrlf) loSb.AppendLine(' "complemento": "",',lnBCrlf) loSb.AppendLine(' "contatos": [',lnBCrlf) loSb.AppendLine(" ],",lnBCrlf) loSb.AppendLine(' "tipo": "J",',lnBCrlf) loSb.AppendLine(' "razao_social": "SOUP BRASIL LTDA - ME",',lnBCrlf) loSb.AppendLine(' "nome_fantasia": "SOUP BRASIL",',lnBCrlf) loSb.AppendLine(' "bairro": "ABC DOS COLIBRIS",',lnBCrlf) loSb.AppendLine(' "cidade": "TEST",',lnBCrlf) loSb.AppendLine(' "inscricao_estadual": "222.102.222.116",',lnBCrlf) loSb.AppendLine(' "observacao": "",',lnBCrlf) loSb.AppendLine(' "id": 2209595,',lnBCrlf) loSb.AppendLine(' "ultima_alteracao": "2016-12-26 16:22:34",',lnBCrlf) loSb.AppendLine(' "cep": "13555000",',lnBCrlf) loSb.AppendLine(' "suframa": "",',lnBCrlf) loSb.AppendLine(' "estado": "SP",',lnBCrlf) loSb.AppendLine(' "emails": [',lnBCrlf) loSb.AppendLine(" {",lnBCrlf) loSb.AppendLine(' "email": "somebody@terra.com.br",',lnBCrlf) loSb.AppendLine(' "tipo": "T",',lnBCrlf) loSb.AppendLine(' "id": 1065557',lnBCrlf) loSb.AppendLine(" }",lnBCrlf) loSb.AppendLine(" ],",lnBCrlf) loSb.AppendLine(' "excluido": false',lnBCrlf) loSb.AppendLine(" },",lnBCrlf) loSb.AppendLine(" {",lnBCrlf) loSb.AppendLine(' "telefones": [',lnBCrlf) loSb.AppendLine(" ],",lnBCrlf) loSb.AppendLine(' "cnpj": "12496555500180",',lnBCrlf) loSb.AppendLine(' "rua": "AV ROLF WIEST, 100",',lnBCrlf) loSb.AppendLine(' "complemento": "ANDAR 7 SALA 612 A 620",',lnBCrlf) loSb.AppendLine(' "contatos": [',lnBCrlf) loSb.AppendLine(" ],",lnBCrlf) loSb.AppendLine(' "tipo": "J",',lnBCrlf) loSb.AppendLine(' "razao_social": "SIMPLE SOFTWARE LTDA",',lnBCrlf) loSb.AppendLine(' "nome_fantasia": "",',lnBCrlf) loSb.AppendLine(' "bairro": "DOM ZETIRO",',lnBCrlf) loSb.AppendLine(' "cidade": "APARTVILLE",',lnBCrlf) loSb.AppendLine(' "inscricao_estadual": "",',lnBCrlf) loSb.AppendLine(' "observacao": "",',lnBCrlf) loSb.AppendLine(' "id": 2255594,',lnBCrlf) loSb.AppendLine(' "ultima_alteracao": "2016-12-26 16:28:31",',lnBCrlf) loSb.AppendLine(' "cep": "89255505",',lnBCrlf) loSb.AppendLine(' "suframa": "",',lnBCrlf) loSb.AppendLine(' "estado": "SC",',lnBCrlf) loSb.AppendLine(' "emails": [',lnBCrlf) loSb.AppendLine(" ],",lnBCrlf) loSb.AppendLine(' "excluido": false',lnBCrlf) loSb.AppendLine(" },",lnBCrlf) loSb.AppendLine(" {",lnBCrlf) loSb.AppendLine(' "telefones": [',lnBCrlf) loSb.AppendLine(" {",lnBCrlf) loSb.AppendLine(' "numero": "1938655556",',lnBCrlf) loSb.AppendLine(' "tipo": "T",',lnBCrlf) loSb.AppendLine(' "id": 2555438',lnBCrlf) loSb.AppendLine(" }",lnBCrlf) loSb.AppendLine(" ],",lnBCrlf) loSb.AppendLine(' "cnpj": "00003555500153",',lnBCrlf) loSb.AppendLine(' "rua": "AV ABCDEF PINTO CATAO, 18",',lnBCrlf) loSb.AppendLine(' "complemento": "",',lnBCrlf) loSb.AppendLine(' "contatos": [',lnBCrlf) loSb.AppendLine(" {",lnBCrlf) loSb.AppendLine(' "telefones": [',lnBCrlf) loSb.AppendLine(" {",lnBCrlf) loSb.AppendLine(' "numero": "1999655554",',lnBCrlf) loSb.AppendLine(' "tipo": "T",',lnBCrlf) loSb.AppendLine(' "id": 2555559',lnBCrlf) loSb.AppendLine(" }",lnBCrlf) loSb.AppendLine(" ],",lnBCrlf) loSb.AppendLine(' "cargo": "zzz de compras",',lnBCrlf) loSb.AppendLine(' "nome": "Gerard",',lnBCrlf) loSb.AppendLine(' "emails": [',lnBCrlf) loSb.AppendLine(" {",lnBCrlf) loSb.AppendLine(' "email": "gerard@terra.com.br",',lnBCrlf) loSb.AppendLine(' "tipo": "T",',lnBCrlf) loSb.AppendLine(' "id": 1065559',lnBCrlf) loSb.AppendLine(" }",lnBCrlf) loSb.AppendLine(" ],",lnBCrlf) loSb.AppendLine(' "id": 844485,',lnBCrlf) loSb.AppendLine(' "excluido": false',lnBCrlf) loSb.AppendLine(" }",lnBCrlf) loSb.AppendLine(" ],",lnBCrlf) loSb.AppendLine(' "tipo": "J",',lnBCrlf) loSb.AppendLine(' "razao_social": "TIDY TECNOLOGIA LTDA - EPP",',lnBCrlf) loSb.AppendLine(' "nome_fantasia": "TIDY",',lnBCrlf) loSb.AppendLine(' "bairro": "TUNA",',lnBCrlf) loSb.AppendLine(' "cidade": "JAGUAR",',lnBCrlf) loSb.AppendLine(' "inscricao_estadual": "395.222.441.222",',lnBCrlf) loSb.AppendLine(' "observacao": "ligar sempre depois das 14hs",',lnBCrlf) loSb.AppendLine(' "id": 2255597,',lnBCrlf) loSb.AppendLine(' "ultima_alteracao": "2016-12-28 07:31:52",',lnBCrlf) loSb.AppendLine(' "cep": "13555500",',lnBCrlf) loSb.AppendLine(' "suframa": "",',lnBCrlf) loSb.AppendLine(' "estado": "SP",',lnBCrlf) loSb.AppendLine(' "emails": [',lnBCrlf) loSb.AppendLine(" {",lnBCrlf) loSb.AppendLine(' "email": "xi@tidy.com.br",',lnBCrlf) loSb.AppendLine(' "tipo": "T",',lnBCrlf) loSb.AppendLine(' "id": 10655558',lnBCrlf) loSb.AppendLine(" }",lnBCrlf) loSb.AppendLine(" ],",lnBCrlf) loSb.AppendLine(' "excluido": false',lnBCrlf) loSb.AppendLine(" }",lnBCrlf) loSb.AppendLine("]",lnBCrlf) * Load the JSON array into a JsonArray: * For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.JsonArray') loJsonArray = CreateObject('Chilkat.JsonArray') lnSuccess = loJsonArray.LoadSb(loSb) IF (lnSuccess <> 1) THEN ? loJsonArray.LastErrorText RELEASE loSb RELEASE loJsonArray CANCEL ENDIF * Get some information from each record in the array. lnNumRecords = loJsonArray.Size i = 0 DO WHILE i < lnNumRecords ? "------ Record " + STR(i) + " -------" loJsonRecord = loJsonArray.ObjectAt(i) * Examine information for this record lnNumTelefones = loJsonRecord.SizeOfArray("telefones") ? "Number of telefones: " + STR(lnNumTelefones) j = 0 DO WHILE j < lnNumTelefones loJsonRecord.J = j ? " telefones numero: " + loJsonRecord.StringOf("telefones[j].numero") ? " telefones tipo: " + loJsonRecord.StringOf("telefones[j].tipo") ? " telefones id: " + loJsonRecord.StringOf("telefones[j].id") j = j + 1 ENDDO ? "cnpj: " + loJsonRecord.StringOf("cnpj") ? "rua: " + loJsonRecord.StringOf("rua") * ... lnNumContatos = loJsonRecord.SizeOfArray("contatos") ? "Number of contatos: " + STR(lnNumContatos) j = 0 DO WHILE j < lnNumContatos loJsonRecord.J = j lnNumTelefones = loJsonRecord.SizeOfArray("contatos[j].telefones") ? " Number of telefones: " + STR(lnNumTelefones) k = 0 DO WHILE k < lnNumTelefones loJsonRecord.K = k ? " telefones numero: " + loJsonRecord.StringOf("contatos[j].telefones[k].numero") ? " telefones tipo: " + loJsonRecord.StringOf("contatos[j].telefones[k].tipo") ? " telefones id: " + loJsonRecord.StringOf("contatos[j].telefones[k].id") k = k + 1 ENDDO ? " cargo: " + loJsonRecord.StringOf("contatos[j].cargo") lnNumEmails = loJsonRecord.SizeOfArray("contatos[j].emails") ? " Number of emails: " + STR(lnNumEmails) k = 0 DO WHILE k < lnNumEmails loJsonRecord.K = k ? " emails email: " + loJsonRecord.StringOf("contatos[j].emails[k].email") ? " emails tipo: " + loJsonRecord.StringOf("contatos[j].emails[k].tipo") ? " emails id: " + loJsonRecord.StringOf("contatos[j].emails[k].id") k = k + 1 ENDDO j = j + 1 ENDDO RELEASE loJsonRecord i = i + 1 ENDDO * 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 * RELEASE loSb RELEASE loJsonArray |
||||
© 2000-2024 Chilkat Software, Inc. All Rights Reserved.