caracter de fin de linea en archivo de texto
Aldo Valente
Hola amigos :
Me pueden orientar, necesito el carácter de fin de linea en la ultima linea del archivo de texto, que es para exportar a otro sistema,
Uso
@say 1,1 xcampo picture “9999”
@say 1,5 xotrocampo picture “!!!!!!!!!!”
El tema es que en el último registro no existe el fin de linea o retorno de carro, entonces cuando procedo a importar genera un error, lo que hago
Es editar el archivo y el ultima linea agregar un enter.
Saludos a todos y gracias
__________ Información de ESET NOD32 Antivirus, versión de la base de firmas de virus 6389 (20110818) __________
ESET NOD32 Antivirus ha comprobado este mensaje.
http://www.eset.com
Mauricio Molinero,
Saludos!
Mauricio R. Molinero,
Alfonso Arias Lemas
De: "Mauricio Molinero," <pip...@gmail.com>
Para: Comunidad de Visual Foxpro en Español <publice...@googlegroups.com>
Enviado: viernes 19 de agosto de 2011 11:13
Asunto: [vfp] Re: caracter de fin de linea en archivo de texto
Luis Maria Guayan
VFP tiene varios comandos que seguramente te simplificarán la tarea. Mira la ayuda de:
COPY TO ... TYPE
STRTOFILE()
TEXT TO ...
Luis María Guayán
Tucumán, Argentina
_________________________
http://www.PortalFox.com
Nada corre como un zorro
_________________________
Mauricio Molinero,
Ni hablar que es antiguo,
Tambien se puede usar Fopen()
Saludos!
Mauricio R. Molinero,
Walter R. Ojeda Valiente
En Linux se usa CHR(10)
En otros sistemas operativos, una de esas dos posibilidades.
Dependiendo de donde y hacia donde se har锟斤拷 la exportaci锟斤拷n deber锟斤拷as usar los caracteres adecuados.
Saludos.
Walter.
A锟斤拷n sin novedades del imaginario dios de "extremo".
From: al...@r12.com.ar
To: publice...@googlegroups.com
Subject: [vfp] caracter de fin de linea en archivo de texto
Date: Fri, 19 Aug 2011 09:09:22 -0300
Hola amigos :
锟斤拷锟斤拷锟斤拷锟斤拷锟斤拷锟斤拷锟斤拷锟斤拷锟斤拷锟斤拷锟斤拷锟斤拷 Me pueden orientar, necesito el car锟絚ter de fin de linea en la ultima linea del archivo de texto, que es para exportar a otro sistema,
Uso
@say?1,1 xcampo 锟斤拷锟斤拷锟斤拷锟斤拷锟斤拷锟斤拷锟絧icture 锟斤拷9999锟斤拷
@say锟斤拷 1,5 xotrocampo锟斤拷?锟絧icture 锟斤拷!!!!!!!!!!锟斤拷
El tema es que en el 锟絣timo registro no existe el fin de linea o retorno de carro, entonces cuando procedo?a importar?genera un error, lo que hago
Es editar el archivo y el ultima linea agregar un enter.
Saludos a todos y gracias锟斤拷
__________ Informaci锟絥 de ESET NOD32 Antivirus, versi锟絥 de la base de firmas de virus 6389 (20110818) __________
Aldo Valente
Muchas gracias foro lo solucione con chr(10) en la ultima linea
__________ Información de ESET NOD32 Antivirus, versión de la base de firmas de virus 6394 (20110819) __________
Templario
select crReporte
go top
* Abre el Archivo de Texto
lcArchivo = "c:\tmp\arch_Varios_2011.txt"
if file(lcArchivo) && Existe Archivo
gnArchivo = fopen(lcArchivo,12) && Abrir Archivo
else
gnArchivo = fcreate(lcArchivo) && crear Archivo
endif
if gnArchivo < 0 && Ha error
messagebox("No se puede crear o Abrir el Archivo",16,"Error")
return
endif
* **
do while !eof()
lcCadena = "Campo1....: "+padr(alltrim(crReporte.campo1),10,20)
lcCadena = lcCadena +"Campo2....:
"+padr(alltrim(crReporte.campo2),10,20)
lcCadena = lcCadena +"Campo3....:
"+padr(alltrim(crReporte.campo3),10,20)
lcLinea = lcCadena
=fputs(gnArchivo, lcLinea) && escribe una Linea en el Fin de Linea
select crReporte
skip
enddo
=fclose(gnArchivo) && Close file
modify command &lcArchivo