1

Интересует решения такого вопроса: Есть список папок с подобными именами

dsrecr7e7 787
dsrecr7e7 587
ctqcfw7w4 6578

Как удалить дубликаты папок и все что в них сравнивая их до первого пробела. То есть если имена до первого пробела совпадут то удалить дублирующую папку и все что в ней (То есть сравнение идет только по названию папок до первого пробела).

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

dsrecr7e7 587
ctqcfw7w4 6578
3
  • 2
    с какой частью решения у вас проблемы возникли? разбить до пробела вроде не сложно. добавить в код TDictionary<string, string> вроде тоже не сложно, где первую часть до пробела использовать в качестве ключа. далее итерировать список, проверяя наличие ключа в словаре
    – teran
    Commented 27 сент. 2021 в 9:38
  • teran, Буду пробовать с словарями никогда не приходилось особо работать. Commented 27 сент. 2021 в 9:45
  • 1
    в целом можете обойтись и TStringList а не словарем
    – teran
    Commented 27 сент. 2021 в 9:52

1 ответ 1

2

Вопрос решен, кому интересно то ответ прост:

var L: TStringList;
    s, sDirName, sSubStr: string;
    i : integer;
begin
  L := TStringList.Create;
  L.Sorted := True;
 
 for s in TDirectory.GetDirectories('ПутьГдеИщемУдаляемПапки') do
    begin
       DirectoryName := TPath.GetFileName(s);
       if Pos(' ', DirectoryName)>1 then begin
         sSubStr := Copy( DirectoryName, 1, Pos(' ', DirectoryName)-1);
         if L.Find(sSubStr, i) then // нашли дубликат, удаляем папку
                  TDirectory.Delete(s, true)
         else L.Append(sSubStr); // если такой папки не было, то сохраним имя в списке
       end; 
    end;
 
 FreeAndNil(L);
end;

Ваш ответ

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

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