Descargar un JSON

[TOTOVIOTTI]

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

[quim]

Buenas ...
Prueba de iterar con for each

Code: Select all

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

Suerte !

[TOTOVIOTTI]

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

[xmanuel]

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 )

[TOTOVIOTTI]

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

[xmanuel]

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

Code: Select all

alert( ValType(aProductos["pedidos"])

Qué te dice?
Cuando haces

Code: Select all

xbrowse(aProductos["pedidos"])

que aparece por pantalla?

Si usas xHarbour deberias usa HVALUES o el HKEYS

Si esto

Code: Select all

aVal := HGETVALUES( aProductos )

Te da error, prueba:

Code: Select all

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

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

[TOTOVIOTTI]

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

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

[xmanuel]

Me alegro compañero!!!

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