Page 1 of 1
Como Crear archivo .csv
Posted: Tue Aug 31, 2010 4:24 pm
by 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..
Re: Como Crear archivo .csv
Posted: Tue Aug 31, 2010 6:47 pm
by 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
Re: Como Crear archivo .csv
Posted: Tue Aug 31, 2010 8:40 pm
by 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.
Re: Como Crear archivo .csv
Posted: Sat Sep 04, 2010 8:27 pm
by 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