como puedo grabar un ficheo ascii con varias lineas

como puedo grabar un ficheo ascii con varias lineas

Postby mjcc » Mon Mar 05, 2007 5:36 pm

como puedo grabar un ficheo ascii con varias lineas
mjcc
 
Posts: 139
Joined: Fri Apr 07, 2006 9:16 pm

Postby R.F. » Mon Mar 05, 2007 6: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.
R.F.
 
Posts: 840
Joined: Thu Oct 13, 2005 7:05 pm

No me sirve

Postby mjcc » Tue Mar 06, 2007 9: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
mjcc
 
Posts: 139
Joined: Fri Apr 07, 2006 9:16 pm

Postby Antonio Linares » 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
User avatar
Antonio Linares
Site Admin
 
Posts: 42099
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain

no puedo usar una variable

Postby mjcc » 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.
mjcc
 
Posts: 139
Joined: Fri Apr 07, 2006 9:16 pm

Postby Biel EA6DD » Tue Mar 06, 2007 12:10 pm

Code: Select all  Expand view
  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/
User avatar
Biel EA6DD
 
Posts: 682
Joined: Tue Feb 14, 2006 9:48 am
Location: Mallorca


Return to FiveWin para Pocket PC

Who is online

Users browsing this forum: No registered users and 22 guests