unir dos archivos txt

474 views
Skip to first unread message

marcelo lopez

unread,
Aug 1, 2017, 6:31:45 PM8/1/17
to publicesvfoxpro
hola :

tengo dos archivos de texto generados a partir de dos cursores con distinta estructura. Necesito unir ambos  archivos de texto  en uno solo.cual seria la manera mas practica ? gracias 
 

 

Fidel Charny

unread,
Aug 1, 2017, 7:05:15 PM8/1/17
to Comunidad de Visual Foxpro en Español
Podría ser algo así
lcFile1 = "c:\Sistemas\ThTero\Rescue\Mensuales\IFM_20170801_0822.txt"
lcFile2 = "c:\Sistemas\ThTero\Rescue\Mensuales\IFM_20170731_2045.txt"
lcFile3 = "c:\Sistemas\ThTero\Rescue\Mensuales\IFM_Junta.txt"

lcTag_end = "</file>"+CHR(13)+CHR(10)
lcTag1_Ini = "<file name=" + CHR(34) + JUSTFNAME(lcFile1) + CHR(34)+ ">" + CHR(13)+CHR(10)
lcTag2_Ini = "<file name=" + CHR(34) + JUSTFNAME(lcFile2) + CHR(34)+ ">" + CHR(13)+CHR(10)

STRTOFILE( lcTag1_ini + FILETOSTR(lcfile1) + lcTag_End ;
        + lcTag2_ini + FILETOSTR(lcFile2) + lcTag_end , lcfile3)

Los lcTagx_Ini y lcTag_End sirven para identificar donde comienza y donde termina cada archivo, como para poder extraerlos luego con algo así:
lcExtract1 = STREXTACT(FILETOSTR(lcfile3), lcTag1_Ini,lcTag_End)

Ing. Bernardo José Martínez Pérez

unread,
Aug 2, 2017, 8:36:16 AM8/2/17
to publice...@googlegroups.com
Prueba con
cComando="copy archivo1.txt+archivo2.txt archivo3.txt"

Run /n &cComando

En archivo3.txt tendrás los dos archivos Unidos.

Espero te sea de utilidad.

From: publice...@googlegroups.com <publice...@googlegroups.com> on behalf of marcelo lopez <marceloe...@gmail.com>
Sent: Tuesday, August 1, 2017 5:31:33 PM
To: publicesvfoxpro
Subject: [vfp] unir dos archivos txt
 

marcelo lopez

unread,
Aug 4, 2017, 4:14:01 PM8/4/17
to publicesvfoxpro
gracias por responder . lo probe y me da el error "run command failed " 

El 2 de agosto de 2017, 9:36, Ing. Bernardo José Martínez Pérez <bj...@hotmail.com> escribió:
Prueba con
cComando="copy archivo1.txt+archivo2.txt archivo3.txt"

Run /n &cComando

En archivo3.txt tendrás los dos archivos Unidos.

Espero te sea de utilidad.


Sent: Tuesday, August 1, 2017 5:31:33 PM
To: publicesvfoxpro
Subject: [vfp] unir dos archivos txt

Patricio Muñoz

unread,
Aug 4, 2017, 4:18:51 PM8/4/17
to publice...@googlegroups.com
Marcelo

Ese código que te enviaron debería funcionar.... respetaste los espacios?

Bendiciones
--
Saludos

Patricio Muñoz
Pro&Tech
Analista en Sistemas

marcelo lopez

unread,
Aug 4, 2017, 6:48:00 PM8/4/17
to publicesvfoxpro
gracias patricio .

te pego textual como lo probe y me da error :

cComando="copy hola.txt+hola2.txt archivo3.txt"

Run /n &cComando

lo estoy ejecutando conectado con conexion a escritorio remoto a un servidor .



Libre de virus. www.avg.com

Fidel Charny

unread,
Aug 4, 2017, 7:13:20 PM8/4/17
to Comunidad de Visual Foxpro en Español
lcFile1 = "hola.txt"
lcFile2 = "hola2.txt"
lcFile3 = "Archivo3.txt"

STRTOFILE(Filetostr(lcFile1)+Filetostr(lcFile2) , lcFile3)




El viernes, 4 de agosto de 2017, 19:48:00 (UTC-3), marcelo echaniz escribió:
gracias patricio .

te pego textual como lo probe y me da error :

cComando="copy hola.txt+hola2.txt archivo3.txt"

Run /n &cComando

lo estoy ejecutando conectado con conexion a escritorio remoto a un servidor .



Libre de virus. www.avg.com
El 4 de agosto de 2017, 17:18, Patricio Muñoz <protech...@gmail.com> escribió:
Marcelo

Ese código que te enviaron debería funcionar.... respetaste los espacios?

Bendiciones
El 4 de agosto de 2017, 16:13, marcelo lopez <marceloe...@gmail.com> escribió:
gracias por responder . lo probe y me da el error "run command failed " 
El 2 de agosto de 2017, 9:36, Ing. Bernardo José Martínez Pérez <bj...@hotmail.com> escribió:
Prueba con
cComando="copy archivo1.txt+archivo2.txt archivo3.txt"

Run /n &cComando

En archivo3.txt tendrás los dos archivos Unidos.

Espero te sea de utilidad.


Sent: Tuesday, August 1, 2017 5:31:33 PM
To: publicesvfoxpro
Subject: [vfp] unir dos archivos txt
hola :

tengo dos archivos de texto generados a partir de dos cursores con distinta estructura. Necesito unir ambos  archivos de texto  en uno solo.cual seria la manera mas practica ? gracias 
 

 
Reply all
Reply to author
Forward
0 new messages