Copiar varios arquivos em um Unico.

11/06/2008

1

Amigos,

Estou querendo copiar varios arquivos em um unico arquivo.
Exemplo. Arq1.txt + Arq2.txt + Arq3.txt = Arq123.txt
Ou seja, estou querendo pegar a informações dos aquivos 1, 2, 3 e jogar dentro do Arq123.txt

Desde já agradeço.


Responder

Posts

13/06/2008

Eniorm

pelo prompt de comando:

c:\>copy arq1.txt+arq2.txt+arq3.txt arq123.txt


Pelo Delphi usando StringList;

var
  S1, S2, S3, S123 : TStringList;
begin
  S1 := TStringList.Create;
  S2 := TStringList.Create;
  S3 := TStringList.Create;
  S123 := TStringList.Create;

  S1.LoadFromFile(´arq1.txt´);
  ...
  S123.Text := S1.Text + S2.Text + S3.Text;
  S123.SaveToFile(´arq123.txt´);
  S1.Free;
  S2.Free;
  ...



Responder
×
+1 DevUP
Acesso diário, +1 DevUP
Parabéns, você está investindo na sua carreira