0

В текстовом файле есть строки:

Документ№1:22.06.2018 
Документ№2:22.06.2018
Документ№3:22.06.2018
Документ№1:23.05.2018
Документ№1:25.05.2018

Задача: Удалить все дубликаты строк (оставив одну уникальную).

Особое условие: Одинаковой, считается строка, в которой, до символа ":" - повторяются слова (в нашем случае - Документ№1).

Результат на выходе:

Документ№1:22.06.2018 
Документ№2:22.06.2018
Документ№3:22.06.2018

Стандартное, удаление дублирующих строк, сделать не проблема, для меня. А вот в данном случае, с задачей, не могу справиться.

10
  • 2
    И что вызывает трудности? Commented 22 июн. 2018 в 19:31
  • 1
    в стринглист какой нить valueseparator установить в : и загрузить содержимое, наверняка небось останутся уникальные записи только. правда скорее всего последение.
    – teran
    Commented 22 июн. 2018 в 21:00
  • 1
    Вам помогут функции Pos и Copy или метод String.Split Commented 23 июн. 2018 в 10:50
  • 1
    @teran Не останутся. Загрузятся все записи. А вот Values[] будет возвращать первую запись для указанного имени Commented 23 июн. 2018 в 10:51
  • 1
    Ну покажите как пробовали Commented 23 июн. 2018 в 12:45

1 ответ 1

1
var
  Strings: TDictionary<string, string>;
  Str: string;
  Key: string;
begin
  Strings := TDictionary<string, string>.Create;
  try
    while ... do begin
      Str := ReadString;
      Key := Copy(Str, 1, Pos(':', Str) - 1);
      if not Strings.ContainsKey(Key) then
        Strings.Add(Key, Str);
    end;
    for Str in Strings.Values do
      WriteString(Str);
  finally
  end;
end;
1
  • Отличнейшее решение. Я в приятном шоке, даже и не думала что на столько все просто. Низкий поклон Вам - Anton Shchyrov! Commented 23 июн. 2018 в 18:30

Ваш ответ

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

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