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

@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;
}

Новые блоги и статьи Все статьи Все блоги /
Отправка уведомления на почту при изменении наименования справочника Maks 24.03.2026 Программная отправка письма электронной почты на примере изменения наименования справочника "Склады" в конфигурации БП3. Перед реализацией необходимо выполнить настройку системной учетной записи. . .	модель ЗдравоСохранения 5. Меньше увольнений- больше дохода! anaschu 24.03.2026 Теперь система здравосохранения уменьшает количество увольнений. 9TO2GP2bpX4 a42b81fb172ffc12ca589c7898261ccb/ https:/ / rutube. ru/ video/ a42b81fb172ffc12ca589c7898261ccb/ Слева синяя линия -. . .	Midnight Chicago Blues kumehtar 24.03.2026 Такой Midnight Chicago Blues, знаешь?. . Когда вечерние улицы становятся ночными, а ты не можешь уснуть. Ты идёшь в любимый старый бар, и бармен наливает тебе виски. Ты смотришь на пролетающие. . .	Контроль уникальности заводского номера - вариант №2 Maks 24.03.2026 В отличие от предыдущего варианта добавлено прерывание циклов, также добавлены новые переменные для сохранения контекста ошибки перед прерыванием цикла: Процедура ПередЗаписью(Отказ, РежимЗаписи,. . .
SDL3 для Desktop (MinGW): Вывод текста со шрифтом TTF с помощью библиотеки SDL3_ttf на Си и C++ 8Observer8 24.03.2026 Содержание блога Финальные проекты на Си и на C++: finish-text-sdl3-c. zip finish-text-sdl3-cpp. zip	Жизнь в неопределённости kumehtar 23.03.2026 Жизнь — это постоянное существование в неопределённости. Например, даже если у тебя есть список дел, невозможно дойти до точки, где всё окончательно завершено и больше ничего не осталось. В принципе,. . .	Модель здравоСохранения: работники работают быстрее после её введения. anaschu 23.03.2026 geJalZw1fLo Корпорация до введения программа здравоохранения имела много невыполненных работниками заданий, после введения программы количество заданий выросло. Но на выплатах по больничным это. . .	Контроль уникальности заводского номера - вариант №1 Maks 23.03.2026 Алгоритм контроля уникальности заводского (или серийного) номера на примере документа выдачи шин для спецтехники с табличной частью в конфигурации КА2. Данные берутся из регистра сведений, по. . .

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