[corzh]

Всем привет!
Помогите пожалуйста новичку. Есть текстовый файл с неким количеством одинаковых ссылок.
Нужно из этого файла выбрать в отдельный файл по одному дубликату, а ссылки у которых нет дублей, в другой отдельный файл.
Заранее спасибо!

[Alegun]

Код:

procedure ruz(fn, dupfn, nodupfn: string);
var
 sl1, sl2, sl3: TStrings;
 i, b, c:       integer;
begin
 sl1:= TStringList.Create;
 sl2:= TStringList.Create;
 sl3:= TStringList.Create;

 sl1.LoadFromFile(fn);
 sl2.Add(sl1[0]);

 for i := 1 to sl1.Count-1 do
  begin
   c:= 0;
   for b := 0 to sl2.Count-1 do
    if sl1[i] = sl2[b] then c:= 1;
   if c = 0 then sl2.Add(sl1[i]);
  end;

 for i := 0 to sl2.Count-1 do \\ С нуля здесь список должен крутиться
  begin
   c:= 0;
   for b := 0 to sl1.Count-1 do
    if sl2[i] = sl1[b] then inc(c);
   if c = 1 then sl3.Add(sl2[i]);
  end;

 sl2.SaveToFile(dupfn);
 sl3.SaveToFile(nodupfn);

 sl1.Free;
 sl2.Free;
 sl3.Free;
end;
...

// Вызов
 ruz('total.txt', 'dup.txt', 'nodup.txt');

Очепятка из-за копипасты, не заметил, исправьте у себя условия цикла

[corzh]

Спасибо огромное, все работает!!!

[corzh]

Есть проблема. Если в файле все ссылки с дублями, то работает нормально. Если есть одинарные, то они почему то выводятся в оба файла, с дублями и без.

[Alegun]

Сообщение от corzh

...Если есть одинарные, то они почему то выводятся в оба файла, с дублями и без.

Такое ТЗ у вас было, как написано, так и выполнено Ведь пример перед глазами - тогда и в первом цикле отлова уникальных строк нужно вместо прямого присвоения c:= 1 задействовать её инкримент, и если после просмотра переменная > 1 то заносим во второй список, иначе, пропустить

[corzh]

А можно сделать тогда без сохранения уникальных ссылок, а только сохранять по одному дубликату?
Основная задача стоит, чтобы определить дубликаты и вывести по одному дубликату в отдельный файл.

[Alegun]

Проще второй циклоблок заменить на

Код:

 for i := sl2.Count-1 downto 0 do
  begin
   c:= 0;
   for b := 0 to sl1.Count-1 do
    if sl2[i] = sl1[b] then inc(c);
   if c = 1 then 
    begin
     sl3.Add(sl2[i]);
     sl2.Delete(i);
    end;
  end;