Respuesta JSON convertirla en lista

184 views
Skip to first unread message

Edwin Quijada

unread,
Nov 30, 2015, 5:02:12 PM11/30/15
to Comunidad de Visual Foxpro en Español
Buenas, estoy usando la libreria qdFoxJSON para recibir un JSON en una llamada lo recibo perfectamente bien pero ahora quiero poder iterar sobre este JSON.
Esto es lo que recibo
[{"codigo_cliente":"1","aplicado":"1,270.00;181,30.0","numero_recibo":2,"monto":300.00,"concepto":"Saldado a Factura 1,Abono a Factura 181"},{"codigo_cliente":"2","aplicado":"2,270.00;182,230.0","numero_recibo":3,"monto":500.00,"concepto":"Saldado a Factura 2,Abono a Factura 182"}]

Hasta aqui todo bien lo convierto en un objeto JSON con esto
 myObject = JSONObject(t)

pero no se si al hacerlo como iterar en cada uno de los objetos, Suponia que lo que debia hacer era una lista o un arreglo de objetos JSON para iterar sobre esta con cada objeto.

Cual es la solucion para hacerlo como digo o me tocara hacerlo manual ?

Gracias

Victor Espina

unread,
Dec 1, 2015, 6:20:18 AM12/1/15
to Comunidad de Visual Foxpro en Español
La libreria convierte los arrays JSON en una coleccion, asi que deberias poder hacer esto:

FOR i = 1 TO myObject.Count
 oItem
= myObject.Item[i]
 
?oItem.codigo_cliente, oItem.aplicado
ENDFOR




Victor Espina

Edwin Quijada

unread,
Dec 1, 2015, 10:04:24 AM12/1/15
to Comunidad de Visual Foxpro en Español
Victor, funciono perfectamente. Muchas Gracias !!!

Buen trabajo!

Jackson Caminho

unread,
Nov 1, 2016, 12:06:27 PM11/1/16
to Comunidad de Visual Foxpro en Español
Edwin estrangeira Quijada, ok?

Eu estava assistindo a este grupo e não sei se você pode me ajudar ..

Eu tenho um retorno de um JSON, como o que foi e não sou capaz de tratá-lo.

Eu tenho uma mão?

Em segunda-feira, 30 de novembro de 2015 20:02:12 UTC-2, Edwin Quijada escreveu:
. Oi, eu estou usando a biblioteca qdFoxJSON para receber um JSON em uma chamada recebo perfeitamente bem, mas agora eu quero iterar sobre esta JSON
Isto é o que eu recebo
[{ "codigo_cliente": "1", " aplicado": "1.270,00; 181 30.0 ", " numero_recibo ": 2," quantidade "300 00" conceito ":" resolvido a facturar 1 creditada a Bill 181 "}, {" codigo_cliente "," 2 "," aplicado ":" 2270,00 ; 182.230,0 " ," numero_recibo ": 3," quantidade ": 500,00," conceito ":" Eu estabeleci-me para Bill 2, Abono para Bill 182 "}]

até agora tão bom eu me tornar um objeto JSON com este
 myObject = JSONObject (t )

mas não se fazer de modo a iteração em cada um dos objetos, supostamente o que fazer foi uma lista ou uma matriz de objetos JSON para repetir isso com cada objeto.

o que é a solução para fazer o que eu digo ou eu toco fazê-lo manualmente?

Graças

Edwin Quijada

unread,
Nov 1, 2016, 2:40:17 PM11/1/16
to publice...@googlegroups.com
No entiendo mucho el idioma puedes traducirme ?

Jks

unread,
Nov 1, 2016, 2:56:06 PM11/1/16
to publice...@googlegroups.com
Estaba viendo este grupo y no sé si usted me puede ayudar ..

Tengo un retorno de un JSON en cuanto a lo que era y no soy capaz de tratarla.

Tengo una mano?
--
....

Jks

unread,
Nov 1, 2016, 2:58:41 PM11/1/16
to publice...@googlegroups.com
Que estaba viendo este grupo y no sé si usted me puede ayudar ..

Vi que lo hizo una vuelta en JSON VFP, debe hacer lo mismo, habría que me ayude?

El JSON se llevará a este sitio

Si puedo, muchas gracias

Em 1 de novembro de 2016 16:40, Edwin Quijada <jqm...@gmail.com> escreveu:



--
....

Victor Espina

unread,
Nov 10, 2016, 2:15:21 PM11/10/16
to Comunidad de Visual Foxpro en Español
Jackson, te recomiendo que uses la nueva libreria JSON.PRG (http://noiqs.com/sos/json.prg).  Esta libreria contiene un metodo que soluciona directametne tu problema:

DO json.prg

oResp = JSON.httpGet("http://fipeapi.appspot.com/api/1/carros/marcas.json")

?oResp.Count
FOR i = 1 TO oResp.Count
oItem = oResp.Item[i]
?oItem.key, oItem.id, oItem.fipe_name
ENDFOR


Victor Espina

Esteban H.

unread,
Nov 10, 2016, 2:49:24 PM11/10/16
to publice...@googlegroups.com

Hola Victor

Veo q la versión de la librería q tienes en el link es un punto más q la q tengo 1.13.

En la 1.12 yo había tenido un error con un archivo json donde vos me recomendaste eliminar todo el ciclo y veo q en esta nueva lo tenés nuevamente.

El ciclo era el siguiente:

 

        FOR j = 1 TO oExtras.Count

         cProp = oExtras.Item[j]

         uValue = GETPEM(poExtraData, cProp)

         REPLACE (cProp) WITH uValue

        ENDFOR

 

Excelente librería….

 

Saludos

 

Esteban

Victor Espina

unread,
Nov 10, 2016, 4:17:38 PM11/10/16
to Comunidad de Visual Foxpro en Español, er...@yahoo.com.ar
Si, es que es un codigo aun no terminado. La verdad, lo habia olvidado por completo.  Mis disculpas.  Por ahora, vuelve a eliminar ese bloque :)


Victor
Reply all
Reply to author
Forward
0 new messages