Crear generar un TXT

[Dasije]

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:

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

Volcar información:

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

Terminar:

TraceEnd()

Saludos.


Nitzer, JRBonafonte, Fito,

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


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