CRAR ARCHIVO PLANO SIN USAR TDOSPRN

[ozono1981]

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

Muchas gracias!

[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

[Armando]

Ozono:

Otra opción es usar las funciones

FCREATE()
FWRITE()
FCLOSE()

Échales una mirada.

Saludos

[Armando]

Ozono:

Encontré un ejemplo

Code: Select all  Expand view  RUN

    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