Вверх ↑
Этот топик читают: Гость
Ответов: 20
Рейтинг: 1
#16: 2013-11-30 22:47:29 ЛС | профиль | цитата
Tad писал(а):
http://forum.d2h.ru//getfile/32457
Вот здесь они собраны в кучу.

это я тоже видел
но нечего не понял
------------ Дoбавленo в 22.35:
а, вроде начал понимать, вот эта часть отвечает за повторение строк?

Add(MainForm,1998910,427,203)
{
Width=360
Height=432
}
Add(Button,4901219,539,203)
{
Left=15
Top=220
Width=145
Height=35
Caption="Загрузить список"
link(onClick,841514:doExecute,[])
}
Add(ODialog,841514,602,203)
{
link(onExecute,175837:doEvent1,[])
}
Add(StrList,7191050,637,42)
{
Point(doSort)
}
Add(ArrayFilterRepeats,15935933,749,238)
{
link(Array,7191050:Array,[(755,198)(657,198)])
}
Add(Hub,175837,672,203)
{
OutCount=3
link(onEvent1,7191050:doLoad,[(732,209)(732,76)])
link(onEvent2,7191050:doSort,[(710,216)(710,90)])
link(onEvent3,15935933:doFilter,[(698,223)(698,244)])
}


------------ Дoбавленo в 22.36:
то есть вместо фильтра подставлять остальные элементы, и схема будет работать? верно?
------------ Дoбавленo в 22.47:
с удалением повторений вроде получается с соединением нет.

И вот еще вопрос если загрузить тектовый файл в одну тысячу, он же будет работать по порядку? это не долго ли будет? можно ли ускорить эти процессы?
карма: 0

0
Ответов: 1535
Рейтинг: 176
#17: 2013-11-30 23:11:02 ЛС | профиль | цитата
Teratet писал(а):
можно ли ускорить эти процессы?
Леонид писал(а):
Поэтому лучше сразу создать БД и работать с ней, т. к. ещё неизвестно, какие хотелки появятся

карма: 1
Не так страшна ошибка, как опасность её не заметить.

0
Ответов: 16884
Рейтинг: 1239
#18: 2013-11-30 23:23:53 ЛС | профиль | цитата

code_32460.txt
Загружаешь файл. В ComboBox-е появится отсортированный список первых значений IP.
Выбираешь нужный и получаешь список.
К свободным точкам MultiStrData можешь подключить ComboBox-ы для второго, третьего и четвертого значений IP.
Teratet писал(а):
И вот еще вопрос если загрузить тектовый файл в одну тысячу, он же будет работать по порядку? это не долго ли будет?
Реклама писал(а):
А вы попробуйте
(и нам расскажете.)
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
файлы: 1code_32460.txt [2.6KB] [126]
Ответов: 20
Рейтинг: 1
#19: 2013-11-30 23:30:08 ЛС | профиль | цитата
ser_davkin писал(а):
да нет же трудно все это, мы решили таким способом и будет лучше и софт будет, уже приятнее.
Tad писал(а):

спасибо сейчас попробую и расскажу
карма: 0

0
Ответов: 16884
Рейтинг: 1239
#20: 2013-11-30 23:35:37 ЛС | профиль | цитата
Teratet писал(а):
столкнулись с такой проблемой, как большое количество серверов
И они каждый день другие.
Не смеши мои тапочки.
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Ответов: 20
Рейтинг: 1
#21: 2013-11-30 23:56:16 ЛС | профиль | цитата
Когда все вместе не совсем понятно, прочитал справку, ну не как не могу понять, что с чем соединять, можно 3 схемки?
1. схемка для добавления порта к ип адрессам.
2. Для сортировки по началу ип адресса.

и вот это впринципе же работает нормально? для удаления повторений?

code_32461.txt

да она работает это схема, спасибо Tad, но программа сильно зависает когда загружаю тектовый файл с более чем 1 000 тысячи строк
карма: 0

0
файлы: 1code_32461.txt [684B] [127]
Ответов: 8915
Рейтинг: 823
#22: 2013-12-01 01:13:00 ЛС | профиль | цитата
Teratet, схему Tad-а не смотрел, может эту попытать, на моём компьютере (W7, 3500 МГц) 1000 строк не заметно ожидания
code_32462.txt
(файла с адресами у меня нет, пришлось генерировать)
карма: 19

1
файлы: 1code_32462.txt [7.6KB] [149]
Голосовали:Teratet
Ответов: 20
Рейтинг: 1
#23: 2013-12-01 09:34:39 ЛС | профиль | цитата
Леонид писал(а):

