FoxPro/Visual FoxPro - TEXT - ENDTEXT

 
Vista:

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
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:TEXT - ENDTEXT

Publicado por Roman Suazo (2723 intervenciones) el 24/04/2004 05:49:55
Si el chiste es que salga el asunto... pues prueba esto:

SET TEXTMERGE ON NOSHOW REPTEXT ADDITIVE 4
STORE FCREATE('e: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

cEncabezadoXML='<?xml version = "1.0" encoding="ISO-8859-1" ?>'
=FWRITE(_TEXT, cEncabezadoXML)

TEXT
<ROOT>
<ROWSET_YSKDATMEN>
<ROWSET_YSKENTDEP>
ENDTEXT
FCLOSE(_TEXT)
RETURN

Posiblemente hay soluciones mas inteligentes o elegantes que esta.

Saludos

Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar