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,[]) }
|