eu tenho cerca de 300 representantes, imagina eu ficar lendo para cada
representante dois arquivos(um diferente do outro); eu queria algo mais
automático como funciona no DOS, (copy a.txt + b.txt c.txt).
grato pela ajuda
Stainle
Ricardo Berti <[EMAIL PROTECTED]> escreveu:
Eu tentari assim:
var
Arquivo1, Arquivo2, ArquivoSaida: TextFile;
Linha: string;
begin
//Abre os dois primeiros arquivos para leitura "Reset"
AssignFile(Arquivo1, 'C:\a.txt');
Reset(Arquivo1);
AssignFile(Arquivo2, 'C:\b.txt');
Reset(Arquivo2);
//Abre o ultimo arquivo como para escrita "Rewrite"
AssignFile(ArquivoSaida, 'C:\saida.txt');
Rewrite(ArquivoSaida);
//Enquanto não for fim do arquivo, vai lendo o primeiro arquivo e gravando
no arquivo de saida
while not EoF(Arquivo1) do
begin
ReadLn(Arquivo1, Linha);
WriteLn(ArquivoSaida, Linha);
end;
CloseFile(Arquivo1);
//Enquanto não for fim do arquivo, vai lendo o segundo arquivo e gravando
no arquivo de saida
while not EoF(Arquivo2) do
begin
ReadLn(Arquivo2, Linha);
WriteLn(ArquivoSaida, Linha)
end;
CloseFile(Arquivo2);
//Já está tudo no arquivo de saida
CloseFile(ArquivoSaida);
end;
_____
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em
nome de stainle2003
Enviada em: sexta-feira, 16 de fevereiro de 2007 16:11
Para: delphi-br@yahoogrupos.com.br
Assunto: [delphi-br] Arquivo Texto
não consigo a partir de dois arquivos texto juntá-los num terceiro,
alguém sabe outra madeira ou o que está errado no código abaixo.
grato
Stainle
procedure TForm1.Button1Click(Sender: TObject);
var
dirzip, destzip, dirtemp, sentenca : string;
begin
dirzip := 'f:\usr\host\remoto\palm\filial99\plestdia.txt';
destzip := 'p:\servidor\003\Saida\plestdia.txt';
dirtemp := 'p:\servidor\003\Saida\Anterior\plestdia.txt';
CopyFile(pchar(destzip), pchar(dirtemp), false);
destzip := 'p:\servidor\003\Saida\pleststa.txt';
sentenca := 'command.com /c copy ' + dirzip + ' + ' + dirtemp
+ ' ' + destzip;
ShowMessage(dirzip);
ShowMessage(dirtemp);
ShowMessage(destzip);
ShowMessage(sentenca);
WinExec(pchar(sentenca), sw_ShowNormal);
end;
[As partes desta mensagem que não continham texto foram removidas]
__________________________________________________
Fale com seus amigos de graça com o novo Yahoo! Messenger
http://br.messenger.yahoo.com/
[As partes desta mensagem que não continham texto foram removidas]