очень хорошая схема, спасибо большое, правда не сразу разобрался, если не трудно, не мог бы ты, разделить эту схему на три, тоесть каждый кусочек кода работал отдельно, сортировка, добавление, удаление повторов?
------------ Дoбавленo в 09.33:
еще не много разобрался, отличная схема! работает отлично!

Т.к. серверов будет много, то не будет ли программа подвисать, я вот читал тут на форуме, многопоточность, как это можно применить?
и еще, а что делать со добавлением?
------------ Дoбавленo в 09.34:
а соединение это через порт, то есть загрузил список айпи адрессов, в первую часть, а во вторую дописываю порт, и соединяется? верно?
карма: 0

0
Ответов: 16884
Рейтинг: 1239
#24: 2013-12-01 10:34:44 ЛС | профиль | цитата
Можно и так решить. teratet.rar
Сортировка - клик по названию колонки (любой).
Если есть дубли, то активируется кнопка удаления дублей.
В файле 2000 IP. Тормозов не вижу.
Попутно вопрос: писал(а):
Зачем ко всем добавлять порт 21 ? А парсер твой нахрена ? Пусть он и добавляет.


карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Ответов: 20
Рейтинг: 1
#25: 2013-12-01 10:53:46 ЛС | профиль | цитата
мне бы вот так, я тут пробовал сделать, но почемуто не работает.

code_32465.txt

------------ Дoбавленo в 10.53:
Tad писал(а):

смотри, у меня даже почемуто закинулись списки ип, и еще вот, нужно чтобы было две колонки, в первую загружались списки ип адрессов, а вторая колонка уже для добавления.


------------ Дoбавленo в 10.53:
я запутался окончательно

надо по порядку, сначало решить с дублями проблему, но как
карма: 0

0
файлы: 1code_32465.txt [1KB] [127]
Ответов: 16884
Рейтинг: 1239
#26: 2013-12-01 11:14:00 ЛС | профиль | цитата
Решаем проблему с дублями:
code_32466.txt
------------ Дoбавленo в 11.14:
Teratet писал(а):
я запутался окончательно
Ты запутался с самого начала.

карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
файлы: 1code_32466.txt [1.6KB] [139]
Ответов: 20
Рейтинг: 1
#27: 2013-12-01 11:19:21 ЛС | профиль | цитата
Tad писал(а):

