Cobol Foro - [Duda] Caracteres extraños desde archivo csv

Cobol Foro (https://www.cobolforo.es/index.php)

- PowerCOBOL (ActiveX, v4 - v11) (https://www.cobolforo.es/forumdisplay.php?f=9)

- - [Duda] Caracteres extraños desde archivo csv (https://www.cobolforo.es/showthread.php?t=1509)

Para poder ayudarte te repito lo que te dije hace unas semanas:

En que base de datos estás importando el .csv (oracle, postgresql, access, sqlserver, mysql)
Que tipo de codificación (tabla de código) utilizas para las tablas que deseas importar (UTF, ISO_????, Latin?, WIN???)

Si desconoces el funcionamiento del Powercobol, Antes de generar el .csv, añade en un campo alfanumérico lo siguiente: ( en nombre, domicilio, donde sea)

Código:

áéíóúÁÉÍÓÚñÑ

Genera el fichero .csv y me lo envias.

Indica tambien la cuestión 1) y 2)

Cita:

Citación del post de Juanes (Mensaje 8007)

Gracias por su respuesta. Comprobé que al digitar datos nuevos desde el programa de powercobol, se ven correctamente las tildes y eñes, pero al revisar con el comando que usted me envío "more fichero.csv" los muestra mal.

Dependiendo de idioma de la base de datos hay que realizar una transformación.

Si es Latin? o ISO???? con un "inspect" sobrará.

Si la BD está en UTF hay que hacer un bucle transformando cada carácter en 2 (asi es UTF)

Te añado el inspect : ( yo lo tengo para exportar datos de RM/cobol a BD en UTF)

Código COBOL:

      *  Variables de working
       01 msql   pic x(1200).
       
 
      * si la BD es UTF pero lo haces por medio de ODBC
      * puedes probar con esto (msql es la cadena a convertir)
 
              inspect msql converting
                  'áéíóúÁÉÍÓÚñÑºªçÇØøüÜàèìòùÀÈÌÒÙ'
                         to
                  'ßÚÝ¾·┴╔═Ë┌±Ð║¬þÃ  uUßÚÝ¾·┴╔═Ë┌'

Logicamente al ver el csv veras caracteres extraños, debes de probar a importar en la BD para ver como queda.

Indica que caracteres ves en la BD al importar

- - - Updated - - -

Otra cosa que puedes hacer es suprimir los acentos y eñes (pero parece una chapucilla)

Código COBOL:

      *  Variables de working
       01 msql   pic x(1200).
       
 
              inspect msql converting
                  'áéíóúÁÉÍÓÚñÑ'
                         to
                  'aeiouAEIOUnN'

@JCantero, echa un ojo a FUNCTION NATIONAL-OF ;)

@Kuk, en RM/COBOL eso no existe.

Para powercobol desconozco lo que pueda existir para resolver este problema.

Yo intentaba darle una solución con sentencias cobol standard

Hola @Juanes, como te dicen @Kuk, @JCantero, tenes que preguntar a tu Proveedor Tecnológico
que formato del archivo CSV lo necesita , el powercobol esta en formato ANSI

Otra forma rapida podria ser utilizando la DLL de ChilKat , que tiene una
libreria que se llama CSV y con esta libreria podes convertir el archivo CSV
en el formato por ejemplo UTF-8 te paso un ejemplo como seria.

Hay una tabla donde estan todos los charset soportados
Link : Charset (Character Encodings) Supported by Chilkat Components

Código COBOL:

 ENVIRONMENT     DIVISION.
 DATA            DIVISION.
 WORKING-STORAGE SECTION.
 01 PATH-CVS-ANSI   PIC X(256).
 01 PATH-CVS-UTF    PIC X(256).
 01 ReturnValue     PIC S9(9) COMP-5.
 01 charset         PIC X(5) VALUE "utf-8".
 PROCEDURE       DIVISION.
*------------------------------------------------------------------------------------
* LoadFile(path As String) As Long
* Loads a CSV from a file. It is assumed that the CSV file contains ANSI characters.
* Cargamos el archivo en formato ANSI de Cobol 
     MOVE "C:ARCHIVOSARCHIVOANSI.CSV"  TO PATH-CVS-ANSI. *> Tu archivo de powercobol
     INVOKE ChilkatCsv1 "LoadFile" USING PATH-CVS-ANSI RETURNING ReturnValue.
     DISPLAY "Resultado Archivo cargado : " , ReturnValue. *> = 1 resultado positivo
*---------------------------------------------------
* SaveFile2(filename As String, charset As String) As Long
* Saves a CSV to a file. The charset specifies the character encoding to use for the CSV file. 
* The text data is converted to this charset when saving. 
* A list of supported character encodings may be found on this page: Supported Charsets.     
* Grabamos el nuevo archivo de cobol en formato utf-8
     MOVE "C:ARCHIVOSINFILEUTF8.CSV" TO PATH-CVS-UTF
     INVOKE ChilkatCsv1 "SaveFile2" USING PATH-CVS-UTF charset RETURNING ReturnValue.
     DISPLAY "Resultado Archivo convertido : " ,  ReturnValue *> = 1 resultado positivo

Saludos ....

Cita:

Citación del post de fastpho (Mensaje 8038)

el powercobol esta en formato ANSI

Saludos ....

Si está en formato ANSI, creo que con el inspect que le he puesto va a funcionar. Pero tiene que probarlo y decirnos si no es así. Para cambiar los caracteres.

Yo realizo cambios de LATIN o ANSI a UTF y viceversa. Lo que ocurre que no lo tengo en rutina sino con un copy, asi que si @Juanes prueba lo que le digo podemos avanzar.

Hola quiero agradecerles a Kuk, JCantero, fastpho, Fito, quienes muy amablemente me dieron ideas para solucionar.

Me disculpo hasta ahora escribir debido a que tuve cirugía de ambos ojos.

Traté de averiguar respecto a la base de datos en la que se subía el archivo y nunca obtuve respuesta debido a que el archivo es para la administración de impuestos de mi país, y fue imposible.

Probé todas las posibles soluciones sugeridas y através de estas pruebas logré identificar que al convertir el archivo .csv a utf-8 si lo validaba correctamente con los caracteres especiales.

Entonces lo solucioné usando el siguiente comando powershell, para convertir el archivo .csv a utf-8.

Código COBOL:

INVOKE POW-SELF "Execute" USING 'powershell -command "Get-Content texto.csv" > texto-utf8.csv'

:bien:

Muchas gracias.