Comparar 2 arquivos Texto com o mesmo Layout

Question

Bom tenho 2 arquivos Texto (Arquivo1.txt, Arquivo2.txt)com o mesmo layout e preciso comparar para saber se o Arquivo2 possuia as mesmas linhas que o Arquivo1.

Se no Arquivo1 existir alguma linha que n�o exista no Arquivo2, ent�o criar um Arquivo3.txt contendo essas linhas.

Bmetric · Answer

Carregue o Arq2 num TStringList, leia o Arq1 e utilize o IndexOf da TStringList....

Fabiano G�es · Answer

Por favor, voc� poderia me dar um exemplo ?...

Bmetric · Answer

[code:1:f3dc6bcb84]var f:TextFile; SL:TStringList; s:String;begin  SL := TStringList.Create;  try    SL.LoadFromFile(�c:Arq2.txt�);    AssignFile(f, �c:Arq1.txt�);    Reset(f);    While not Eof(f) do    begin      Readln(f, s);      if SL.IndexOf(s) < 0 then      begin        // Arq1 n�o existe em Arq2      end;    end;    CloseFile(f);  finally    SL.Free;  end;end;[/code:1:f3dc6bcb84]...

Fabiano G�es · Answer

bmetric, Valeu ai brotherexatamente o que eu precisava !!!!!! :lol:...

Rjun · Answer

Usando somente TStringList.[code:1:8d06d5dd20]var  Base,  AComparar,  Resultado: TStringList;  i: integer; begin  Base := TStringList.Create;  AComparar := TStringList.Create;  Resultado := TStringList.Create;  try    Base.LoadFromFile(�c:Arq2.txt�);    AComparar.LoadFromFile(�c:Arq1txt�);        for i := 0 to AComparar.Count do      if Base.IndexOf(AComparar.Strings&#91;i&93;) < 0 then        Resultados.Strings.Add(Base.Strings&91;i&93;);    Resultados.SaveToFile(�c:arquivoerros.txt�);  finally    FreeAndNil(Base);    FreeAndNil(AComparar);    FreeAndNil(Resultado);  end;[/code:1:8d06d5dd20]...

Fabiano G�es · Answer

Rjun valeu cara, estou preecisando mesmo aprender mais sobre TStringList.

Cara estou achando muito legal o que se pode fazer com TStringList.

a prop�sito se voc� tiver alguns exemplos de Utiliza��o de TStringList epuder me mandar eu agradeceria muito . :lol:

fabianogoes@ig.com.br

de qualquer forma voc� j� me ajudou muito !!!!!

Bmetric · Answer

[code:1:613812812d]for i := 0 to AComparar.Count do[/code:1:613812812d]Este [b:613812812d]for[/b:613812812d] est� errado colega....

Rjun · Answer

[quote:5b781e18ed=�bmetric�][code:1:5b781e18ed]for i := 0 to AComparar.Count do[/code:1:5b781e18ed]Este [b:5b781e18ed]for[/b:5b781e18ed] est� errado colega.[/quote:5b781e18ed]Verdade. O correto � :[code:1:5b781e18ed]for i := 0 to AComparar.Count -1 do[/code:1:5b781e18ed]...

Rjun · Answer

[quote:e8711b4941=�bmetric�][code:1:e8711b4941]for i := 0 to AComparar.Count do[/code:1:e8711b4941]Este [b:e8711b4941]for[/b:e8711b4941] est� errado colega.[/quote:e8711b4941]N�o se sinta encabulado para postar a corre��o....

Bmetric · Answer

[quote:25983182da=�Fabiano G�es�]Cara estou achando muito legal o que se pode fazer com TStringList.[/quote:25983182da]Veja tb as propriedades: Names, Values,Duplicates, CaseSensitive....

Fabiano G�es · Answer

Ah sim galera, desculpem eu j� tinha modificado o For, e esqueci de avisar , realmente funcionou assim :

for i := 0 to AComparar.Count -1 do

Valeu a aten��o pessoal :wink:

Fabiano G�es · Answer

ai galera se alguem precisar aproveitar o c�digo ficou assim :

var
    Entrada, Saida, Resultado : TStringList;
    i : Integer;
begin
    Entrada := TStringList.Create;
    Saida   :=  TStringList.Create;
    Resultado :=  TStringList.Create;

    Entrada.LoadFromFile(�c:\arqEnt.txt�);
    Saida.LoadFromFile(�c:\arqSai.txt�);

    for i := 0 to Entrada.Count - 1 do  begin
      if saida.IndexOf(Entrada.Strings[i]) < 0 then
        Resultado.Add(Entrada.Strings[i]);

    end;
         Resultado.SaveToFile(�c:\NProces.txt�);

deixando os creditos aos colegas( Rjun, bmetric ) � claro !!

valeu brothers

F�rum Comparar 2 arquivos Texto com o mesmo Layout #296604