TEXT - ENDTEXT
Publicado por carlos (52 intervenciones) el 23/04/2004 18:30:49
Hola mi situación es que genero un txt con TEXT - ENDTEXT pero cuando me salva el archivo me deja la primer linea en blanco, quisiera saber como la elimino. Aqui envio el codigo que estoy usando.
SET TEXTMERGE ON NOSHOW REPTEXT ADDITIVE 4
STORE FCREATE('c:\tmp\Archivo.txt') TO _TEXT
IF _TEXT = -1 && No puede crear archivo de bajo nivel entonces termina
WAIT WINDOW 'No puede crear archivo de salida. Presione una tecla para salir.'
CANCEL
ENDIF
TEXT
<?xml version = "1.0" encoding="ISO-8859-1" ?>
<ROOT>
<ROWSET_YSKDATMEN>
<ROWSET_YSKENTDEP>
ENDTEXT
FCLOSE(_TEXT)
Return
SET TEXTMERGE ON NOSHOW REPTEXT ADDITIVE 4
STORE FCREATE('c:\tmp\Archivo.txt') TO _TEXT
IF _TEXT = -1 && No puede crear archivo de bajo nivel entonces termina
WAIT WINDOW 'No puede crear archivo de salida. Presione una tecla para salir.'
CANCEL
ENDIF
TEXT
<?xml version = "1.0" encoding="ISO-8859-1" ?>
<ROOT>
<ROWSET_YSKDATMEN>
<ROWSET_YSKENTDEP>
ENDTEXT
FCLOSE(_TEXT)
Return
Valora esta pregunta


0