Вверх ↑
Ответов: 8887
Рейтинг: 823
#1: 2018-12-20 00:13:23 ЛС | профиль | цитата
Gunnman, а нужен он, MultiBlckFind без опыта
Просто


Add(MainForm,2953706,98,77)
{
}
Add(Memo,10910801,196,84)
{
Left=15
Top=10
Width=95
Strings=#10:data: 123 |11:score: 222 |9:load: 777|
}
Add(ListBox,10854422,364,161)
{
Left=140
Top=15
Width=100
}
Add(ListBox,15111399,364,224)
{
Left=260
Top=15
Width=110
}
Add(Button,12265315,91,147)
{
Left=90
Top=105
Caption=">>"
link(onClick,8506708:doEvent1,[])
}
Add(ArrayEnum,2918336,210,154)
{
link(onItem,5581836:doSplit,[])
link(onEndEnum,2896610:doEvent1,[(249,167)(249,195)(151,195)(151,216)])
link(Array,10910801:Array,[])
}
Add(Hub,8506708,140,147)
{
link(onEvent1,10854422:doClear,[(350,153)(350,174)])
link(onEvent2,2918336:doEnum,[])
}
Add(MultiStrData,5581836,259,154)
{
Char=":"
link(onPart2,5792714:doTrim,[])
}
Add(Trim,5792714,308,161)
{
Mode=7
link(onTrim,10854422:doAdd,[])
}
Add(Trim,8315188,308,224)
{
link(onTrim,15111399:doAdd,[])
}
Add(BlockFind,4466124,259,224)
{
IncludeBlock=1
StartBlock=":"
EndBlock="\13\10"
link(onSearch,8315188:doTrim,[])
}
Add(StrCat,6202452,196,224)
{
Str2="\13\10"
link(onStrCat,4466124:doSearch,[])
link(Str1,10910801:Text,[])
}
Add(Hub,2896610,161,210)
{
link(onEvent1,15111399:doClear,[(351,216)(351,237)])
link(onEvent2,6202452:doStrCat,[(186,223)(186,230)])
}

карма: 19

0