Fórum Criar um .txt com informações de 2 arquivos distintos #431422

procedure TForm1.BitBtn1Click(Sender: TObject);
Var
  arquivo1, arquivo2 : TStringList;
  i, j : Integer;
  sLinha : String;
  bInsere : Boolean;
begin
  try
    arquivo1 := TStringList.Create;
    arquivo2 := TStringList.Create;

    arquivo1.LoadFromFile('c:\arq1.txt');
    arquivo2.LoadFromFile('c:\arq2.txt');
    for i := 0 to arquivo2.Count - 1 do
      arquivo1.Add(arquivo2[i]);

    arquivo2.Clear;
    //Para excluir os repetidos
    for i := 0 to arquivo1.Count - 1 do
    begin
      sLinha := arquivo1[i];
      bInsere := True;
      for j := 0 to arquivo2.Count - 1 do
      begin
        if sLinha = arquivo2[j] then
        begin
          bInsere := False;
          Break;
        end;
      end;
      if bInsere then
        arquivo2.Add(sLinha);
    end;
    arquivo2.SaveToFile('c:\arq3.txt');
  finally
    arquivo1.Free;
    arquivo2.Free;
  end;
end;

procedure TForm1.BitBtn1Click(Sender: TObject);
var
slEntrada1,slEntrada2,slSaida: TStringList;
i, j : Integer;

slEntrada1 := TStringList.Create;
slEntrada2 := TStringList.Create;
slSaida := TStringList.Create;
slEntrada1.LoadFromFile (opendialog1.FileName);
slEntrada2.LoadFromFile (opendialog2.FileName);

slSaida.Add(EmptyStr);
for i := 0 to slEntrada.Count - 1 do
if Copy(slEntrada1[i],14,4) = Copy(slEntrada2[i],14,4) then
slSaida.add(
// Copia linha do "slEntrada1" vai para linha debaixo e copia linha do "slEntrada2" e pula para linha debaixo
)
else
if Copy(slEntrada1[i],14,4) <>Copy(slEntrada2[i],14,4) then
 slSaida.add(
// Copia linha do "slEntrada1" vai para linha debaixo e acrecenta o valor "2" e pula para linha debaixo 
)

if slSaida[0] = EmptyStr then
slSaida.Delete(0);

FreeAndNil( slEntrada1 );
FreeAndNil( slEntrada2 );
FreeAndNil( slSaida );

Close;
end;