topic-33273

Posts: 470

Joined: Fri Feb 05, 2010 11:30 AM

Descargar un JSON
Posted: Fri Dec 02, 2016 01:50 PM

Amigos,
estuve leyendo y releyendo los posts y no encuentro como solucionar esto por eso los molesto.
Tengo lo siguiente:

cRespuesta:=Alltrim(oHttp:responseText)
hb_jsondecode(cRespuesta,@aProductos)

Verifico el resultado:
xbrowse(aProductos["pedidos"])

Todo perfecto... pero no sé como llevar ese Hash a un vector...
Hice varias pruebas y no lo puedo hacer funcionar...

Muchas gracias y disculpas...
Roberto

Univ@c I.S.I.
Desarrolladores de Software
http://www.elcolegioencasa.ar

quim

Posts: 56

Joined: Mon Apr 11, 2011 06:22 PM

Re: Descargar un JSON
Posted: Fri Dec 02, 2016 04:15 PM

Buenas ...
Prueba de iterar con for each

Code (fw): Select all Collapse

aKeys    := {}
aValues := {}
for each e in aProductos
   aadd( aKeys, e:__enumKey )
   aadd( aValues, e:__enumValue )
next

Suerte !

TOTOVIOTTI

Posts: 470

Joined: Fri Feb 05, 2010 11:30 AM

Re: Descargar un JSON
Posted: Fri Dec 02, 2016 07:19 PM

Si, intenté usar el for each pero me da error....
Que puede ser?
Gracias

Univ@c I.S.I.
Desarrolladores de Software
http://www.elcolegioencasa.ar

xmanuel

Posts: 817

Joined: Sun Jun 15, 2008 07:47 PM

Re: Descargar un JSON
Posted: Sat Dec 03, 2016 09:05 AM

Si aProductos es una tabla hash

Para los valores:

prueba esto en harbour

aVal := HB_HVALUES( aProductos )

o en xHarbour

aVal := HGETVALUES( aProductos )

Para las claves

prueba esto en harbour

aKeys := HB_HKEYS( aProductos )

o en xHarbour

aKeys := HGETKEYS( aProductos )

______________________________________________________________________________

Sevilla - Andalucía

TOTOVIOTTI

Posts: 470

Joined: Fri Feb 05, 2010 11:30 AM

Re: Descargar un JSON
Posted: Mon Dec 05, 2016 01:57 PM

Estimados...
yo tengo que aProductos["pedidos"] es una tabla Hash.

Cuando hago en HVALUES o el HKEYS me da error de argumento.

también hago:

aVal:=aProductos["pedidos"]
vector:=HB_HVALUES(aVal)

Y me da error... pero a la vez cuando hago:
xbrowse(aProductos["pedidos"])

la información se visualiza perfecto....
Como hago para llevar ese Hash a una matriz?

Gracias...
Roberto

Univ@c I.S.I.
Desarrolladores de Software
http://www.elcolegioencasa.ar

xmanuel

Posts: 817

Joined: Sun Jun 15, 2008 07:47 PM

Re: Descargar un JSON
Posted: Mon Dec 05, 2016 10:32 PM

Lo primero es saber que es aProductos["pedidos"].
Si hacer

Code (fw): Select all Collapse

alert( ValType(aProductos["pedidos"])

Qué te dice?
Cuando haces

Code (fw): Select all Collapse

xbrowse(aProductos["pedidos"])

que aparece por pantalla?

Si usas xHarbour deberias usa HVALUES o el HKEYS

Si esto

Code (fw): Select all Collapse

aVal := HGETVALUES( aProductos )

Te da error, prueba:

Code (fw): Select all Collapse

aVal := HGETVALUES( aProductos["pedidos"])

PD: Pink Floyd, The wall, me encanta la tengo en mi top ten...

______________________________________________________________________________

Sevilla - Andalucía

TOTOVIOTTI

Posts: 470

Joined: Fri Feb 05, 2010 11:30 AM

Re: Descargar un JSON (resuelto)
Posted: Tue Dec 06, 2016 02:10 PM

Ahí lo pude hacer funcionar!!!
Gracias!!

PD: Además del gusto por FW también por PFloyd!! Abrazo.

Univ@c I.S.I.
Desarrolladores de Software
http://www.elcolegioencasa.ar

xmanuel

Posts: 817

Joined: Sun Jun 15, 2008 07:47 PM

Re: Descargar un JSON
Posted: Wed Dec 07, 2016 07:46 PM

Me alegro compañero!!!

Caballeros, debo recordarles que, mis probabilidades de éxito, aumentan en cada nuevo intento...

______________________________________________________________________________

Sevilla - Andalucía

FiveTech Support Forums

Continue the discussion