[Sintaxis] Leer dato en un archivo Json con Chilkat...

[Fito]

Hola Amigos:

Acá les paso una parte de un archivo json (no está completo, le deben faltar cerrar estructuras).

{
    "success": true,
    "numberOfItems": 1000,
    "data": [{
                "c": {
                    "visit": null,
                    "dLine": null,
                    "ivr": null,
                    "dk": null,
                    "eg": null,
                    "p": {
                        "01": {
                            "k": "01",
                            "n": "",
                            "p": ""
                        }
                    },
                    "rk": "414338",
                    "pl": "0001",
                    "tc": null,
                    "sc": null,
                    "fn": null,
                    "t": null,
                    "n": "AUTOSERVICIO EL GRINGO",
                    "rc": null,
                    "ta": null,
                    "bn": "AUTOSERVICIO EL GRINGO",
                    "su": null,
                    "it": "DNI",
                    "e": null,
                    "f": null,
                    "b": null,
                    "s": {
                        "0025": true
                    },
                    "freq": null,
                    "or": null,
                    "de": null,
                    "i": null,
                    "a": {
                        "01": {
                            "a": "LEARTE 518  ESQ ALBERTI",
                            "k": "01",
                            "n": "CORDOBA",
                            "s": "Cordoba",
                            "z": "5000"
                        }
                    },
                    "k": "414338"
                },
                "py": {
                    "a01": {
                        "m": 0,
                        "a": "4179.75",
                        "t": 1672662427727,
                        "k": "a01"
                    }
                },
                "impdoc": {
                    "0001701000100225728X": {
                        "createdAt": 1672504338523,
                        "dc": "FC",
                        "da": 4180,
                        "rk": "0001701000100225728X      ",
                        "saldo": 4179.75,
                        "te": 1672747200000,
                        "s": "0025",
                        "q": {
                            "01": {
                                "k": "01",
                                "ia": 4179.75,
                                "pa": 0,
                                "qn": "01",
                                "te": 1672747200000,
                                "selected": true,
                                "py": 4179.75
                            }
                        },
                        "tc": 1672142400000,
                        "bn": "AUTOSERVICIO EL GRINGO",
                        "do": "0001",
                        "updatedAt": 1672504338523,
                        "k": "0001701000100225728X",
                        "cn": "AUTOSERVICIO EL GRINGO",
                        "c": "414338",
                        "co": null,
                        "url": null,
                        "dt": "FC",
                        "dn": "00225728",
                        "mo": "2",
                        "k2": null,
                        "dd": null,
                        "st": {}
                    }
                },
                "p": {
                    "c": {
                        "la": -31.415711666666667,
                        "lo": -64.136835
                    },
                    "m": false
                },
                "envId": "eE8Hj9Ob1p",
                "st": 0,
                "fk": "00251672662427727",
                "l": "1342",
                "ta": "4179.75",
                "ap": null,
                "r": "null",
                "s": "0025",
                "t": 1672662427727,
                "sk": "0025230002092707",
                "createdAt": "2023-01-02T12:27:05.315Z",
                "updatedAt": "2023-01-02T12:27:05.315Z"
            }

Si buscan el campo "impdoc" van a ver que adentro hay un abjeto "0001701000100225728X" este objeto es variable, no siempre se llama igual y no logro cómo puedo leerlo para poder dirigirme a los datos que hay dentro. Si pongo ese valor funciona, pero ese valor no lo sé, porque se compone de datos de un comprobante. En síntesis tengo que lograr leer el dato "impdoc" y poder saber qué tiene adentro.

No sé si me expliqué bien. Cualquier cosa me preguntan.

Para leer los json estoy usando el activex de chilkat. En este foro hay unos ejemplos, pero ninguno tiene la estructura esta.

Saludos

Fito...

[JCantero]

@Fito, si no entiendo mal dices que dentro de "impdoc" hay un subJson cada vez diferente a "0001701000100225728X" y supongo que dentro de este subJson (cada vez diferente) las etiquetas si serán ya iguales.

Yo en cobol no utilizo Json pero si en C# y yo haria esto:

1) cogería el contenido de "impdoc"
2) podria leer la primera etiqueta que en este caso es "0001701000100225728X"
3) deserializaría el contenido en una clase (que supongo que sera siempre sería igual)

