Последние записи

Интенсив по Python: Работа с API и фреймворками 24-26 ИЮНЯ 2022. Знаете Python, но хотите расширить свои навыки?
Slurm подготовили для вас особенный продукт! Оставить заявку по ссылке - https://slurm.club/3MeqNEk

Online-курс Java с оплатой после трудоустройства. Каждый выпускник получает предложение о работе
И зарплату на 30% выше ожидаемой, подробнее на сайте академии, ссылка - ttps://clck.ru/fCrQw

11th
Фев

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

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;