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