во! работает отлично! только теперь проблема в другом, для примера я взял прокси сервера, нашел на каком то форуме, целую базу, их там около 500 тысяч, я взял гдето тысячи 2-3, и софт зафис, но когда прогрузился, и начал удалять дубли, софт сново завис(
------------ Дoбавленo в 11.16:
Tad писал(а):
Ты запутался с самого начала.

что правда то правда, ну уж начал не стоит бросать.
------------ Дoбавленo в 11.18:
во прогрузился ну думаю нечего страшного если несколько тысяч программа обрабатывала несколько минут
------------ Дoбавленo в 11.19:
а программа обрабатывает по одному? или несколько сразу?
карма: 0

0
Ответов: 1535
Рейтинг: 176
#28: 2013-12-01 11:38:58 ЛС | профиль | цитата
Teratet,
Add(MainForm,3000987,175,154)
{
Width=288
Height=368
Position=1
}
Add(ArrayFilterRepeats,8161340,357,287)
{
link(onFilter,15143427:doAdd,[(411,293)(411,230)])
link(onEndFilter,4349255:doData,[])
link(Array,4812233:Array,[(363,220)(412,220)])
}
Add(Button,10912839,301,287)
{
Left=145
Top=6
Width=120
Height=21
Caption="Удалить дубликаты"
Point(doEnabled)
link(onClick,8161340:doFilter,[])
}
Add(StrList,15143427,434,224)
{
}
Add(Button,4901219,238,154)
{
Left=5
Top=10
Width=45
Caption="Open"
link(onClick,10853841:doEvent1,[])
}
Add(MultiElement,4265245,315,161)
{
link(onEvent1,4812233:doAdd,[])
}
BEGIN_SDK
Add(EditMulti,5635602,21,21)
{
EventCount=2
WorkCount=1
Width=433
Height=249
link(doWork1,8214025:doEvent1,[])
}
Add(For,1579991,77,56)
{
End=999
link(onEvent,15871376:doEvent1,[])
link(onStop,5635602:onEvent2,[(116,69)(116,34)])
}
Add(Random,12136204,189,56)
{
Min=101
Max=255
link(onRandom,3446520:doRandom,[])
}
Add(Random,3446520,238,56)
{
Min=11
Max=99
link(onRandom,8353443:doRandom,[])
}
Add(Hub,8214025,42,21)
{
link(onEvent1,12136204:doRandomize,[(167,27)(167,69)])
link(onEvent2,1579991:doFor,[(67,34)(67,62)])
}
Add(Random,8353443,287,56)
{
Min=30
Max=200
link(onRandom,13706233:doRandom,[])
}
Add(Random,13706233,336,56)
{
Min=140
Max=250
link(onRandom,12585546:doRandom,[])
}
Add(Random,12585546,385,56)
{
Min=15
Max=25
link(onRandom,1813522:doString,[(423,62)(423,102)(340,102)(340,132)])
}
Add(FormatStr,1813522,350,126)
{
DataCount=5
Mask="%1;%2;%3;%4;%5"
Point(FString)
link(onFString,12474618:doWork2,[])
link(Str1,12136204:Random,[(356,118)(195,118)])
link(Str2,3446520:Random,[(363,112)(244,112)])
link(Str3,8353443:Random,[(370,106)(293,106)])
link(Str4,13706233:Random,[(377,96)(342,96)])
}
Add(Hub,15871376,126,56)
{
link(onEvent1,12136204:doRandom,[])
link(onEvent2,11587854:doOperation,[(158,69)(158,188)])
}
Add(Math,11587854,168,182)
{
OpType=8
Op2=10
ResultType=0
link(onResult,422695:doCase,[])
}
Add(Case,422695,217,182)
{
Value=Integer(1)
link(onNextCase,1146802:doCase,[])
link(onTrue,8095386:doValue,[(256,195)(256,174)])
}
Add(Case,1146802,266,182)
{
Value=Integer(8)
link(onTrue,6709798:doData,[(340,195)(340,216)])
}
Add(Memory,8095386,350,168)
{
Default=String()
Point(Data)
link(Data,1813522:FString,[])
}
Add(DoData,6709798,350,210)
{
link(onEventData,12474618:doWork3,[(435,216)])
link(Data,8095386:Value,[])
}
Add(HubEx,12474618,431,126)
{
Angle=3
link(onEvent,5635602:onEvent1,[(435,27)])
}
END_SDK
Add(Hub,10853841,287,154)
{
link(onEvent1,4812233:doClear,[(369,160)(369,174)])
link(onEvent2,4265245:doWork1,[])
}
Add(DoData,4349255,434,294)
{
link(onEventData,1213152:doEvent1,[])
link(Data,15143427:Text,[])
}
Add(Hub,1213152,476,294)
{
link(onEvent1,4812233:doText,[(502,300)(502,281)(380,281)(380,188)])
link(onEvent2,15143427:doClear,[(510,307)(510,272)(422,272)(422,237)])
}
Add(HilightMemo,4812233,392,161)
{
Left=5
Top=30
Width=260
Height=295
Font=[Courier New,8,0,0,1]
HilightFont=[Courier New,8,0,0,1]
}
карма: 1
Не так страшна ошибка, как опасность её не заметить.

0
Ответов: 16884
Рейтинг: 1239
#29: 2013-12-01 11:42:58 ЛС | профиль | цитата
Teratet писал(а):
а программа обрабатывает по одному? или несколько сразу?
В этом мире один всегда делает одно.
Только можно одновременно - сидеть в туалете и читать газету.
Teratet писал(а):
взял гдето тысячи 2-3, и софт зафис
Загрузка и обработка того файлика (ip.sip) с 2000 ip обрабатывается мгновенно.
Засеки время выполнения этой программки.
code_32467.txt
У меня 600 миллисекунд (0.6 секунды) на обработку 4000 ip и удаление 2000 дублей.
Если нужна скорость - забудь про существование визуальных компонент

карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
файлы: 1code_32467.txt [1.7KB] [139]
Ответов: 20
Рейтинг: 1
#30: 2013-12-01 12:07:42 ЛС | профиль | цитата
ser_davkin,Tad, спасибо вам) разобрался с удалением дубликатов, теперь нужно сортировка по началу айпи адресса, нужна сортировка только по началу.
еще есть идея, когда закидываю список серверов чтобы сортировалось по алфавиту (английскому), названия серверов, вообщем теперь нужна схема для сортировки, ну вот как то так:
code_32468.txt

хотя мне кажется сортировать по алфавиту будет очень сложно.

Tad писал(а):
В этом мире один всегда делает одно.
Только можно одновременно - сидеть в туалете и читать газету.


карма: 0

0
файлы: 1code_32468.txt [627B] [118]
Сообщение
...
Прикрепленные файлы
(файлы не залиты)