Foros Club Delphi - comando copy MS DOS

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- API de Windows (https://www.clubdelphi.com/foros/forumdisplay.php?f=7)

- - comando copy MS DOS (https://www.clubdelphi.com/foros/showthread.php?t=6894)

RaulChemical

27-01-2004 10:58:30

comando copy MS DOS

Buenas!!!

No se si habre puesto bien esta pregunta en este foro, pero bueno, ahi va:

Necesito ejecutar una orden copy de MS DOS desde mi aplicacion (requisitos del jefe :( ), y lo hago con un ShellExecute( );, pero no me sale, no se que parametros le debo pasar al ShellExecute para que me ejecute la orden de copia que quiero hacer.

La razon de ejecutar el copy de msdos es xq dice el jefe que despues de ejecutar un porceso que genera 3 ficheros de texto, tengo que concatenar los 3 en uno, y él dice que use un
"copy fich1.txt+fich2.txt+fich3.txt fichResul.txt"
para concatenarlos.

Si se os ocurre alguna otra forma sencilla de concatenar los tres ficheros, no dudeis en comunicarmelo.

Muchas gracias a todos de antemano.

Raul.

Nuria

27-01-2004 11:31:55

Hola RaulChemical!

Mira este hilo :

http://www.clubdelphi.com/foros/show...&threadid=2832

Espero que te sirva.

Saludos! :p

eduarcol

27-01-2004 23:26:59

mira yo no se si te sirva pero yo lo que haria es declarar 3 stringlist algo asi

Código:

procedure concatenararchivos;

var

Arch1, Arch2, Arch3: TStringList;

nidx: Integer;

begin

   //Abre los archivos

   Arch1 := TStringList.Create;

   Arch2 := TStringList.Create;

   Arch3 := TStringList.Create;

   //Carga los valores

   Arch1.LoadFromFile('c:\arch1.txt');

   Arch2.LoadFromFile('c:\arch2.txt');

   Arch3.LoadFromFile('c:\arch3.txt');

   //Concatena

   for nidx := 0 to arch2.count - 1 do

      Arch1.Add(Arch2.Strings[nidx]);

   for nidx := 0 to arch3.count - 1 do

      Arch1.Add(Arch3.Strings[nidx]);

   //Guarda el archivo concatenado

   Arch1.SavetoFile('c:\Resulta.txt');

end;

pruebalo que si funciona y suerte

RaulChemical

27-01-2004 23:45:35

Gracias

Molan mucho las dos opciones que me habeis dado hasta ahora, pero de momento me quedo con la de nuria. La tuya, eduarcol, es muy buena y me has dado una idea para otra movida rara que se ha inventado mi jefe :mad:

Bueno, a seguir currando.

eduarcol

27-01-2004 23:47:48

oye pero tu jefe es super imaginativo o le gusta verte sufrir :D

La franja horaria es GMT +2. Ahora son las 17:02:49.