FiveTech Software tech support forums

Posted: **Fri Jun 17, 2016 7:32 pm**

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

Muchas gracias!

Posted: **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

Posted: **Sun Jun 19, 2016 12:38 am**

Ozono:

Otra opción es usar las funciones

FCREATE()
FWRITE()
FCLOSE()

Échales una mirada.

Saludos

Posted: **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

FiveTech Software tech support forums

CRAR ARCHIVO PLANO SIN USAR TDOSPRN

CRAR ARCHIVO PLANO SIN USAR TDOSPRN

Re: CRAR ARCHIVO PLANO SIN USAR TDOSPRN

Re: CRAR ARCHIVO PLANO SIN USAR TDOSPRN

Re: CRAR ARCHIVO PLANO SIN USAR TDOSPRN