FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin para Pocket PC como puedo grabar un ficheo ascii con varias lineas
Posts: 139
Joined: Fri Apr 07, 2006 09:16 PM
como puedo grabar un ficheo ascii con varias lineas
Posted: Mon Mar 05, 2007 05:36 PM

como puedo grabar un ficheo ascii con varias lineas

Posts: 840
Joined: Thu Oct 13, 2005 07:05 PM
como puedo grabar un ficheo ascii con varias lineas
Posted: Mon Mar 05, 2007 06:48 PM

Asi:

cText := "primera linea"+CRLF
cText += "segunda linea"+CRLF
cText += "tercera linea"+CRLF
....
....
....
cText += "n-sima linea"+CRLF

MEMOWRIT(curdir()+"\archivo.txt",cText)

Saludos

R.F.
Posts: 139
Joined: Fri Apr 07, 2006 09:16 PM
No me sirve
Posted: Tue Mar 06, 2007 09:14 AM

Necesito saber como se usa en FWRITE, cada FWRITE que haga necesito que se escriba en una linea distinta, el problema que tengo es que escribo el texto pero no me salta de linea
He probado con el CTRLF Y DESPUES CON EL CHR(10)+CHR(12)+CHR(13), pero sigue sin saltarme de linea, me escribe todo en una linea.

Lo que quiero es escribir un fichero ASCI con los pedidos para poder enviarlo por correo electronico.

imjcc

Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
como puedo grabar un ficheo ascii con varias lineas
Posted: Tue Mar 06, 2007 10:23 AM

En vez de usar FWrite(), guarda el texto en una variable en memoria y sálvala al final como te indica René

regards, saludos

Antonio Linares
www.fivetechsoft.com
Posts: 139
Joined: Fri Apr 07, 2006 09:16 PM
no puedo usar una variable
Posted: Tue Mar 06, 2007 11:11 AM

no puedo usar una variable, ya el el pedido puede tener hasta 100 lineas, entonces no va a coger toda la variable en memoria y pueden ser varios pedidos de distintos clientes.

Posts: 682
Joined: Tue Feb 14, 2006 09:48 AM
como puedo grabar un ficheo ascii con varias lineas
Posted: Tue Mar 06, 2007 12:10 PM
  nHand:=fCreate('fichero.txt',FC_NORMAL)
   While !CabVta->(Eof())
        fWrite(nHand,Str(CabVta->Total))
        fWrite(nHand,'lo que sea')
        fWrite(nHand, Chr(13)+Chr(10) ) 
        CabVta->(dbSkip())
    End
fClose(nHand)
Saludos desde Mallorca
Biel Maimó
http://bielsys.blogspot.com/

Continue the discussion