请问:如何实现比较两个txt文件，存在的相同和不同的内容？

2009-12-21 11:33:19 1.7k 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

cixiang1999 墨衍会员 · AI 创作全网分发关注 + 加入社区

突发环境事件怎么模拟？用Python+GIS实现高斯烟团模型（附完整代码）本文详细介绍了如何利用Python与GIS技术实现高斯烟团模型，用于模拟化工泄漏等突发环境事件的动态扩散过程。通过核心原理讲解、参数快速获取方案、Python代码实现及GIS可视化集成，为环境应急人员提供了一套完整的解决方案。特别适合危险品运输事故等瞬态污染场景的应急决策支持。阅读详情

请问各位大虾:我现在有两个txt文本，我想对其进行比较,从而判断内容是否有差异,
例如:
aa.txt bb.txt
1 e 1
2 5
6 7 a
我的要求是对这两个txt进行判断,从而比较出不同的行次和值，相同的行次和内容,请问该怎么实现比较好呢?

...全文

如何在Proteus中模拟Arduino 进一步的Proteus可用于设计任何与Arduino相关的项目，它将在进入硬件级别之前提供更好的理解。由于其广泛的库集合，它是Arduino社区中最受欢迎的工具之一，不仅如此，Proteus还可以为Arduino项目设计定制的PCB。就像上一步一样，现在搜索Arduino UNO板，选择Arduino板并单击“确定”以添加到项目中，或者双击以在Proteus项目中添加Arduino。一旦在Proteus中成功创建了一个新项目，现在我们将设计一个用于Proteus中闪烁LED的Arduino电路。阅读详情

cixiang1999

Delphi 5,944 成员 262,941 内容

+ 关注 + 加入社区

切换为时间正序

n915617214m 2009-12-22

打赏
举报

学习

lyhoo163 2009-12-22

打赏
举报

把两文件分别读入A、B（StringList）中：
1、两者排序；
2、由A循环逐行与B比较；（异记入C、同记入D）
3、由B循环逐行与A比较；（异记入C、同记入D）
4、显示同；
5、显示异。

bdmh 2009-12-21

打赏
举报

如果是比较行，而且行数量不大的话，就是逐条比较，可以读到TStringlist中或者memo组件中，直接loadfromfile就可以加载文件

hjkto 2009-12-21

打赏
举报

mark

wooden954 2009-12-21

打赏
举报

这个比较复杂了，不知道楼主是不是在做类似版本管理系统的一个功能部分。
如果是的话，那我建议你下载一下WinMerge的软件来试用一下，看它的表现和逻辑。
体会一下它所使用的算法。

wzwcn 2009-12-21

打赏
举报

如果文件不是很大，加载到两个TStringList里，然后一行一行比较

人鱼传说 2009-12-21

打赏
举报

你自己根据你的需求改一改就能用.....



unit Unit1;



interface



uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, StdCtrls, Buttons, RzButton, Mask, RzEdit, ComCtrls, RzTabs,

  RzStatus, ExtCtrls, RzPanel;



type

  TForm1 = class(TForm)

    OpenDialog1: TOpenDialog;

    RzEdit1: TRzEdit;

    RzEdit2: TRzEdit;

    RzBitBtn1: TRzBitBtn;

    RzBitBtn2: TRzBitBtn;

    RzBitBtn3: TRzBitBtn;

    RzPageControl1: TRzPageControl;

    TabSheet1: TRzTabSheet;

    TabSheet2: TRzTabSheet;

    RzRichEdit1: TRzRichEdit;

    RzRichEdit2: TRzRichEdit;

    RzStatusBar1: TRzStatusBar;

    RzClockStatus1: TRzClockStatus;

    RzStatusPane1: TRzStatusPane;

    RzBitBtn4: TRzBitBtn;

    procedure RzBitBtn3Click(Sender: TObject);

    procedure RzBitBtn1Click(Sender: TObject);

    procedure RzBitBtn2Click(Sender: TObject);

    procedure RzBitBtn4Click(Sender: TObject);

  private

    { Private declarations }

  procedure search();

  procedure uncontain;

  procedure deletesame();

  public

    { Public declarations }



  end;



