foksov писал(а): code_29748.txt code_29749.txt Ага вот так вот можно! #hws Add(MainForm,11866520,252,147) { Width=780 Height=456 } Add(TCP_Client,14447732,259,203) { Port=80 IP="212.220.25.136" link(onRead,13973622:doStrCat,[(321,209)(321,181)]) link(onDisconnect,15217876:doStrCat,[(321,223)(321,251)]) } Add(RichEdit,15286583,693,203) { Top=33 Width=764 Height=385 Align=4 ScrollBars=2 } Add(StrCat,13973622,350,175) { Point(doClear) link(Str1,13669875:Var1,[(356,169)(394,169)(394,222)]) } Add(StrCat,15217876,350,245) { Str2=" " Point(doClear) link(onStrCat,9390330:doEvent1,[(408,251)(408,209)]) link(Str1,13669875:Var2,[]) } Add(Hub,9390330,434,203) { OutCount=4 PColor(onEvent3,255) link(onEvent1,13973622:doClear,[(460,209)(460,199)(338,199)(338,188)]) link(onEvent2,14454825:doWork1,[]) } Add(GetDataEx,13669875,350,217) { link(Data,13973622:Result,[]) } Add(HTTP_PostBuilder,13551532,175,203) { URL="/" link(onBuild,3473778:doEvent1,[]) link(Host,14440811:Caption,[]) } Add(HBoxLayout,4506754,112,112) { Name="vert" Space=3 Layout="horz" } Add(Hub,3473778,231,203) { link(onEvent1,14447732:doOpen,[]) link(onEvent2,14447732:doSend,[(252,216)(252,223)]) } Add(VBoxLayout,16125515,112,245) { Name="horz" Space=3 Padding=3 } Add(URLBuilder,11021987,112,203) { Args=#6:domain|11:imageField2| link(onBuild,13551532:doBuild,[]) link(domain,511036:Text,[]) } Add(Edit,511036,112,147) { Left=-5 Width=450 Layout="vert" WidthScale=100 Text="superstroy.ru" } Add(Button,5349034,14,203) { Left=445 Layout="vert" Caption="Read" link(onClick,11021987:doBuild,[]) } Add(Label,14440811,189,154) { Left=495 Top=5 Visible=1 Caption="www.superstroy.ru" } Add(FormatStr,10630826,546,210) { Mask="%1%2" link(onFString,15286583:doAdd,[(636,216)(636,209)]) link(Str1,12888481:Value,[(552,202)(545,202)]) } Add(Memory,12888481,539,161) { Default=String(http://www.superstroy.ru) } Add(Button,652713,581,238) { Left=5 Top=5 Width=35 Layout="vert" Caption="save" link(onClick,12391617:doExecute,[]) } Add(SDialog,12391617,630,238) { Filter="Text|*.txt|*.*" FileName="Spisok.txt" Point(doFileName) link(onExecute,15286583:doSave,[(678,244)(678,237)]) } Add(MultiElement,14454825,483,210) { link(onEvent1,10630826:doString,[]) } BEGIN_SDK Add(EditMulti,5484428,21,21) { EventCount=1 WorkCount=1 link(doWork1,13917557:doEvent1,[(56,27)(56,111)]) } Add(BlockFind,5298488,161,105) { IncludeBlock=1 StartBlock="<li class="bold" EndBlock="</li>" link(onSearch,9919387:doEvent1,[]) } Add(BlockFind,13520008,112,154) { IncludeBlock=1 StartBlock="<td class="column column" EndBlock="</td>" link(onSearch,2068992:doSearch,[]) } Add(Hub,13917557,98,105) { link(onEvent1,5298488:doSearch,[]) link(onEvent2,13520008:doSearch,[(124,118)(124,139)(86,139)(86,160)]) } Add(BlockFind,2068992,161,154) { StartBlock="<a " EndBlock="</a>" link(onSearch,9919387:doEvent2,[(201,160)(201,118)]) } Add(Hub,9919387,210,105) { InCount=2 OutCount=1 link(onEvent1,8309380:doSearch,[(228,111)(228,160)]) } Add(BlockFind,8309380,217,154) { IncludeBlock=1 StartBlock="<a href="" EndBlock="">" link(onSearch,5484428:onEvent1,[(310,160)(310,27)]) } END_SDK
------------ Дoбавленo в 03.10:#hws Add(RichEdit,15286583,693,203) { Top=33 Width=764 Height=385 Align=4 ScrollBars=2 link(onChange,11023975:doClear,[(737,209)(737,163)(597,163)(597,118)]) } Add(FormatStr,10630826,546,210) { Mask="%1%2" link(onFString,11023975:doAdd,[(594,216)(594,111)]) link(Str1,12888481:Value,[(552,202)(545,202)]) } Add(Memory,12888481,539,161) { Default=String(http://www.superstroy.ru) } Add(Button,652713,581,301) { Left=5 Top=5 Width=35 Layout="vert" Caption="save" link(onClick,12391617:doExecute,[]) } Add(SDialog,12391617,630,301) { Filter="Text|*.txt|*.*" FileName="Spisok.txt" Point(doFileName) link(onExecute,15286583:doSave,[(685,307)(685,237)]) } Add(MultiElement,14454825,469,210) { link(onEvent1,10630826:doString,[]) } BEGIN_SDK Add(EditMulti,5484428,21,21) { EventCount=1 WorkCount=1 link(doWork1,13917557:doEvent1,[(56,27)(56,111)]) } Add(BlockFind,5298488,161,105) { IncludeBlock=1 StartBlock="<li class="bold" EndBlock="</li>" link(onSearch,9919387:doEvent1,[]) } Add(BlockFind,13520008,112,154) { IncludeBlock=1 StartBlock="<td class="column column" EndBlock="</td>" link(onSearch,2068992:doSearch,[]) } Add(Hub,13917557,98,105) { link(onEvent1,5298488:doSearch,[]) link(onEvent2,13520008:doSearch,[(124,118)(124,139)(86,139)(86,160)]) } Add(BlockFind,2068992,161,154) { StartBlock="<a " EndBlock="</a>" link(onSearch,9919387:doEvent2,[(201,160)(201,118)]) } Add(Hub,9919387,210,105) { InCount=2 OutCount=1 link(onEvent1,8309380:doSearch,[(228,111)(228,160)]) } Add(BlockFind,8309380,217,154) { IncludeBlock=1 StartBlock="<a href="" EndBlock="">" link(onSearch,5484428:onEvent1,[(310,160)(310,27)]) } END_SDK Add(StrList,11023975,609,105) { } Add(DoData,6162369,609,161) { link(onEventData,15286583:doAdd,[(667,167)(667,209)]) link(Data,11023975:Text,[]) }
------------ Дoбавленo в 03.11:Этим можно парсер делать! ------------ Дoбавленo в 03.14:#hws Add(Edit,511036,140,189) { Left=775 Top=500 Width=0 Height=0 Visible=1 WidthScale=100 Text="superstroy.ru" } Add(MainForm,63531,49,70) { Width=859 Height=560 Caption="Parser" link(onActivate,13314179:doLoad,[]) } Add(TCP_Client,5988577,273,273) { Port=80 IP="212.220.25.136" link(onRead,1331649:doEvent1,[]) } Add(HTTP_PostBuilder,13551532,196,273) { link(onBuild,3473778:doEvent1,[]) link(URL,11093357:Text,[]) link(Host,14440811:Caption,[]) } Add(HBoxLayout,4506754,49,217) { Name="vert" Space=3 Layout="horz" } Add(Hub,3473778,245,273) { link(onEvent1,5988577:doOpen,[]) link(onEvent2,5988577:doSend,[(283,286)(283,293)]) } Add(VBoxLayout,16125515,49,252) { Name="horz" Space=3 Padding=3 } Add(URLBuilder,11021987,140,273) { Args=#6:domain|11:imageField2| link(onBuild,13551532:doBuild,[]) link(domain,511036:Text,[]) } Add(Label,14440811,210,231) { Left=395 Top=165 Width=0 Height=0 Visible=1 Caption="www.superstroy.ru" } Add(BlockFind,5629903,399,280) { IncludeBlock=1 StartBlock="<div class="resultList__item">" EndBlock="</i>" link(onSearch,3656217:doSearch,[]) } Add(Edit,11093357,203,189) { Left=205 Top=5 Width=560 Layout="vert" WidthScale=100 Text="" link(onChange,3547205:doSearch,[]) } Add(BlockFind,3547205,252,189) { StartBlock="http://" EndBlock="/" link(onSearch,511036:doText,[(296,195)(296,183)(128,183)(128,195)]) } Add(ArrayRW,11015628,196,133) { link(onRead,14160869:doEvent1,[]) link(Array,13314179:Array,[]) } Add(Math,11413410,133,133) { ResultType=0 link(onResult,11015628:doRead,[]) link(Op1,13314179:Text,[(139,121)(188,121)]) } Add(Hub,14160869,266,133) { link(onEvent1,13314179:doDelete,[(292,139)(292,104)(170,104)(170,62)]) link(onEvent2,11093357:doText,[(292,146)(292,170)(191,170)(191,195)]) } Add(Button,523305,49,105) { Left=20 Top=5 Layout="vert" link(onClick,5890199:doEvent1,[]) } Add(ListBox,13314179,182,42) { Top=360 Width=0 Height=0 Visible=1 FileName="Spisok.txt" } Add(Hub,5890199,98,105) { OutCount=3 link(onEvent1,11413410:doOperation,[(122,111)(122,139)]) link(onEvent2,11021987:doBuild,[(126,118)(126,279)]) link(onEvent3,4815912:doClear,[(354,125)(354,489)]) } Add(BlockFind,10685411,511,280) { IncludeBlock=1 StartBlock=" <img src="/" EndBlock="" alt" link(onSearch,11161979:doString,[]) } Add(BlockFind,3656217,455,280) { IncludeBlock=1 StartBlock="<div class="resultList__item__wrap">" EndBlock="Р</span>" link(onSearch,10685411:doSearch,[]) } Add(FormatStr,11161979,574,280) { Mask="http://www.superstroy.ru/%1 " Point(FString) link(onFString,2875923:doAdd,[(618,286)(618,188)(569,188)(569,90)]) } Add(HTTP_Get,27891,56,546) { link(onStatus,45476:doOperation,[]) link(onURLSize,98541:doOperation,[(111,566)(111,510)]) link(URL,6488932:Text,[(62,454)(692,454)]) link(FileName,6454893:Text,[(69,534)(381,534)(381,618)(692,618)]) } Add(Math,98541,119,504) { OpType=3 Op2=1024 ResultType=0 link(onResult,78676:doValue,[]) } Add(FormatStr,19075,182,546) { Mask="%2Kb/%1Kb" link(onFString,21437:doText,[]) link(Str1,78676:Value,[]) } Add(Memory,78676,182,504) { } Add(Math,45476,119,546) { OpType=3 Op2=1024 ResultType=0 link(onResult,19075:doString,[]) } Add(Label,21437,231,546) { Left=85 Top=35 Width=100 Font=[Arial,8,0,0,1] Caption="0Kb/0Kb" } Add(ListBox,2875923,581,84) { Top=397 Width=843 Height=125 Align=4 } Add(ArrayRW,7483863,630,175) { Index=Integer(0) link(onRead,6488932:doText,[]) link(Array,2875923:Array,[(636,155)(601,155)]) } Add(Math,14604049,581,175) { ResultType=0 link(onResult,7483863:doRead,[]) link(Op1,2875923:Text,[]) } Add(Edit,6488932,686,175) { Left=315 Top=35 Width=415 Text="" link(onChange,220620:doEvent1,[]) } Add(Hub,220620,728,175) { link(onEvent1,2875923:doDelete,[(754,181)(754,143)(569,143)(569,104)]) link(onEvent2,9379827:doEvent1,[(754,188)(754,370)(9,370)(9,552)]) } Add(Hub,9379827,21,546) { link(onEvent1,27891:doDownload,[]) link(onEvent2,27891:GetURLSize,[(45,559)(45,566)]) } Add(Timer,10888208,441,175) { Enable=1 link(onTimer,10334908:doEvent1,[]) } Add(Button,7149034,378,175) { Left=20 Top=30 link(onClick,10888208:doTimer,[]) } Add(BlockFind,4353559,399,385) { IncludeBlock=1 StartBlock="<div class="objectDesc">" EndBlock="Торговая марка:</strong>" link(onSearch,275923:doSearch,[]) } Add(BlockFind,275923,448,385) { IncludeBlock=1 StartBlock="/">" EndBlock="</a>" link(onSearch,13954899:doString,[]) } Add(FormatStr,13954899,497,385) { Mask="img//%2%1.jpg" Point(FString) link(onFString,4815912:doAdd,[(562,391)(562,482)]) } Add(ArrayRW,11391529,637,574) { Index=Integer(0) link(onRead,6454893:doText,[]) link(Array,4815912:Array,[(643,548)(615,548)]) } Add(Math,7775557,595,574) { Op2=1 ResultType=0 link(onResult,11391529:doRead,[]) link(Op1,4815912:Text,[]) } Add(ListBox,4815912,595,476) { Left=145 Top=90 Width=405 Height=275 } Add(Hub,7708523,357,378) { link(onEvent2,4353559:doSearch,[]) } Add(Hub,10334908,490,175) { OutCount=3 link(onEvent1,14604049:doOperation,[]) link(onEvent2,7775557:doOperation,[(528,188)(528,580)]) link(onEvent3,13968616:doCompare,[(612,195)(612,489)]) } Add(Hub,1331649,322,273) { link(onEvent1,7708523:doEvent1,[(346,279)(346,384)]) link(onEvent2,5629903:doSearch,[]) } Add(Edit,6454893,686,574) { Left=155 Top=35 Width=145 Text="" link(onChange,5222709:doEvent1,[]) } Add(Hub,5222709,728,574) { link(onEvent1,4815912:doDelete,[(754,580)(754,538)(583,538)(583,496)]) } Add(If_else,13968616,721,483) { Op1=Integer(0) Op2=Integer(0) link(onTrue,10888208:doStop,[(765,489)(765,339)(429,339)(429,188)]) link(Op1,4815912:Count,[(727,471)(667,471)(667,533)(608,533)]) }
Вот затраты моего неученого времени .
|