leer archivo

leer archivo

Postby surGom » Sun Mar 19, 2017 10:17 pm

Hola compañeros tengo el siguiente problema. Hago una consulta a un web service desde dónde la respuesta es un archivo json, a este lo transformo en un txt (cResp.txt) y queda asi

{"success":true,"data":{"idPersona":30520528931,"tipoPersona":"JURIDICA","tipoClave":"CUIT","estadoClave":"ACTIVO","nombre":"NOSEL PODER S.A.","domicilioFiscal":{"direccion":"BELGRANO AV. 1955 Piso:28","codPostal":"1092","idProvincia":0},"idDependencia":8,"mesCierre":12,"fechaInscripcion":"1901-01-01","fechaContratoSocial":"1977-02-03","impuestos":[10,25,30,103,211,217,218,301,353,767],"actividades":[469090,201180,466932,649999,681098,463111],"caracterizaciones":[68,71,72,255,337]}}

Lo leo de la siguiente forma:

Code: Select all  Expand view

? SubStr(strtoken(cResp,4,":"),1,At(",",strtoken(cResp,4,":"))-1)
  30520528931
? SubStr(strtoken(cResp,5,":"),1,At(",",strtoken(cResp,5,":"))-1)
 "JURIDICA"
? SubStr(strtoken(cResp,6,":"),1,At(",",strtoken(cResp,6,":"))-1) + Space(3) + SubStr(strtoken(cResp,7,":"),1,At(",",strtoken(cResp,7,":"))-1)
 "CUIT"   "ACTIVO"
? SubStr(strtoken(cResp,8,":"),1,At(",",strtoken(cResp,8,":"))-1)
 "NOSEL PODER S.A."
 


el problema lo tengo con la dirección cuando viene entre los apóstrofes con 2 puntos intermedios.
si hago

1.-
? SubStr(strtoken(cResp,10,":"),1,At(",",strtoken(cResp,10,':'))-1)
no devuelve nada
2.-
? SubStr(strtoken(cResp,10,":"),1))
BELGRANO AV. 1955


Alguna sugerencia?
Hay alguna otra forma de leerlo?

Gracias por su atención

Luis
surGom
 
Posts: 542
Joined: Wed Oct 19, 2005 12:03 pm

Re: leer archivo

Postby Daniel Garcia-Gil » Mon Mar 20, 2017 4:01 am

Saludos

usa hb_jsonDecode( cResp, @hJson )

despues hJson lo puedes usar como un hash

ejemplo

? hJson["data"]["idPersona"]
? hJson["data"]["domicilioFiscal"]["direccion"]
User avatar
Daniel Garcia-Gil
 
Posts: 2360
Joined: Wed Nov 02, 2005 11:46 pm
Location: Isla de Margarita

Re: leer archivo

Postby surGom » Mon Mar 20, 2017 11:46 pm

Gracias Daniel. Funciona perfecto

Luis
surGom
 
Posts: 542
Joined: Wed Oct 19, 2005 12:03 pm


Return to FiveWin para Harbour/xHarbour

Who is online

Users browsing this forum: No registered users and 7 guests