Вверх ↑
Ответов: 1304
Рейтинг: 405
#1: 2009-01-06 12:47:10 ЛС | профиль | цитата
EcsTasY, к чему такой песемизм , есть вариант, но у него недостаток отслеживает одно слово в одной строке.

Add(MainForm,2953706,42,35)
{
Width=298
Height=186
Position=1
}
Add(RichEdit,11094424,364,245)
{
Top=20
Width=290
Height=115
InsertCRLF=1
}
Add(StrPart,3746967,189,189)
{
Char="["
Point(onNotFound)
link(onSplit,6277115:doSplit,[])
link(onPart,11054483:doWork1,[(249,202)])
link(onNotFound,11054483:doWork2,[])
}
Add(StrPart,6277115,266,189)
{
Char="]"
link(onSplit,10553536:doWork1,[(347,195)])
link(onPart,10553536:doWork3,[(322,202)(322,226)(347,226)])
}
Add(HubEx,11054483,245,196)
{
link(onEvent,10553536:doWork2,[])
}
Add(HubEx,10553536,343,196)
{
link(onEvent,4790102:doMT,[])
}
Add(MT_String,4790102,364,196)
{
Delimeter="/"
link(onResult,11094424:doAdd,[(410,202)(410,233)(352,233)(352,251)])
}
Add(Edit,1210940,42,84)
{
Width=100
link(onEnter,10327909:doValue,[(93,97)(93,90)])
}
Add(FormatStr,4849905,42,133)
{
DataCount=1
Mask="[%1/255/1]"
link(onFString,15843931:doValue,[])
link(Str1,1210940:Text,[])
}
Add(Replace,7813958,105,189)
{
link(onReplace,3746967:doSplit,[])
link(Str,2987121:Text,[(111,177)(79,177)(79,226)(48,226)])
link(Sub_str,10327909:Value,[])
link(Dest,15843931:Value,[(125,177)(132,177)])
}
Add(Memory,10327909,112,84)
{
Default=String(Edit)
link(onData,4849905:doString,[(163,90)(163,127)(23,127)(23,139)])
}
Add(Memory,15843931,126,133)
{
Default=String(Edit)
}
Add(Edit,2987121,42,182)
{
Top=140
Width=290
Text="789 qwerty Edit 789 qwerty"
link(onEnter,7813958:doReplace,[])
}

карма: 3

1
Голосовали:Астрамак