como puedo grabar un ficheo ascii con varias lineas

[mjcc]

como puedo grabar un ficheo ascii con varias lineas

[R.F.]

Asi:

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

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

[mjcc]

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

[Antonio Linares]

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

[mjcc]

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.

[Biel EA6DD]

Code: Select all

  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)