topic-43884

Board index FiveWin para Harbour/xHarbour CAdena JSON

Posts: 1054

Joined: Sun Oct 09, 2005 10:41 PM

CAdena JSON
Posted: Wed Nov 08, 2023 03:52 AM

Estimados amigo,

obtengo esta cadena JSON pero no puedo procesar la informacion que continua a "licencia", gracias por vuestro apoyo

{"status":200,"message":"Exito","data":{"numero_documento":"23869035","grupo_sanguineo":"O+","donacion_organos":"SI","licencia":[{"numero":"Z23869035","categoria":"A I","fecha_vencimiento":"09/03/2031","estado":"VIGENTE","restricciones":"CON LENTES"}]}}

csincuir

Posts: 476

Joined: Sat Feb 03, 2007 06:36 AM

Re: CAdena JSON
Posted: Wed Nov 08, 2023 12:57 PM

Hola Willi, prueba de esta manera:

Code (fw): Select all Collapse

cJs := '{"status":200,"message":"Exito","data":{"numero_documento":"23869035","grupo_sanguineo":"O+","donacion_organos":"SI","licencia":[{"numero":"Z23869035","categoria":"A I","fecha_vencimiento":"09/03/2031","estado":"VIGENTE","restricciones":"CON LENTES"}]}}'
hJs := ""
hb_jsonDecode(cJs,@hJs)
hDat := hJs["data"]
aLic := hDat["licencia"]
hLic := aLic[1]
? hLic["numero"]

Saludos cordiales.

Carlos.

Willi Quintana

Posts: 1054

Joined: Sun Oct 09, 2005 10:41 PM

Re: CAdena JSON SOLUCIONADO
Posted: Wed Nov 08, 2023 03:01 PM

Gracias Carlos, funcionó perfectamente

FiveTech Support Forums

Continue the discussion