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

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

Новые блоги и статьи Все статьи Все блоги /
Про "Windows must die!" kumehtar 04.11.2026 Знаете, чет накатило. . . . Когда-то это было почти боевым кличем: мол, нормальный человек сидит на DOS, OS/ 2 или Linux, а вот это вот - Must Die. А теперь человек произносит «мастдай» с усмешкой - и. . .	Красочные поля с номером страницы svg+background-image russiannick 04.11.2026 Красочные поля с номером страницы не менее важны чем в эпоху бумажных книг. Посему спешу представить почтеннейшей публике этот важный инструмент который эти поля и формирует. В процессе разработки. . .	Вступаем в новую фазу генерации favicons, векторную. russiannick 02.11.2026 Теперь нет нужды скрывать что используется простой svg. Исходный код изображения помещаем в поле и жмем кнопку. Исходник преобразуется в вид корректный для помещения в favicon или в url(). Нажатие. . .	Генератор паролей (вариант №4) Maks 01.11.2026 После публикации 3-го варианта генератора паролей, разослал его своим коллегам (с целью оценки), в итоге были получены следующие рекомендации: 1. Вернуть возможность использования знаков \| 1 l I;. . .
Генератор паролей (вариант №3) Maks 30.10.2026 Финальная версия генератора паролей 1С. Доработка решения в этот раз коснулась только визуальной части, а именно, добавлен реквизит ДопПараметры (тип Булево), который скрывает/ отображает реквизиты:. . .	Магическое мышление и магия, современная наука не отличима от магии (говорит ИИ Джемени) zorxor 30.10.2026 Джемени, расскажи, пожалуйста, что такое магическое мышление, что такое магия, почему современная наука чем-то напоминает магию? Фраза «Любая достаточно развитая технология неотличима от магии». . .	За какое время ИИ может подобрать пароль по хешу (рассказывает Джемени ИИ) zorxor 30.10.2026 Расскажи, Джемени, если известен хэш МД5, например, за сколько ИИ сможет подобрать соответствующий пароль? Искусственный интеллект (ИИ) может подобрать простой или средний по сложности пароль по. . .	Кто убил Suno? Почему наше солнышко погасло? (диалог с ИИ Джемени) zorxor 30.10.2026 Как убивали Suno. Хронология. «Убийство» музыкальной нейросети Suno — это затяжной процесс, в котором технологический хайп стартапа разбился о жесткую реальность судебных исков от гигантов. . .

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