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..
Board index FiveWin para Harbour/xHarbour Como Crear archivo .csv
Tomaso
Los Archivos .cvs son archivo de texto plano, podes usar:
Saludos,
Adhemar
Los Archivos .cvs son archivo de texto plano, podes usar:
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
Saludos,
Adhemar C.
Adhemar C.
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.
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
Luis Alfonso Fuentes Guerrero
FWH 11.06 xHarbour 1.2.1 BCC55 WorkShop
FWH 11.06 xHarbour 1.2.1 BCC55 WorkShop