Page 1 of 1

CRAR ARCHIVO PLANO SIN USAR TDOSPRN

Posted: Fri Jun 17, 2016 7:32 pm
by ozono1981
Estimados, alguno me podria indicar como crear un archivo de texto sin ocupar TDOSPRN

Muchas gracias!

Re: CRAR ARCHIVO PLANO SIN USAR TDOSPRN

Posted: Sat Jun 18, 2016 8:24 am
by mastintin
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

Re: CRAR ARCHIVO PLANO SIN USAR TDOSPRN

Posted: Sun Jun 19, 2016 12:38 am
by Armando
Ozono:

Otra opción es usar las funciones

FCREATE()
FWRITE()
FCLOSE()

Échales una mirada.

Saludos

Re: CRAR ARCHIVO PLANO SIN USAR TDOSPRN

Posted: Sun Jun 19, 2016 12:41 am
by Armando
Ozono:

Encontré un ejemplo

Code: Select all

    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