文本删除重复算法问题~~高手请指点下

面面爱面面

20161217,D,B,DKDDA332021,ESA3332SS1
20161217,D,B,DKDDA332022,ESA3332SS2
20161217,D,B,DKDDA332023,ESA3332SS3
20161217,D,B,DKDDA332021,ESA3332SS2
20161217,D,B,DKDDA332025,ESA3332SS2
20161217,D,B,DKDDA332021,ESA3332SS3
20161217,D,B,DKDDA332022,ESA3332SS7

大哥唉,你看一下,DKDDA332021全删干净,是因为在第二次根据S5判断时,有重复的唉,很不幸唉你好好看一下.
如果要优化这个算法,很复杂了唉

面面爱面面

清理完S4,是这样的结果:
20161217,D,B,DKDDA332021,ESA3332SS3
20161217,D,B,DKDDA332022,ESA3332SS7
20161217,D,B,DKDDA332023,ESA3332SS3
20161217,D,B,DKDDA332025,ESA3332SS2
然后,很不幸,20161217,D,B,DKDDA332021,ESA3332SS3这行,因为ESA3332SS3与它行有重复,所以被搞掉了

supperman

function CompareS4(Item1, Item2: Pointer): Integer;
begin
  Result := CompareText(TStrings(Item1)[3], TStringList(Item2)[3]);
end;

function CompareS5(Item1, Item2: Pointer): Integer;
begin
  Result := CompareText(TStrings(Item1)[4], TStringList(Item2)[4]);
end;

procedure TFormDemo.ButtonRemoveClick(Sender: TObject);
var
  StringsList: TList;
  Strings: TStrings;
  TmpStrings: TStrings;
  Idx: Integer;
begin
  if OpenDialog.Execute then
  begin
    Memo.Lines.LoadFromFile(OpenDialog.FileName);

    //把数据写入到List
    StringsList := TList.Create;
    for Idx := 0 to Pred(Memo.Lines.Count) do
    begin
      Strings := TStringList.Create;
      Strings.Delimiter := ',';
      Strings.DelimitedText := Memo.Lines[Idx];
      StringsList.Add(Pointer(Strings));
    end;

    TmpStrings := TStringList.Create;

    //删除S4相同的行
    StringsList.Sort(CompareS4); //按S4排序
    TmpStrings.Assign(TStrings(StringsList.Items[Pred(StringsList.Count)]));
    for Idx := Pred(StringsList.Count-1) downto  0 do
    begin
      if TmpStrings[3] = TStrings(StringsList.Items[Idx])[3] then
        StringsList.Delete(Idx)
      else
        TmpStrings.Assign(TStrings(StringsList.Items[Idx]));
    end;

    //删除S5相同的行
    StringsList.Sort(CompareS5); //按S5排序
    TmpStrings.Assign(TStrings(StringsList.Items[Pred(StringsList.Count)]));
    for Idx := Pred(StringsList.Count-1) downto  0 do
    begin
      if TmpStrings[4] = TStrings(StringsList.Items[Idx])[4] then
        StringsList.Delete(Idx)
      else
        TmpStrings.Assign(TStrings(StringsList.Items[Idx]));
    end;

    //把数据回写到MEMO
    Memo.Clear;
    for Idx := 0 to Pred(StringsList.Count) do
    begin
      Memo.Lines.Add(TStrings(StringsList.Items[Idx]).DelimitedText);
    end;

    //把数据回写到文档
    Memo.Lines.SaveToFile(OpenDialog.FileName);
  end;
end;

yunshenxin

天哪,晴空霹雳~ 很感谢你哦~你的算法,很好哦~~已经满足我的要求了~~非常感谢哦~~

面面爱面面

嘎嘎~~ 谢谢夸奖唉

yunshenxin

这么多人帮助,真的很谢谢大家~`感动~

yunshenxin

supperman 运行你的程序时,会越界哦~你看看

supperman

supperman 运行你的程序时,会越界哦~你看看
========================
不会越界的。

supperman

运算结果
======
20161217,D,B,DKDDA332021,ESA3332SS1
20161217,D,B,DKDDA332022,ESA3332SS2
20161217,D,B,DKDDA332023,ESA3332SS3

yunshenxin

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls,StrUtils;

type
  TForm1 = class(TForm)
    Button1: TButton;
    OpenDialog: TOpenDialog;
    Memo: TMemo;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}
function CompareS4(Item1, Item2: Pointer): Integer;
begin
  Result := CompareText(TStrings(Item1)[3], TStringList(Item2)[3]);
end;

function CompareS5(Item1, Item2: Pointer): Integer;
begin
  Result := CompareText(TStrings(Item1)[4], TStringList(Item2)[4]);
end;
procedure TForm1.Button1Click(Sender: TObject);
var
  StringsList: TList;
  Strings: TStrings;
  TmpStrings: TStrings;
  Idx: Integer;
begin
  if OpenDialog.Execute then
  begin
    Memo.Lines.LoadFromFile(OpenDialog.FileName);

    //把数据写入到List
    StringsList := TList.Create;
    for Idx := 0 to Pred(Memo.Lines.Count) do
    begin
      Strings := TStringList.Create;
      Strings.Delimiter := ',';
      Strings.DelimitedText := Memo.Lines[Idx];
      StringsList.Add(Pointer(Strings));
    end;

    TmpStrings := TStringList.Create;

    //删除S4相同的行
    StringsList.Sort(CompareS4); //按S4排序
    TmpStrings.Assign(TStrings(StringsList.Items[Pred(StringsList.Count)]));
    for Idx := Pred(StringsList.Count-1) downto  0 do
    begin
      if TmpStrings[3] = TStrings(StringsList.Items[Idx])[3] then
        StringsList.Delete(Idx)
      else
        TmpStrings.Assign(TStrings(StringsList.Items[Idx]));
    end;

    //删除S5相同的行
    StringsList.Sort(CompareS5); //按S5排序
    TmpStrings.Assign(TStrings(StringsList.Items[Pred(StringsList.Count)]));
    for Idx := Pred(StringsList.Count-1) downto  0 do
    begin
      if TmpStrings[4] = TStrings(StringsList.Items[Idx])[4] then
        StringsList.Delete(Idx)
      else
        TmpStrings.Assign(TStrings(StringsList.Items[Idx]));
    end;

    //把数据回写到MEMO
    Memo.Clear;
    for Idx := 0 to Pred(StringsList.Count) do
    begin
      Memo.Lines.Add(TStrings(StringsList.Items[Idx]).DelimitedText);
    end;

    //把数据回写到文档
    Memo.Lines.SaveToFile(OpenDialog.FileName);
  end;
end;




end.


出错提示 http://www.kongqiqiu.com/down/text.jpg