topic-32600

ozono1981

Posts: 39

Joined: Tue Mar 26, 2013 02:09 PM

CRAR ARCHIVO PLANO SIN USAR TDOSPRN
Posted: Fri Jun 17, 2016 07:32 PM

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

Muchas gracias!

mastintin

Posts: 1516

Joined: Thu May 27, 2010 02:06 PM

Re: CRAR ARCHIVO PLANO SIN USAR TDOSPRN
Posted: Sat Jun 18, 2016 08:24 AM

yo lo hago así :

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

   cText += &quot; lo que quieras en la linea 1 &quot; +CRLF
  cText += &quot; lo que quieras en la linea 2 &quot; +CRLF
 ........

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

return nil

Armando

Posts: 3358

Joined: Fri Oct 07, 2005 08:20 PM

Re: CRAR ARCHIVO PLANO SIN USAR TDOSPRN
Posted: 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

Armando

Posts: 3358

Joined: Fri Oct 07, 2005 08:20 PM

Re: CRAR ARCHIVO PLANO SIN USAR TDOSPRN
Posted: Sun Jun 19, 2016 12:41 AM

Ozono:

Encontré un ejemplo

Code (fw): Select all Collapse

    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

FiveTech Support Forums

Continue the discussion