Como Crear archivo .csv

[tomaso26]

Estimados Fivewiners

Pido su ayuda para el siguiente tema; necesito crear un archivo .CSV separado por ";" he utilizado delimited ";" pero no anda??? alguien tendra algún ejemplo,

agradecido

Tomaso..

[acuellar]

Tomaso

Los Archivos .cvs son archivo de texto plano, podes usar:

Code: Select all

oPrn:TDosPrn():New( "C:\ARCHIVO.CVS" )
oPrn:Say(1,1,"HOLA;QUE TAL" )
oPrn:End()
ó

cFile:=FCREATE( "C:\ARCHIVO.CVS" )
FWRITE(cFile,,"HOLA;QUE TAL"+CRLF )
FCLOSE( cFile )
 

Saludos,

Adhemar

[tomaso26]

Adhemar gracias por tu apoyo..

Efectivamente necesito crear un archivo de texto con separación ";" entre cada dato, y una linea por registro obtenido desde una dbf.

nombre;apellido;direccion;telefono;valor_deuda;fecha_emision;glosa;comprobante
nombre;apellido;direccion;telefono;valor_deuda;fecha_emision;glosa;comprobante
nombre;apellido;direccion;telefono;valor_deuda;fecha_emision;glosa;comprobante
xxx lineas

probare con lo que indicas..

salu2

Tomaso.

[lafug]

usa esta simple rutina a mi me funciona perfecto para generar archivos de texto o csv

local LINEA:="",oText

oText := TTxtFile():New("C:\PERSO.TXT") // NOMBRE DE MI ARCHIVO DE TEXTO
USE PERSONAL NEW SHARED
SET INDEX TO PERSONAL


DO WHILE PERSONAL->(!EOF())

LINEA:=LINEA+PERSONAL->ApePat_Per+";" // Apellido paterno
LINEA:=LINEA+PERSONAL->ApeMat_Per+";" // Apellido Materno

PERSONAL->(DBSKIP())
oText:Add(LINEA)

ENDDO
oText:Close() // CIERRA EL ARCHIVO DE TEXTO
WinExec( "NOTEPAD PERSO.TXT") // para verlo en el block de notas