Удаление дубликатов по домену

@iuo · Регистрация: 28.03.2011

Студворк — интернет-сервис помощи студентам

Нужно удалять дуликаты по домену в Memo такого типа
site.com/text
site1.com/text
site.com/text
site1.com/text
site2.com/text
Нужно чтобы остовалось так
site.com/text
site1.com/text
site2.com/text
Но уменя получилось так
site.com/
site1.com/
site2.com/

Помогите с кодом .

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
void __fastcall TForm2::Button3Click(TObject *Sender)
{  AnsiString s,b;
      for  (int i = 0;i < Memo1->Lines->Count;i++)
      {
        s= Memo1->Lines->Strings[i].SubString(1,Memo1->Lines->Strings[i].Pos("/"));
          for (int j = 0; j< Memo1->Lines->Count; j++) {
           b= Memo1->Lines->Strings[i].SubString(1,Memo1->Lines->Strings[j].Pos("/"));
            if (s == b   ) {
                 Memo1->Lines->Delete(j) ;
            }
 
              }
            Memo1->Lines->Add(s) ;
      }
}

cpp_developer · 29.03.2011, 03:04

хорошо

, окуда берутся адреса сайтов ?
и у меня такое впечатление, что вы читаете мои сообщения через строку - чем не устраивает вариант со StringList ? ведь он делает то, что вам необходимо ?

@iuo · 29.03.2011, 03:13 **[ТС]**

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

хорошо

, окуда берутся адреса сайтов ?
и у меня такое впечатление, что вы читаете мои сообщения через строку - чем не устраивает вариант со StringList ? ведь он делает то, что вам необходимо ?

Я очень внимательно читаю ваши сообщения , адреса парсятся с поисковика . В варианте с StringList сравнивается полностью вся строка , а мне нужно , чтобы сравнивалось по домену . Вот Так !

cpp_developer · 29.03.2011, 03:19

путаете меня все время

- тогда при чем тут дубликаты ? нужно удалить строку, если она содержит (или не содержит) определенную подстроку, а это уже совсем другой разговор, я так понимаю

@iuo · 29.03.2011, 03:29 **[ТС]**

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

путаете меня все время

- тогда при чем тут дубликаты ? нужно удалить строку, если она содержит (или не содержит) определенную подстроку, а это уже совсем другой разговор, я так понимаю

Так то оно так , нужно удалять дубликат не всей строки , а строки которые садаржат дебликаты доменов .

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

нужно удалить строку, если она содержит (или не содержит) определенную подстроку, а это уже совсем другой разговор, я так понимаю

И что делать , если это совсем другой разговор , какой вариант кода тогда должен быть ?

cpp_developer · 29.03.2011, 03:35

ну не дубликаты это! дубликаты - это идентичные строки - из-за
тих дубликатов мы с вами весь вечер и пол-ночи переливаем из пустого в порожнее

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
TStringList list = new TStringList;
list->Add("builder"); // желательные сайты
list->Add("visual");
list->Add("codeblocks");
list->Add("eclipse");
 
