¿Hay un bug en el ADDITIVE del TEXT...ENDTEXT?
Walter R. Ojeda Valiente
¿Alguien sabe si hay un bug en el comando TEXT ... ENDTEXT del Visual FoxPro 9 cuándo se quiere agregar líneas a un archivo de texto?
Porque lo hice de las dos formas que muestra la ayuda:
SET TEXTMERGE [ON | OFF] [TO [FileName] MEMVAR VarName [ADDITIVE]]
TEXT [TO VarName [ADDITIVE]]
y no funcionó de ninguna de las maneras, directamente ignoró a la cláusula ADDITIVE. Ya lo resolví enviando los datos directamente a un archivo de texto con las funciones bajo nivel, pero me quedó la duda.
Saludos.
Walter.
Luis Maria Guayan
If the contents of TO VarName is not a string, Visual FoxPro always overwrites the contents in VarName.
Si el contenido de TO VarName no es una cadena, Visual FoxPro siempre sobrescribe el contenido de VarName.
Lo que puedes hacer es utilizar una variable de memoria, y luego hacer un STRTOFILE()
Luis María Guayán
Tucumán, Argentina
_________________________
http://www.PortalFox.com
Nada corre como un zorro
_________________________
Walter R. Ojeda Valiente
Saludos.
Walter.
Date: Mon, 5 Dec 2011 08:11:56 -0300
From: luism...@gmail.com
To: publice...@googlegroups.com
Subject: Re: [vfp] ¿Hay un bug en el ADDITIVE del TEXT...ENDTEXT?
Luis Maria Guayan
Luis María Guayán
Tucumán, Argentina
_________________________
http://www.PortalFox.com
Nada corre como un zorro
_________________________
Walter R. Ojeda Valiente
Saludos.
Walter.
Date: Mon, 5 Dec 2011 14:32:44 -0300
Baltazar Moreno
Marco Plaza
Hola Walter, puedes hacerlo de la siguiente forma, usando la variable
de sistema _text
( se omite el manejo de errores ):
_text= fopen("nombre.txt",2)
fseek(_text,0,2) && mover el puntero al fin del archivo
text
lo que desees hacer aqui etc..
endtext
fclose(_text)
Saludos
Marco
On 5 dic, 19:30, Baltazar Moreno <bmore...@gmail.com> wrote:
> ¿Y era necesario re-inventar la rueda?
>
> Baltazar Morenohttp://disxii.com
Walter R. Ojeda Valiente
Saludos.
Walter.
> Subject: [vfp] Re: ¿Hay un bug en el ADDITIVE del TEXT...ENDTEXT?
> From: stma...@gmail.com
> To: publice...@googlegroups.com
Carlos Miguel FARIAS
Por supuesto que con strtofile o su inversa es mas simple, pero hay que ver cual es la carga de memoria de una y otras.
El conjunto F(ALGO) de bajo nivel lo uso desde Foxdino y con maquinas muy chicas y son asombrosamente rápidas.
Mario Alfredo
y no encontre
que es foxdino
On Dec 6, 6:11 am, Carlos Miguel FARIAS <carlosmiguelfar...@gmail.com>
wrote:
> Las funciones esas de bajo nivel, hace rato que estan disponibles y son un
> avion.
> Por supuesto que con strtofile o su inversa es mas simple, pero hay que ver
> cual es la carga de memoria de una y otras.
> El conjunto F(ALGO) de bajo nivel lo uso desde Foxdino y con maquinas muy
> chicas y son asombrosamente rápidas.
>
> El 5 de diciembre de 2011 21:55, Walter R. Ojeda Valiente
> <w...@hotmail.com>escribió:
>
>
>
>
>
>
>
> > Gracias Marco, ya lo resolví en una forma similar cuando el
> > TEXT...ENDTEXT falló.
>
> > Saludos.
>
> > Walter.
>
> > > Date: Mon, 5 Dec 2011 16:14:22 -0800
> > > Subject: [vfp] Re: ¿Hay un bug en el ADDITIVE del TEXT...ENDTEXT?
> > > From: stmapw...@gmail.com
Samuel SMH
*Esto crea tu archivo de texto
THISFORMSET.Nombretxt = 'Log_ViajerosCXP.TXT'
STRTOFILE('',THISFORMSET.Nombretxt,0)
*Por cada linea o registro que deseas leer y agregar al archivo de texto, haces esto:
lcLinealog = lcCampo01+'|'+lcCampo02+'|'+lcCampo03+'|'+lcCampo04+'|'+lcCampo05+;
'|'+lcCampo06+'|'+lcCampo07+'|'+lcCampo08+'|'+lcCampo09+'|'+lcCampo10+chr(13)+chr(10)
STRTOFILE(lcLinealog,THISFORMSET.Nombretxt,1)
Es importante el salto de linea siempre al final de los campos: chr(13)+chr(10)
Siempre utilizo esto para mis Logs y no e tenido problemas; tambien usando TETX TO ADDITIVE puedes hacerlo
Saludos.
Luis Maria Guayan
Luis María Guayán
Tucumán, Argentina
_________________________
http://www.PortalFox.com
Nada corre como un zorro
_________________________
Walter R. Ojeda Valiente
Sé muy bien como grabar datos en un archivo de texto, hace muchos años que lo hago, es historia antigua. Mi pregunta era si la cláusula ADDITIVE del comando TEXT ... ENDTEXT tenía un bug porque no conseguía grabar en disco de esa manera. Si sabes como hacer eso (grabar en disco usando TEXT ... ENDTEXT y la cláusula ADDITIVE) te agradeceré la información.
Saludos.
Walter.
Subject: [vfp] Re: ¿Hay un bug en el ADDITIVE del TEXT...ENDTEXT?
Jose Antonio Blasco
archivos via FTP.
No se si te refieres a esto, si no es así disculpa:
***************
* CREAR SCRIPT
***************
If lSegur = .T.
*
* Para paginas protegidas
*
TEXT TO lcDatos NOSHOW TEXTMERGE PRETEXT 3
PROT P
TYPE ascii
ENDTEXT
*
Else
*
* Para paginas sin proteccion
*
TEXT TO lcDatos NOSHOW TEXTMERGE PRETEXT 3
TYPE binary
ENDTEXT
*
Endif
*-----------------------------------------------------
* Entrar en directorio (si procede)
*-----------------------------------------------------
If !Empty(cDir)
TEXT TO lcDatos NOSHOW TEXTMERGE PRETEXT 3 ADDITIVE
cd <<LOWER(cDir)>>
ENDTEXT
Endif
*-----------------------------------------------------
* Controlar ficheros a copiar
*-----------------------------------------------------
cPath = JUSTPATH(cFiles)
IF !EMPTY(cPath)
cPath = LOWER(ADDBS(cPath))
Endif
*
nFiles = Adir(cArchi,cFiles)
If nFiles = 0
Return nOK
Endif
For x=1 To nFiles
*
TEXT TO lcDatos NOSHOW TEXTMERGE PRETEXT 3 ADDITIVE
put <<cPath+LOWER(ALLTRIM(cArchi(x,1)))>>
ENDTEXT
*
Endfor
*-----------------------------------------------------
* Salir
*-----------------------------------------------------
TEXT TO lcDatos NOSHOW TEXTMERGE PRETEXT 3 additive
quit
ENDTEXT
*************
* FIN SCRIPT
*************
*-----------------------------------------------------
* Convertir script a fichero
*-----------------------------------------------------
Strtofile(lcDatos,"subirftp.txt")
Un saludo Walter.
El día 16 de diciembre de 2011 04:05, Walter R. Ojeda Valiente
<wr...@hotmail.com> escribió:
--
Jose A. Blasco
Zaragoza - España
Jose Antonio Blasco
cada bloque de instrucciones TEXT..ENDTEXT. No son un error, se
necesitan.
De nuevo saludos.
El día 16 de diciembre de 2011 11:56, Jose Antonio Blasco
<jabl...@gmail.com> escribió:
Marco Plaza
Como ya comprobaste, y lo acotó Luis María en la ayuda,
additive no aplica cuando el destino se refiere a un archivo
preexistente, ese era el problema.
Si no necesitas realmente las capacidades del comando text-endtext,
bueno lo hacías como dices con fopen etc o simple strtofile.
Ahora, como lo demuestran los ejemplos en la ayuda mas abajo, si
necesitas añadir contenido a un archivo usando text-endtext,
el procedimiento es abrir el archivo con fopen y asignar el handler a
la variable de sistema _text. ( parcialmente resuelto )
Lo único que no dice la ayuda es que el puntero se coloca al inicio,
por eso coloqué el fseek(_text,0,2) para que vaya al final y la salida
se añada al fichero.
De esa forma puedes obtener el beneficio del textmerge y demás
capacidades del comando TEXT-ENDTEXT,
cosa que no logras usando solo los comandos de manejo de archivos de
bajo nivel, si era lo que necesitas.
Saludos.
Marco
Saludos.
Marco
On 15 dic, 23:05, "Walter R. Ojeda Valiente" <w...@hotmail.com> wrote:
> Samuel, esa no era la pregunta.
>
> Sé muy bien como grabar datos en un archivo de texto, hace muchos años que lo hago, es historia antigua. Mi pregunta era si la cláusula ADDITIVE del comando TEXT ... ENDTEXT tenía un bug porque no conseguía grabar en disco de esa manera. Si sabes como hacer eso (grabar en disco usando TEXT ... ENDTEXT y la cláusula ADDITIVE) te agradeceré la información.
>
> Saludos.
>
> Walter.
>
> Date: Thu, 15 Dec 2011 14:56:33 -0800
> From: ssan_migu...@hotmail.com
Walter R. Ojeda Valiente
Hace muchos años que vengo usando las funciones de bajo nivel FCreate(), FOpen(), FSeek(), etc., porque antes de usar VFP ya hacía mis buenos programas en lenguaje C y las funciones de bajo nivel del VFP son copia de las funciones similares en lenguaje C.
También sé que en lugar de usar las antedichas funciones de bajo nivel puedo usar StrToFile() y FileToStr(), algo que también suelo hacer regularmente.
Ahora, como normalmente uso TEXT ... ENDTEXT para asignarles valores a las variables de tipo caracter que son un poco extensas quise hacer uso de su cláusula ADDITIVE, cosa que no funcionó. Pero no hay problema, ya lo resolví de otra manera.
Saludos.
Walter.
> Subject: [vfp] Re: ¿Hay un bug en el ADDITIVE del TEXT...ENDTEXT?