FiveTech Software tech support forums

Posted: **Wed Mar 07, 2007 5:36 pm**

Ya he puesto varias veces el mensaje en el foro
necesito generar un fichero ascii con los siguientes datos. Mi intencion es generar un fichero asci con los datos de los pedidos y enviarlos por correo electronico.

El formato de de ser el siguiente
==========================================
Articulo Nombre del articulo Cantidad
==========================================
??????? ????????????????????????????????????? ????????????
??????? ????????????????????????????????????? ????????????
??????? ????????????????????????????????????? ????????????
y asi sucesivamente, he probado con el FWRITE(xxx,texto+chr(10)+chr(13))
pero no me realiza el salto de linea en el fichero ASCII y no se como solucionar este problema de otra forma.

GRACIAS
imjcc@mjccsl.com

Posted: **Wed Mar 07, 2007 6:22 pm**

Este ejemplo funciona correctamente:

Code: Select all

#include "FWCE.ch"

function Main()

   local nHand := fCreate('fichero.txt') 

   fWrite(nHand, "Probando" + Chr(13)+Chr(10) ) 
   fWrite(nHand, "Probando" + Chr(13)+Chr(10) ) 
   fWrite(nHand, "Probando" + Chr(13)+Chr(10) ) 
   fWrite(nHand, "Probando" + Chr(13)+Chr(10) ) 
   fWrite(nHand, "Probando" + Chr(13)+Chr(10) ) 
   fWrite(nHand, "Probando" + Chr(13)+Chr(10) ) 
   fWrite(nHand, "Probando" + Chr(13)+Chr(10) ) 
   fClose(nHand)

   MsgInfo( MemoRead( "fichero.txt" ) )

return nil

Posted: **Wed Mar 07, 2007 6:46 pm**

Generado con Memowrit() y tambien funciona

Posted: **Wed Mar 07, 2007 7:11 pm**

FWRITE(xxx,texto+chr(10)+chr(13))

Debe ser Chr(13)+Chr(10), solo eso hace que el Bloc de notas te visualice el contenido en una sola linea.

Tanto lo que te comenta Rene, como Antonio, como yo mismo en el anterior hilo, funcina 100% seguro.

Posted: **Wed Mar 07, 2007 8:14 pm**

gracias.

FiveTech Software tech support forums

problema urgente por favor

problema urgente por favor

ok. Lo volvere a probar entonces