0

Я проверяю дубликаты строк до символа =. И если строки есть то сохранить не удаляя дубликаты.

var f, s: TStringDynArray;
    i, j, k: integer;
    L, L1: TStringList;
    index: array of integer;
begin
 L := TStringList.Create;
 L1 := TStringList.Create;
 j := 0;
 // грузим файл
 f := TFile.ReadAllLines('1.txt');
 // Проходим в цикле
 for i := Low(f) to High(f) do
  begin
   // делим строку
   s := SplitString(f[i], '=');
   // первая часть стоки до знака =
   k := L.IndexOf(s[0]);
   if k = -1
    then
     begin
      inc(j);
      L.AddObject(s[0], TObject(1));
      SetLength(Index, j);
      Index[j - 1] := i;
     end
    else L.Objects[k] := TObject(Integer(L.Objects[k]) + 1);
  end;
 for i := 0 to High(Index) do
 if Integer(L.Objects[i]) <> 1 then L1.Add(f[Index[i]]);
 L1.SaveToFile('Выход.txt');
 L1.Free;
 L.Free;
end;

Пример строк

123=5678
324=345678
333=7678333
333=5457788
222=347678
222=47878888

На выходе должно получится

333=7678333
333=5457788
222=347678
222=47878888

А у меня получается.То есть еще и дубликаты удаляются а должны сохранится.

333=7678333
222=347678
2
  • 1
    Ну, дык. Ты ж запоминаешь только первый индекс, когда заносишь строку. И ещё. По-моему, чересчур сложно. Во-первых, если файл небольшой, можно его загрузить непосредственно в TStringList. Во-вторых, у TStringList должны быть свойства Keys и Values, поэтому дополнительные SplitString-и не нужны. В-третьих, разве в xe7 нет TDictionary? Преобразования TObject <=> Integer смотрятся ужасно. Заносишь туда, потом проверяешь, уникальные удаляешь из исходного списка.
    – Old Skull
    Commented 4 мар. 2023 в 18:49
  • @Old Skull, К сожалению с TDictionary не работал.
    – Gleb
    Commented 4 мар. 2023 в 19:29

1 ответ 1

3

Как-то слишком перегружено ИМХО.

Кроме того, список ключей и значений, разделённый символом '=' - это штатная конструкция, про которую знает TStringList и умеет с ней работать.

Вот пример кода, который решает указанную задачу. Неоптимальным способом, зато максимально просто.

var
  Source: TStrings;
  Value: string;
  Index: Integer;
  Found: Integer;
begin
  Source := TStringList.Create;
  Source.LoadFromFile('C:\Projects\Tests\1.txt');
  { Начинаем с конца, потому что IndexOfName() возвращает
    только первое найденное значение }
  Index := Source.Count - 1;
  { До тех пор пока не пройдём весь список до начала }
  while Index >= 0 do
  begin
    { Получаем значение ключа }
    Value := Source.KeyNames[Index];
    { Ищем парное ему значение }
    Found := Source.IndexOfName(Value);
    { Если нашли именно дубликат, а не себя }
    if (Found >= 0) and (Found < Index) then
      { То отмечаем его чтобы не проверять заново }
      Source.Objects[Found] := TObject(True)
    else
      { Иначе удаляем элемент без дубликатов }
      Source.Delete(Index);
    { Смещаемся вверх на один элемент }
    Dec(Index);
    { Пропускам уже найденные дубликаты }
    while (Index >= 0) and (Source.Objects[Index] = TObject(True)) do
      Dec(Index);
  end;
  Source.SaveToFile('C:\Projects\Tests\2.txt');
  Source.Free;
end.

UPD: Исправил код чтобы он не выдавал исключение, если в списке строки без разделителей.

5
  • Работает, благодарен за помощь. Только вот еще такой вопрос а как изменить разделитель =. Если к примеру в строке будет двоеточие : место = То тогда ваш код выдает исключение в виде ошибки List index out of bounds (-1). Буду благодарен за ответ.
    – Gleb
    Commented 4 мар. 2023 в 19:18
  • 2
    Source.NameValueSeparator := ':'; после Source := TStringList.Create;.
    – Alekcvp
    Commented 4 мар. 2023 в 20:12
  • Отличное решение. Работает именно так как нужно. Благодарен за помощь, сейчас изучу код.
    – Gleb
    Commented 4 мар. 2023 в 20:26
  • А еще такой вопрос к Вам Alekcvp. А если проверять строки после знака :. То в коде нужно индекс поменять ? Буду благодарен за ответ.
    – Gleb
    Commented 5 мар. 2023 в 20:14
  • 1
    За текст после разделителя отвечает свойство ValueFromIndex.
    – Alekcvp
    Commented 7 мар. 2023 в 6:56

Ваш ответ

Нажимая «Отправить ответ», вы соглашаетесь с условиями пользования и подтверждаете, что прочитали политику конфиденциальности.

Всё ещё ищете ответ? Посмотрите другие вопросы с метками или задайте свой вопрос.