String JSON to HASH

[clodoaldomonteiro]

Amigos,

Existe alguma função em xHarbour 1.00 que converta uma string no formato JSON para Hash?

Att.
Clodoaldo Monteiro

[asimoes]

Clodoaldo,

Bom dia,

Tem um exemplo em harbour o fonte é tohash.prg
Fica na pasta contrib\hbexpat\tests

[clodoaldomonteiro]

Simões,

Eu até vi esses exemplos, mas eles não funcionam com o xHarbour 1.00 e estou tendo dificuldades em usar o Harbour 3.4

Muito obrigado pela dica.

[mjuliao]

Olá Clodoaldo,

Eu fiz uma funçãozinha que resolveu meu problema, talvez precise fazer algum ajuste mas pode ser que te ajude.

Código: Selecionar todos

Function JSontoHash( cStringJson )
/***
* Converte string formato Json em Hash
*/
Local hJson := {=>}
cStringJson := StrTran( cStringJson,':[','=>{')
cStringJson := StrTran( cStringJson,'":"','" => "')
cStringJson := StrTran( cStringJson,'[','{')
cStringJson := StrTran( cStringJson,']','}')
cStringJson := StrTran( cStringJson,'":null','"=>nil')
cStringJson := StrTran( cStringJson,'":true' ,'"=>.t.' )
cStringJson := StrTran( cStringJson,'":false','"=>.f.')
cStringJson := StrTran( cStringJson,'":','"=>')
cStringJson := StrTran( cStringJson,"\/","/" )
hJSon := &( cStringJson )
Return hJson