Página 1 de 1
String JSON to HASH
Enviado: 30 Dez 2015 15:53
por clodoaldomonteiro
Amigos,
Existe alguma função em xHarbour 1.00 que converta uma string no formato JSON para Hash?
Att.
Clodoaldo Monteiro
String JSON to HASH
Enviado: 05 Jan 2016 11:32
por asimoes
Clodoaldo,
Bom dia,
Tem um exemplo em harbour o fonte é tohash.prg
Fica na pasta contrib\hbexpat\tests
String JSON to HASH
Enviado: 06 Jan 2016 10:42
por 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.
String JSON to HASH
Enviado: 08 Jan 2016 17:40
por 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