Como copiar o conteudo do File1 e File2 para o FILE3

Delphi

16/11/2007

Oi,

Algume me ensine algo:

Tenho o ficheiro1 cujo conteudo é : ´Linha de Teste 1´
Tenho o ficheiro2 cujo conteudo é : ´Linha de Teste 2´

como faço para pegar no ficheiro1 e ficheiro2 e criar o ficheiro3 cujo conteudo seja:
´Linha de Teste 1´
´Linha de Teste 2´

Obrigado pela ajuda.


Paulo Pereira

Paulo Pereira

Curtidas 0

Respostas

Vitor Alcantara

Vitor Alcantara

16/11/2007

Você que pegar os dados que estão em um arquivo de texto e juntar com outro e criar um terceiro?
Se for isso você pode utilizar-se de TextFile para fazer isso.

Tenta isso ai pra ver.

var
  f:TextFile;
  sAux:String;
  Buffer:tStringList;
Begin
  Buffer := tStringList.Create;
  //Ler o arquivo1 e joga na variavel buffer
  AssignFile(f,´c:\Arquivo1.txt´);
  Reset(f);//Abre o arquivo e coloca o ponteiro na primeira linha
  while not EOF(f) do //Laço que testa se repete até o arquivo chegar no final
  Begin
    ReadLn(f,sAux);//Ler a linha atual e joga na variavel sAux o conteudo da linha e depois vai para proxima linha
    Buffer.ADD(sAux);
  end;
  CloseFile(f);//Fecha o arquivo
  
   //Agora é só fazer o mesmo no segundo arquivo.
  AssignFile(f,´c:\Arquivo2.txt´);
  Reset(f);//Abre o arquivo e coloca o ponteiro na primeira linha
  while not EOF(f) do //Laço que testa se repete até o arquivo chegar no final
  Begin
    ReadLn(f,sAux);//Ler a linha atual e joga na variavel sAux o conteudo da linha e depois vai para proxima linha
    Buffer.ADD(sAux);
  end;
  CloseFile(f);//Fechou o Segundo Arquivo

  //Agora é só gravar o conteudo de Buffer em um arquivo de texto
  Buffer.SaveToFile(´c:\Arquivo3.Txt´);
  
end;



GOSTEI 0
POSTAR