Вверх ↑
Ответов: 16884
Рейтинг: 1239
#1: 2018-11-06 18:20:57 ЛС | профиль | цитата
Netspirit писал(а):
5) если есть такая же или похожая - удалить её из listurl.txt
Они все похожи.
egorhay писал(а):
проверять их на наличие в своей базе, добавлять или редактировать.
"редактировать" - это как ?
Add(MainForm,12048521,84,140)
{
Left=100
Top=300
Width=382
Height=381
Caption="Проверка новых ссылок."
BorderStyle=1
Point(onClose)
Point(Handle)
link(onCreate,1717272:doEvent1,[])
link(onClose,14794601:doSave,[(131,167)(131,298)(548,298)(548,251)])
}
Add(HTTP_Get,7234570,315,245)
{
URL="https://www.avito.ru/smolensk/kvartiry/sdam/na_dlitelnyy_srok?s_trg=7"
link(onDownload,13964607:doConvert,[])
}
Add(Hub,11714152,182,224)
{
OutCount=6
link(onEvent1,8738868:In,[])
link(onEvent2,1515969:In,[])
link(onEvent4,1325851:doWork2,[])
link(onEvent5,1719398:doWork2,[])
link(onEvent6,10241656:doPopup,[(208,265)(208,275)(79,275)(79,286)])
}
Add(BlockFind,16062642,399,252)
{
StartBlock="<a class="item-description-title-link""
EndBlock="title=""
link(onSearch,641195:doSearch,[])
}
Add(BlockFind,641195,441,252)
{
IncludeBlock=1
StartBlock="href=""
EndBlock="""
link(onSearch,8953954:doValue,[])
}
Add(StreamConvertor,13964607,357,252)
{
Mode=6
link(onResult,16062642:doSearch,[])
}
Add(ListBox,10822852,714,224)
{
Left=5
Top=30
Width=365
Height=290
DataType=1
Point(EndIdx)
link(onClick,8673132:doEvent1,[])
link(Str,3345134:Var3,[(720,189)])
}
Add(StrList,14794601,553,210)
{
FileName="listurl.txt"
Point(doGetIndex)
Point(onGetIndex)
Point(doSort)
link(Str,3345134:Var2,[])
link(onGetIndex,3799826:doCompare,[])
}
Add(Memory,8953954,497,252)
{
link(onData,14794601:doGetIndex,[])
}
Add(If_else,3799826,595,217)
{
Op1=Integer(-1)
link(onTrue,12140815:doEvent1,[])
}
Add(Hub,12140815,637,217)
{
OutCount=3
link(onEvent1,14794601:doAdd,[(665,223)(665,202)(541,202)(541,216)])
link(onEvent2,10822852:doAdd,[])
link(onEvent3,5247962:doWork1,[(663,237)])
}
Add(Timer,8013674,266,252)
{
Interval=60000
Enable=1
link(onTimer,1325851:doWork3,[(305,258)])
}
Add(HubEx,1325851,301,245)
{
link(onEvent,7234570:doDownload,[])
}
Add(Label,16670307,756,301)
{
Left=10
Top=5
Width=360
Height=25
Font=[Courier New,11,1,0,204]
Caption=""
AutoSize=1
Alignment=1
}
Add(LineBreak,12407149,665,231)
{
Caption="cls"
Color=16776960
link(Out,10822852:doClear,[])
Primary=[8738868,-413,-7]
}
Add(FormatStr,16056429,714,301)
{
Mask="На %1 новых ссылок %2"
link(onFString,16670307:doText,[])
link(Str1,3121094:FormatTime,[(720,293)(678,293)])
link(Str2,10822852:Count,[])
}
Add(Time,3121094,672,252)
{
Format="D/M/Y h:m:s"
}
Add(WinExec,870618,868,231)
{
Param="\13"
}
Add(HubEx,5247962,659,301)
{
link(onEvent,16056429:doString,[])
}
Add(LineBreak,11934386,623,301)
{
Color=65280
link(Out,5247962:doWork2,[])
Primary=[1515969,-406,-70]
}
Add(Button,5005204,168,315)
{
Left=5
Top=330
Width=170
Font=[MS Sans Serif,8,1,0,1]
Caption="Продолжить"
Point(doEnabled)
link(onClick,1719398:doWork3,[(242,321)])
}
Add(WinTools,10241656,84,273)
{
link(Handle,12048521:Handle,[])
}
Add(FormatStr,7906942,819,238)
{
DataCount=1
Mask="https://www.avito.ru%1"
link(onFString,870618:doShellExec,[])
}
Add(FileTools,3484865,196,133)
{
FileName="listurl.txt"
link(onEnd,3362641:doCompare,[])
}
Add(If_else,3362641,245,133)
{
Op1=Integer(1)
link(onTrue,14794601:doLoad,[(314,139)(314,244)])
}
Add(Hub,1717272,133,154)
{
link(onEvent1,3484865:doFileExists,[])
link(onEvent2,11714152:doEvent1,[(165,167)(165,230)])
}
Add(Hub,8673132,770,231)
{
link(onEvent1,8013674:doStop,[(807,237)(807,343)(253,343)(253,265)])
link(onEvent2,7906942:doString,[])
}
Add(HubEx,1719398,238,252)
{
link(onEvent,8013674:doTimer,[])
}
Add(GetDataEx,3345134,553,184)
{
Angle=3
link(Data,8953954:Value,[(535,189)(535,296)(503,296)])
}

Проверка на повтор в listurl.txt - автоматически.
На работоспособность ссылки - клик на ссылке в ListBox.

Для Netspirit

Подключился к их БД.
Клиентка Вера П. пользуется их услугами с 2012 года.
За это время публиковала объявления о сдаче квартиры 5 раз.
Разница только в датах и в № регистрации объявления (который отображается в ссылке).
Последнее - позавчера. Предыдущее - в 2016.
Это как "есть такая же или похожая" ?
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Редактировалось 7 раз(а), последний 2018-11-06 22:45:46