CRAR ARCHIVO PLANO SIN USAR TDOSPRN

CRAR ARCHIVO PLANO SIN USAR TDOSPRN

Postby ozono1981 » Fri Jun 17, 2016 7:32 pm

Estimados, alguno me podria indicar como crear un archivo de texto sin ocupar TDOSPRN

Muchas gracias!
ozono1981
 
Posts: 39
Joined: Tue Mar 26, 2013 2:09 pm

Re: CRAR ARCHIVO PLANO SIN USAR TDOSPRN

Postby mastintin » Sat Jun 18, 2016 8:24 am

yo lo hago así :

function creatxt()
local cFile := " c:\nombre.txt"
local cText:= ""

cText += " lo que quieras en la linea 1 " +CRLF
cText += " lo que quieras en la linea 2 " +CRLF
........

memoWrite( MEMOWRIT( cFile, cText, .f. )

return nil
User avatar
mastintin
 
Posts: 1516
Joined: Thu May 27, 2010 2:06 pm

Re: CRAR ARCHIVO PLANO SIN USAR TDOSPRN

Postby Armando » Sun Jun 19, 2016 12:38 am

Ozono:

Otra opción es usar las funciones

FCREATE()
FWRITE()
FCLOSE()

Échales una mirada.

Saludos
SOI, s.a. de c.v.
estbucarm@gmail.com
http://www.soisa.mex.tl/
http://sqlcmd.blogspot.com/
Tel. (722) 174 44 45
Carpe diem quam minimum credula postero
User avatar
Armando
 
Posts: 3049
Joined: Fri Oct 07, 2005 8:20 pm
Location: Toluca, México

Re: CRAR ARCHIVO PLANO SIN USAR TDOSPRN

Postby Armando » Sun Jun 19, 2016 12:41 am

Ozono:

Encontré un ejemplo

Code: Select all  Expand view

    nHandle := FCreate(cFile,FC_NORMAL)

    IF nHandle <= 0
        MsgStop("No pude crear el archivo " + cFile + " !",oApp:cAplicacion)
        RETURN(.T.)
    ENDIF
....
....
.....
        FWRITE(nHandle,STRZERO(nNum,9,0) +;
                    SPACE(16) +;
                        "99" +;
                        oRsEmp:Fields("EMP_CTA"):Value + SPACE(15 - LEN(oRsEmp:Fields("EMP_CTA"):Value)) +;
                        SPACE(05) +;
                        STRZERO(INT(nNeto),13,0) +;
                        STRZERO(INT(nDeci * 100),2,0) +;
                        cAyN + SPACE(40 - LEN(cAyN)) +;
                        "001001")
.....
.....
.....
    FCLOSE(nHandle)
 


Saludos
SOI, s.a. de c.v.
estbucarm@gmail.com
http://www.soisa.mex.tl/
http://sqlcmd.blogspot.com/
Tel. (722) 174 44 45
Carpe diem quam minimum credula postero
User avatar
Armando
 
Posts: 3049
Joined: Fri Oct 07, 2005 8:20 pm
Location: Toluca, México


Return to FiveWin para CA-Clipper

Who is online

Users browsing this forum: No registered users and 5 guests