JSON – O que é e como usar em AdvPL – Parte 02

Introdução

No post anterior  — JSON – O que é e como usar em AdvPL — vimos o que é JSON e como fazemos para ler um objeto / arquivo JSON em AdvPL ! Agora, vamos ver como criar e editar um objeto JSON em AdvPL 😀

Criando e/ou editando um JSON em AdvPL

Tão simples quanto ler, é criar ou editar um JSON ! Sim, é isso mesmo. A sintaxe direta de endereçar uma propriedade do Objeto JSON em AdvPL — vista no primeiro post — usando a sintaxe de “array” para endereçar propriedades ( oJson[‘propriedade’] ) também serve para fazer uma atribuição. Veja o exemplo abaixo, criando um objeto JSON em AdvPL e depois obtendo a string que o representa:

User Function JsonNew()

oJson := JSonObject():New()

oJson['Id'] := 0984
oJson['Nome'] := 'Júlio Wittwer'
oJson['Ok'] := .T.
oJson['Aniversario'] := ctod('03/03/1976')

oJson['Outros'] := JSonObject():New()
oJson['Outros']['Sangue'] := 'A+'
oJson['Outros']['Eleitor'] := .T.
oJson['Outros']['Reservista'] := .T.

conout(oJson:ToJson())

Return

Resultado obtido no console:

{“Outros”:{“Eleitor”:true,”Reservista”:true,”Sangue”:”A+”},”Id”:984,”Nome”:”Júlio Wittwer”,”Ok”:true,”Aniversario”:”1976/03/03″}

Ao criar um objeto, cada propriedade que receba uma atribuição é criada dinamicamente. Para criar um objeto como uma propriedade, usamos o construtor JsonObject():New(). Ao criarmos uma propriedade contento uma data em AdvPL, ela será criada no JSON como uma String, no formato AAAA/MM/DD. Os valores .T. (verdadeiro) e .F. (falso) em AdvPL viram respectivamente true e false no JSON. Podemos gerar a representação em texto/string do JSON usando o método toJson(). Consulte a documentação oficial do TDN, existe um método ( JsonObject:Set() ) que permite setar um array diretamente a um objeto JSON.

E para remover uma propriedade ?

Bem, eu acho que essa funcionalidade ainda está para ser criada … Em um JSON, “null” é um valor de propriedade. Logo, se fizermos uma atribuição do valor nulo em AdvPL (NIL) a uma determinada propriedade, ela será representada no JSON com o valor ‘null’, mas não será removida.

Por hora, remover uma propriedade do JSON pode ser feita de uma forma paliativa, atribuindo a uma propriedade um valor fixo, por exemplo a string “#delete#”, e depois de obter a string usando o método toJson(), localizar o texto a ser removido usando por exemplo a função at(), e remover a propriedade e o atributo remontando a string com substr() ou stuff(). — lembrando que uma propriedade pode estar iniciando um objeto, no meio dele, ou finalizado, e que se existe uma vírgula antes e/ou depois da tupla ( “propriedade”:”valor”, uma delas deve ser removida.

Demais considerações

Podemos trabalhar com objetos JSON inclusive maiores que 1MB — desde que você configure o MaxStringSize do Application Server para um novo limite — e com um desempenho muito bom em AdvPL. As sintaxes de acesso direto a propriedades permitem uma abordagem elegante, ágil e simples.

Conclusão

Espero que este conhecimento lhe seja útil, agradeço novamente pela audiência, e desejo a todos TERABYTES DE SUCESSO !!! ❤ Não deixe de consultar os links de referência no final do post. 

Referências

• TDN – Classe JSonObject
• TDN – Funções AdvPL – Manipulação de Strings