var

  Form1: TForm1;

  str1,str2,str3:tstringlist;

  j2:integer;



implementation



{$R *.dfm}



procedure tform1.deletesame();         //删除相同的记录

var

i:integer;

tickcount:longword;

begin

tickcount:=gettickcount;

for i:=str1.Count-1 downto 0 do

  begin

    if (i>=1) and (str1.Strings[i]=str1.Strings[i-1]) then

      str1.Delete(i);

  end;

str1.SaveToFile('D:\delphi\tstringlist\test.txt');

showmessage(inttostr(gettickcount-tickcount)) //计算所用时间

end;



procedure tform1.uncontain;       //列出比较文件里有，但源文件里没有的记录

var

mystr:string;

n,p:integer;

  begin

  p:=0;

   for n:=0 to str2.Count-1 do

      begin

         if str1.IndexOf(str2.Strings[n])<0 then

                str3.Add(str2.Strings[n]);

     end;

str3.SaveToFile('D:\delphi\tstringlist\test.txt');

end;



procedure tform1.search();     //列出源文件里有，但比较文件里没有的。

var

i,j:integer;

 begin

   j:=0;

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

     begin

        if (j<=str3.Count-1)and (str1.Strings[i]=str3.Strings[j]) then j:=j+1

        else

        begin

           rzrichedit1.Lines.Add(str1.Strings[i]);

           j2:=j2+1

        end;

     end;

end;



procedure TForm1.RzBitBtn3Click(Sender: TObject);

begin

rzrichedit1.Clear;

rzrichedit2.Clear;

try

str1:=tstringlist.Create;

str2:=tstringlist.Create;

str3:=tstringlist.Create;

str1.LoadFromFile(pchar(rzedit1.Text));

str2.LoadFromFile(pchar(rzedit2.Text));

   str1.Sort;

   str2.Sort;

  if str1.Count<str2.Count then

      application.MessageBox('The source file‘s line count couldn‘t allow more than the compare file。','Warning',mb_iconerror)

  else

 begin

     deletesame;

     uncontain;

  //   search;

     rzstatuspane1.Caption:='count line: '+inttostr(j2)+' rows';

   end;

finally

  begin

    str1.Free;

    str2.Free;

    str3.Free;

  end;

end;

end;



procedure TForm1.RzBitBtn1Click(Sender: TObject);

begin

if opendialog1.Execute then

rzedit1.Text:=opendialog1.FileName;

end;



procedure TForm1.RzBitBtn2Click(Sender: TObject);

begin

if opendialog1.Execute then

rzedit2.Text:=opendialog1.FileName;

end;



procedure TForm1.RzBitBtn4Click(Sender: TObject);

begin

str1:=tstringlist.Create;

str1.LoadFromFile(pchar(rzedit1.Text));

str1.Sort;

deletesame;

end;



end.

yshuui 2009-12-21

打赏
举报

用stringlist可以的。
可以看看文件比较的软件，看看他们怎么实现的。
实现合理的比较还是比较难。

wooden954 2009-12-21

打赏
举报

如果多几行或少几行是不定的，那么需要考虑的就多了

wooden954 2009-12-21

打赏
举报

楼主的要求我感觉比较复杂。
我觉得肯定不能两个文件TxtA.Line(X)和TxtB.Line(X)直接进行比较，而是有可能有如下情况：
TxtA TxtB
Line1 Line1
Line2 Line3 这里少了一行Line2
Line3 Line4
Line4

还有一种情况：
TxtA TxtB
Line1 Line1
Line2 NewLine 这里多了一行
Line3 Line2
Line4 Line3
Line4

这两种情况实际上是类似的情况，有一个是多了行，相对另外一个文件就是少了行。
但是在实际程序的比较过程中，这两种情况是不能互换的，比较需要指定一个是A一个是B