Удалить повторяющихся строк в текстовом файле

Posted by Chas under Delphi

Открыть .txt через OpenDialog удалить в нем дубликаты, и показать сообщение сколько было удалено дубликатов, и сохранить результат в тот же txt?

alextrof94

var

  MyStringList: TStringList;

  i, j, c: integer;

begin

 FileName:='';

 c:=0;

 OpenDialog1.execute;

 if OpenDialog1.filename<>'' then

 begin

  MyStringList:=TStringList.Create;

  MyStringList.LoadFromFile(OpenDialog1.filename);

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

   for j:=MyStringList.Count-1 downto i+1 do

    if MyStringList=MyStringList[j] then

    begin

     MyStringList.delete(j);

     inc(c);

    end;

  MyStringList.SaveToFile(OpenDialog1.filename);

  MyStringList.Free;

 end;

end;

Serge_Bliznykov
если допустимо изменение порядка элементов в файле, задача может быть решена максимально эффективно, в пару строчек:

procedure TForm1.Button1Click(Sender: TObject);

var ts : TStringList;

begin

  if OpenDialog1.Execute then begin

    ts := TStringList.Create;

    try

      ts.Duplicates := dupIgnore;

      ts.Sorted := true;

      ts.LoadFromFile(OpenDialog1.FileName);

      Memo1.Lines.Text := ts.Text;  // для отладки выведем текст в мемо...

    finally

      ts.Free;

    end;

  end;

end;

doktor255

procedure TForm1.Button1Click(Sender: TObject);

var

  TS1, TS2: TStringList;

  i: integer;

begin

  if OpenDialog1.Execute then begin

    TS1:= TStringList.Create;

    TS1.LoadFromFile(OpenDialog1.FileName);

    TS2:= TStringList.Create;

    for I := 0  to TS1.Count - 1 do

      if TS2.IndexOf(TS1) = - 1 then

        TS2.Add(TS1);

    TS2.SaveToFile(ExtractFileDir(OpenDialog1.FileName) + '/result.txt'); // сохранение изменений

    ShowMessage('Из файла удалено ' + IntToStr(TS1.Count - TS2.Count) + ' строк.');

    TS1.Free;

    TS2.Free;

  end;

end;

тема на форуме

Похожие статьи

• Сохранение символа юникода в txt файл
• Если текстовый файл существует, то открыть его и добавить перед третьей строкой новую строчку текста
• Сортировка кучей на языке Си
• Сортировка имен файлов в TStringList
• Распределить слова в алфавитном порядке
• Как экспортировать таблицу DBGrid в txt файл?
• Случайная строка из текстового файла
• Сортировка в обе стороны при повторном нажатии на заголовок
• Как из загруженного файла брать рандомную строку
• Как сделать снимок memo поля в программе