Leer dato en un archivo Json con Chilkat...

**Fito** · 19.09.2026 13:19

Hola Amigos:

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

Código COBOL:

{
    "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 · 02.09.2026 00:15

@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** · 19.09.2026 13:19

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 · 02.09.2026 00:15

@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 · 21.08.2026 18:08

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

Código:

NameAt

, obtenemos el nombre del miembro N
Con el metodo

Código:

StringAt

, devuelve el valor de cadena del miembro N

Código COBOL:

 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** · 19.09.2026 13:19

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 · 21.08.2026 18:08

Hola @Fito : probaste con el metodo

Cita:

❞

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** · 19.09.2026 13:19

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 · 21.08.2026 18:08

@Fito, podes probar con

Cita:

❞

ChilkatStringBuilder

. con el metodo
GetAfterBetween

Código COBOL:

       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** · 19.09.2026 13:19

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...

Otros temas que te pueden interesar
Tema	Autor	Foro	Respuestas	Último post
[Sintaxis] Leer archivo .ini	Fito	PowerCOBOL (ActiveX, v4 - v11)	7	10 de julio de 2023 14:55
[PowerCOBOL] Código para recibir archivo json y leerlo	fastpho	Cocina PowerCOBOL	24	13 de octubre de 2022 21:35
[PowerCOBOL] Código para crear archivo Json	fastpho	Cocina PowerCOBOL	11	16 de noviembre de 2021 20:24
[Duda] Leer archivo AcuCobol con PowerCobol	Roger	PowerCOBOL (ActiveX, v4 - v11)	7	28 de septiembre de 2016 10:44
[Sintaxis] Leer archivo texto con codificacion UTF-8	Recato53	PowerCOBOL (ActiveX, v4 - v11)	1	18 de abril de 2016 10:47

Likes

Likes

Likes

Likes

Likes

Likes

Likes

Likes

Likes

Likes


		Archivo - Cobol Foro		Webdesign by: vbdesigns.de		Contactar con Nosotros - Cobol Foro