Cobol Foro - [Sintaxis] Crear generar un TXT

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

- WinDev (https://www.cobolforo.es/forumdisplay.php?f=76)

- - [Sintaxis] Crear generar un TXT (https://www.cobolforo.es/showthread.php?t=513)

Crear generar un TXT

Una de las formas más fácil y rápida de crear un fichero de texto, como puede ser para exportar datos por ejemplo, sería así:

Crear fichero:

Código WinDev:

TraceStart(trCreation+trFile,"tickets_subidos.txt")

Volcar información:

Código WinDev:

Trace("ticket"+";"+"linea")

Terminar:

Código WinDev:

TraceEnd()

Saludos.

Nitzer, JRBonafonte, Fito,

Para aportar otra forma, sería así:

Supongamos que tenemos un archivo de artículos y queremos hacer un csv, separado por ";", con el código, descripción, existencia.

Código WinDev:

sArchivoCSV is string  = ""  // definimos una variable para "acumular" los datos
        
FOR EACH Arti     // leemos todo el archivo de articulos y pasamos los valores a
                        // la variable
    sArchivoCSV += Arti.Codigo + ";" + Arti.Descrip + ";" + Arti.Existencia + CR
    // fijense que mezclé campos numéricos y alfanuméricos sin aplicar ninguna 
    // funcion para convertir tipo de dato. Windev lo hace solo.
END
IF sArchivoCSV<>"" THEN
    fSaveText("Archivo.CSV",sArchivoCSV)
END

Saludos.

Fito...