En cobol ( como no tengo utilizades para acceder)

1) cogería el contenido de "impdoc"
2) cambiaria la descripción de la etiqueta "0001701000100225728X" por una fija. (guardando este contenido si hay que utilizarlo)
3) y trataría el json

No se si esto te sirve.

A ver si algún forero tiene otra idea mas adecuada.

[Fito]

Hola @JCantero,

El tema es que no sé cómo leer esa etiqueta, porque con la etiqueta leo el contenido, pero la etiqueta en si, no.

No quería recurrir al windev para esto, quería tenerlo todo en cobol. Pero me parece que no me va a quedar otra si lo quiero resolver rápido.

Saludos.

Fito...

[JCantero]

@Fito, el contenido de "impdoc" lo puedes coger perfectamente.

Una vez tengas ese contenido ( en un string por ejemplo ) analiza la etiqueta variable y el resto.

Pasa el resto a tu proceso como un Json y creo que lo tienes resuelto.

[fastpho]

Hola @Fito te paso un ejemplo como recorrer los miembros inmediatos de un objeto JSON.
Con el metodo

NameAt

, obtenemos el nombre del miembro N
Con el metodo

StringAt

, devuelve el valor de cadena del miembro N

 WORKING-STORAGE SECTION.
 01 ReturnValue  PIC s9(9) comp-5.
 01 I            PIC 99.
 01 lSIZE        pic s9(9) comp-5.
 01 txtNAME      PIC X(50).
 01 txtValue     PIC X(1024).
 PROCEDURE       DIVISION.
       INVOKE ChilkatJsonObject2 "LoadFile" USING "JSON.txt" RETURNING ReturnValue.
       display "ReturnValue : " , ReturnValue.
       
       MOVE "Size" OF ChilkatJsonObject2 TO lSIZE.
       display "lSIZE : " , lSIZE.
       MOVE 0 TO I.
       PERFORM VARYING I  FROM 0 BY 1  UNTIL I  = lSIZE
       DISPLAY "I: " , I
             INVOKE ChilkatJsonObject2 "NameAt" USING I RETURNING txtNAME
             DISPLAY "NAME : " , txtNAME
             INVOKE ChilkatJsonObject2 "StringAt" USING I RETURNING txtValue
             DISPLAY "VALUE : " , txtvalue
       END-PERFORM. 

Espero te sirva
Saludos ...

[Fito]

Hola:

Saben si existe algún método para verificar si determinado campo existe en el archivo Json? Porque me da error de tipo de dato,

Saludos

Fito...

[fastpho]

Hola @Fito : probaste con el metodo

❞ FindRecordString

te paso un link : https://www.chilkatsoft.com/refdoc/x....html#method35
ejemplo en vb : https://www.example-code.com/vb6/jso...ord_string.asp

Saludos ...

pd: pudiste resolver (Si buscan el campo "impdoc" van a ver que adentro hay un objeto "0001701000100225728X" este objeto es variable) ?

[Fito]

Hola @fastpho,

Ese proyecto lo tengo en el freezer, no seguí por ahora. Voy a ver si con ese método soluciono lo otro,

Gracias

Saludos

Fito...

[fastpho]

@Fito, podes probar con

❞ ChilkatStringBuilder

. con el metodo
GetAfterBetween

       move 'impdoc' to searchAfter(1:6).
       move '{'     to beginMark(1:1) 
       move ':'         to endMark(1:1) 
       INVOKE ChilkatStringBuilder1 "GetAfterBetween" USING searchAfter beginMark endMark

Saludos...

[Fito]

Hola @fastpho,

Estoy retomando este proyecto. Ahí logré hacer lo que quería, pero tuve que trabajar con COM. Porque necesité generar un objeto desde otro objeto para poder usar el "NameAt".

Anduvo bien. Muchas Gracias.

Saludos

Fito...