AMIGOS

TENGO UNA BASE DE DATOS Y TENGO QUE GENERAR UN ARCHIVO DE TEXTO CON SU
CONTENIDO

file:=ruta(4)+subs(bases[j],1,8)
_t("DIG","Generando archivo "+ALLTRIM(FILE)+".TXT" )

LO HAGO USANDO EL COPY TO FILE

COPY TO &file SDF

PERO ME GENERAR UN RETORNO DE CARRO AL FINAL , ESE DATO LO DEBO
EVITAR POR QUE EL ARCHIVO ES INVALIDO PARA UN SISTEMA QUE LO USA.

LEVANTO EL ARCHIVO

recorta:= memoread( file+".txt" )

Y RECORTO LOS 2 ULTIMOS CARACTERES

NOTEPASES:= SUBS( recorta,1,LEN(RECORTA)-2)

AQUI SE VE QUE YA NO ESTAN ESOS CUADRADITOS QUE REPRESENTAN AL RETORNO DE CARRO

msgGET(file+".txt",, @NOTEPASES)

PERO AL GRABARLO CON MEMOWRIT ESTE VUELVE A PONER AL FINAL
EL RETORNO DE CARRO

memowrit( file+".txt" , NOTEPASES)

AQUI VEO AL FINAL EL CUADRADITO

WAITRUN("NOTEPAD "+ALLTRIM(FILE)+".TXT")

COM PUEDO EVITAR GRABAR ESE RETORNO DE CARRO

MIL GRACIAS POR LA AYUDA

Vladimir,

En vez de MemoWrit(), puedes usar HB_MEMOWRIT() que no añade el retorno de carro al final

Gracias por responder

pero esa funcion no existe en xharbour 0.82

No tendra codigo fuente en C para integrarla por favor

Muchas gracias por la ayuda

Vladimir Zorrilla wrote:Gracias por responder

pero esa funcion no existe en xharbour 0.82

No tendra codigo fuente en C para integrarla por favor

Muchas gracias por la ayuda

Hola Vladimir, así es como lo hago:

include "fileio.ch"

Local nHandle
nHandle:=FOpen((nombreficherotxt), FO_READWRITE)
//
//Se abre el fichero a bajo nivel para eliminar el último
//carácter de fin de fichero
//
IF FERROR() !=0
TONE(500,2)
MsgInfo("Error de apertura del fichero ;compruebe que el mismo existe en C:\",{" Pulse Intro "})
ELSE
FSeek(nHandle,-1,FS_END)
FWrite(nHandle,"")
ENDIF
//
IF !FClose(nHandle)
TONE(200,1)
TONE(100,1)
TONE(200,1)
MsgInfo("Error cerrando el fichero ...")
ENDIF
//