На главную Наши проекты:
Журнал   ·   Discuz!ML   ·   Wiki   ·   DRKB   ·   Помощь проекту
ПРАВИЛА FAQ Помощь Поиск Участники Календарь Избранное RSS
msm.ru
! ПРАВИЛА РАЗДЕЛА · FAQ раздела Delphi · Книги по Delphi
Пожалуйста, выделяйте текст программы тегом [сode=pas] ... [/сode]. Для этого используйте кнопку [code=pas] в форме ответа или комбобокс, если нужно вставить код на языке, отличном от Дельфи/Паскаля.
Следующие вопросы задаются очень часто, подробно разобраны в FAQ и, поэтому, будут безжалостно удаляться:
1. Преобразовать переменную типа String в тип PChar (PAnsiChar)
2. Как "свернуть" программу в трей.
3. Как "скрыться" от Ctrl + Alt + Del (заблокировать их и т.п.)
4. Как прочитать список файлов, поддиректорий в директории?
5. Как запустить программу/файл?
... (продолжение следует) ...
Вопросы, подробно описанные во встроенной справочной системе Delphi, не несут полезной тематической нагрузки, поэтому будут удаляться.
Запрещается создавать темы с просьбой выполнить какую-то работу за автора темы. Форум является средством общения и общего поиска решения. Вашу работу за Вас никто выполнять не будет.
Внимание
Попытки открытия обсуждений реализации вредоносного ПО, включая различные интерпретации спам-ботов, наказывается предупреждением на 30 дней.
Повторная попытка - 60 дней. Последующие попытки бан.
Мат в разделе - бан на три месяца...
Модераторы: jack128, D[u]fa, Shaggy, Rouse_
  
> Подсчет статистики
Guru ^D^ima
Сообщ. #1 ,

    Guru
    *******
    Профиль · PM
    Поощрения: 3 Dgm
    Рейтинг (т): 303
    Распарсил логи firewall'а. на выходе текст в Memo.
    Последняя запись в каждой строке - IP адрес соединения.
    Как мне быстро подсчитать статистику по IP адресам?
    Вход(пример. Самих строк > 100 000)
    ExpandedWrap disabled
      2017-11-08 00:53:31 103.224.80.24
      2017-11-08 02:17:09 103.224.80.24
      2017-11-08 03:40:42 103.224.80.24
      2017-11-08 05:04:16 103.224.80.24
      2017-11-08 05:53:20 5.223.59.44
      2017-11-08 06:27:54 103.224.80.24
      2017-11-08 07:03:42 46.148.20.25
      2017-11-08 07:51:25 103.224.80.24
      2017-11-08 08:47:53 95.24.105.204
      2017-11-08 08:47:54 95.24.105.204
      2017-11-08 09:08:33 192.168.0.250
      2017-11-08 09:08:45 192.168.0.250
      2017-11-08 09:10:57 185.27.50.118
      2017-11-08 09:11:06 185.27.50.118
      2017-11-08 09:11:06 185.27.50.118
      2017-11-08 09:14:53 103.224.80.24
      2017-11-08 09:38:19 192.168.0.250
      2017-11-08 09:38:20 192.168.0.250
      2017-11-08 09:39:28 192.168.0.250


    Чтобы на выходе(пускай в memo2) было что-то типа:
    ExpandedWrap disabled
      192.168.0.250 - 4
      185.27.50.118 - 10
      95.24.105.204 - 20

    Сортировка не нужна.

    Я конечно могу нагородить огород с двумерным массивом, но думаю что есть метод проще.
    MBo
    Сообщ. #2 ,
      Master
      ******
      Профиль · PM
      Поощрения: 3 Dgm
      Рейтинг (т): 320
      Например, отделять последнюю запись и построить TDictionary, используя записи как ключ, а счетчик - value

      Примерно так:

      ExpandedWrap disabled
        Dict: TDictionary<string, integer>
        для каждой строки
            выделить ipstring  
            Dict.TryGetValue(ipstring, cnt);
            Dict.AddOrSetValue(ipstring, cnt + 1);
      Сообщение отредактировано: MBo -
      Guru ^D^ima
      Сообщ. #3 ,

        Guru
        *******
        Профиль · PM
        Поощрения: 3 Dgm
        Рейтинг (т): 303
        ExpandedWrap disabled
          Var
          Dict: TDictionary<string, integer>;
          [dcc32 Error] Unit1.pas(51): E2003 Undeclared identifier: 'TDictionary<,>'
        Profi Shaggy
        Сообщ. #4 ,

          Moderator
          *****
          Профиль · PM
          Рейтинг (т): 130
          uses generics.collections;
          Guru ^D^ima
          Сообщ. #5 ,

            Guru
            *******
            Профиль · PM
            Поощрения: 3 Dgm
            Рейтинг (т): 303
            Цитата MBo @
            cnt

            А тут что передавать?
            MBo
            Сообщ. #6 ,
              Master
              ******
              Профиль · PM
              Поощрения: 3 Dgm
              Рейтинг (т): 320
              Целочисленная переменная. При отсутствии ipstring первый метод обнулит переменную, второй занесет в слварь строку с единичным счетчиком
              leo
              Сообщ. #7 ,
                Guru
                *******
                Профиль · PM
                Поощрения: 17 Dgm
                Рейтинг (т): 940
                Цитата ^D^ima @
                Я конечно могу нагородить огород с двумерным массивом, но думаю что есть метод проще.

                Простой древний способ - хранить числа в TStringList.Objects[i]:
                ExpandedWrap disabled
                  if List.Find(S,i) then
                    List.Objects[i]:=TObject(integer(List.Objects[i])+1)
                  else
                    List.InsertObject(i,S,TObject(1));
                Gonarh
                Сообщ. #8 ,
                  Full Member
                  ***
                  Профиль · PM
                  Рейтинг (т): 30
                  awk '{print $3}' | sort | uniq -c | sort
                  Guru ^D^ima
                  Сообщ. #9 ,

                    Guru
                    *******
                    Профиль · PM
                    Поощрения: 3 Dgm
                    Рейтинг (т): 303
                    Gonarh
                    и на каком это шеле?
                    Gonarh
                    Сообщ. #10 ,
                      Full Member
                      ***
                      Профиль · PM
                      Рейтинг (т): 30
                      Таки обичный баш.
                      0 пользователей читают эту тему (0 гостей и 0 скрытых пользователей)
                      0 пользователей:


                      Рейтинг@Mail.ru
                      [ Script execution time: 0,0379 ]   [ 17 queries used ]   [ Generated: 23.04.24, 17:57 GMT ]  
                      Powered by Invision Power Board(U) v1.2 © 2003  IPS, Inc.