for (int i =0; i < list->Count; i++) {
    if (!Memo1->Lines->Strings[i].SubString(list->Strings[i])
        Memo1->Lines->Delete(i); // удаляем все остальное
} 
// или, если в списке - желательные сайты :)
for (int i =0; i < list->Count; i++) {
    if (Memo1->Lines->Strings[i].SubString(list->Strings[i])
        Memo1->Lines->Delete(i); // просто удаляем
}

как-то так

@iuo · 29.03.2011, 03:40 **[ТС]**

Ну тогда я извеняюсь за неправильную постановку задачи

cpp_developer · 29.03.2011, 03:46

тебе нигде не попадалась фраза: "Правильно заданный вопрос - половина ответа"

, в нашем случае - процентов 90

, потому как

Нужно удалять дуликаты по домену в Memo такого типа site.com/text

это для меня означает "идентичные строки с доменом site.com", я тупой, тупой, тупой ...

@iuo · 29.03.2011, 03:56 **[ТС]**

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

ну не дубликаты это! дубликаты - это идентичные строки - из-за
тих дубликатов мы с вами весь вечер и пол-ночи переливаем из пустого в порожнее

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
TStringList list = new TStringList;
list->Add("builder"); // желательные сайты
list->Add("visual");
list->Add("codeblocks");
list->Add("eclipse");
 
for (int i =0; i < list->Count; i++) {
    if (!Memo1->Lines->Strings[i].SubString(list->Strings[i])
        Memo1->Lines->Delete(i); // удаляем все остальное
} 
// или, если в списке - желательные сайты :)
for (int i =0; i < list->Count; i++) {
    if (Memo1->Lines->Strings[i].SubString(list->Strings[i])
        Memo1->Lines->Delete(i); // просто удаляем
}

как-то так

А можно както сделать , чтобы переберало не Желательные сайты , а просто те ссылки которые находятся в Memo , сравнивались между собой относительно доменов .Если совподает ссылка с другой ссылкой у которой такойже домен то сылка удаляется . Както так .

Добавлено через 2 минуты

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

тебе нигде не попадалась фраза: "Правильно заданный вопрос - половина ответа"

, в нашем случае - процентов 90

, потому какэто для меня означает "идентичные строки с доменом site.com", я тупой, тупой, тупой ...

Ну я же сказал , что извиняюсь За неправильно сформулированый вопрос .

cpp_developer · 29.03.2011, 04:01

А можно както сделать , чтобы переберало не Желательные сайты , а просто те ссылки которые находятся в Memo , сравнивались между собой относительно доменов .Если совподает ссылка с другой ссылкой у которой такойже домен то сылка удаляется .

перечитай внимательно свой вопрос и смотри сюда:

www.cyberforum.ru/pascal/
www.cyberforum.ru/cpp-beginners/

здесь обе ссылки имеют один домен, значит, обе будут удалены, иначе, объясни мне, как комп должен понят, что нужно оставить www.cyberforum.ru/pascal/, а www.cyberforum.ru/cpp-beginners/ удалить ?

@iuo · 29.03.2011, 04:09 **[ТС]**

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

перечитай внимательно свой вопрос и смотри сюда:здесь обе ссылки имеют один домен, значит, обе будут удалены, иначе, объясни мне, как комп должен понят, что нужно оставить www.cyberforum.ru/pascal/, а www.cyberforum.ru/cpp-beginners/ удалить ?

Вот теперь мне все понятно , спасибо что разяснил

cpp_developer · 29.03.2011, 04:14

если тебя волнует невидимый и "неизменяемый" в запущеной программу StringList, то можно сделать редактируемый ListBox, и потом использовать

C++
1
if (Memo1->Lines->Strings[i].SubString(ListBox->Items->Strings[i])

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

@iuo · 30.03.2011, 09:41 **[ТС]**

Решил поставленую задачю вот таким образом

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
void __fastcall TForm2::Button3Click(TObject *Sender)
{    TStringList *list = new TStringList;
  list->Text = Memo1->Text;
   list->Sorted = true;
   AnsiString s,b,c;
      for  (int i = 0;i < list->Count;i++)
      {
            s= list->Strings[i].SubString(1,list->Strings[i].Pos("/"));
             c= list->Strings[i].SubString(1,list->Strings[i].Pos("/")+255) ;
              for (int j = i; j< list->Count; j++) {
               b= list->Strings[j].SubString(1,list->Strings[j].Pos("/")) ;
                if (s == b   ) {
                    list->Delete(j--) ;
                }
              }
              list->Add(c);
            Memo1->Clear();
            Memo1->Text = list->Text;
      }
 
   delete list;
   list = NULL;
}

Новые блоги и статьи Все статьи Все блоги /
Беседа с ИИ о программистах, недопускающих к созданию и правке кода генеративные ИИ и причины этого zorxor 21.09.2026 Раньше я радовался или получал некоторые эмоции, пусть небольшие, но всё же, от самого процесса написания кода, рекомпиляции и запуска, видя постепенное развитие программы и прочее. А теперь лень. . .	Мобильное приложение ColorStep pavlinmavlin 17.09.2026 Реализовал приложение Красный, Зеленый, Синий в Unity3d + c#. Название изменил на ColorStep. Приложение прошло модерацию и теперь доступно для скачивания. Делал его сам, шаг за шагом — и вот,. . .	Запрет дублирования строк в табличной части Maks 13.09.2026 Реализация из решения ниже выполнена на нетиповом справочнике "Нормы ТО" с табличной часть "Виды ТО", разработанного в КА2, со следующими реквизитами: - ВидТО (СправочникСсылка. ВидыТО); - ВидГСМ. . .	Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Jin X 06.09.2026 Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Работая с форумом и нейросетями в браузере часто хочется что-то подкорректировать или добавить какого-то функционала. Ниже прикреплён. . .
Программа опроса у.з. расходомера SLS-720F Argus19 02.09.2026 Программа опроса у. з. расходомера SLS-720F Программа опрашивает один раз в минуту три ультразвуковых расходомера SLS-720F через интерфейс RS-485 по протоколу Modbus RTU. Опрашиваются регистры. . .	Hyper-V: Компьютер должен поддерживать доверенный платформенный модуль 2.0. Maks 31.08.2026 При установке Windows 11 на виртуальную машину Hyper-V 2-го поколения вылезла такая ошибка: Решение: в параметрах виртуальной машины, в разделе "Безопасность" (Security) активировать флаг. . .	Архитектура биовида Стива в Майнкрафте: Зачем бонобо кубический каннибализм anaschu 30.08.2026 Кубический Вагинокапитализм в Minecraft: Математический инвариант ОДУ и рок Стивов-бонобо Главная задача разработанной «Модели Всего» — наглядно продемонстрировать наличие системной «судьбы». . .	Оттачиваю умение писать js программы. russiannick 30.08.2026 Проектом выходного дня стало написание Книги шифров Виженера. Итогом стала версия 200, синий туман. Синий туман назван так, потому что замораживает текст под собой. Нажатие синих кнопок управляют. . .

cpp_developer 20124 / 5691 / 417 Регистрация: 09.04.2010 Сообщений: 22,546 Записей в блоге: 1
	29.03.2011, 03:04
	хорошо , окуда берутся адреса сайтов ? и у меня такое впечатление, что вы читаете мои сообщения через строку - чем не устраивает вариант со StringList ? ведь он делает то, что вам необходимо ? 0

cpp_developer 20124 / 5691 / 417 Регистрация: 09.04.2010 Сообщений: 22,546 Записей в блоге: 1
	29.03.2011, 03:19
	путаете меня все время - тогда при чем тут дубликаты ? нужно удалить строку, если она содержит (или не содержит) определенную подстроку, а это уже совсем другой разговор, я так понимаю 0

@iuo 1 / 1 / 0 Регистрация: 28.03.2011 Сообщений: 16
	29.03.2011, 03:40 [ТС]
	Ну тогда я извеняюсь за неправильную постановку задачи 0