Add(MainForm,2953706,98,182)
{
link(onCreate,13713722:doEnum,[])
}
Add(StrList,10238639,175,98)
{
Strings=#14:20000018769869|14:20000018779232|14:20000018764861|14:20000018789860|14:20000028729166|14:20000028761863|14:20000028763864|14:20000028766165|14:20000028764467|14:20000028765867|
}
Add(ArrayEnum,13713722,161,196)
{
link(onItem,2143182:doEvent1,[])
link(Array,10238639:Array,[(167,170)(195,170)])
}
Add(StrMask,10868328,273,203)
{
Point(doMask)
link(onFalse,3642207:doEvent1,[])
link(onTrue,8979480:In,[(324,216)(324,258)])
}
Add(Memo,11358491,644,203)
{
Width=384
Height=262
Align=5
ScrollBars=3
}
Add(Hub,3642207,329,203)
{
link(onEvent1,14128926:doData,[])
link(onEvent2,10995039:doEnum,[])
}
Add(Str_Enum,10995039,357,210)
{
Delimiter=""
To=7
link(onEnum,8446811:doStrCat,[])
link(onEndEnum,9928688:doStrCat,[(395,223)(395,279)])
}
Add(StrCat,8446811,441,210)
{
Point(doClear)
link(Str1,12475163:Var1,[(447,198)(435,198)(435,254)])
}
Add(Hub,2143182,203,196)
{
link(onEvent1,7797406:In,[])
link(onEvent2,10868328:doCompare,[])
}
Add(LineBreak,16167829,399,217)
{
link(Out,8446811:doClear,[])
Primary=[7797406,-168,-21]
}
Add(DoData,7639772,581,217)
{
link(onEventData,13241219:doWork3,[(627,223)])
link(Data,5632682:Var,[])
}
Add(HubEx,13241219,623,203)
{
link(onEvent,11358491:doAdd,[])
}
Add(LineBreak,6635944,539,217)
{
link(Out,7639772:doData,[])
Primary=[8979480,-182,35]
}
Add(LineBreak,6924730,161,238)
{
Type=1
link(Data,13713722:Item,[])
Primary=[5632682,420,-49]
}
Add(DoData,14128926,532,203)
{
link(onEventData,13241219:doWork2,[])
}
Add(LineBreak,9356050,238,210)
{
link(Out,10868328:doMask,[])
Primary=[4738163,245,63]
}
Add(StrCat,9928688,441,273)
{
Str2="*"
link(onStrCat,4738163:In,[])
link(Str1,12475163:Var2,[])
}
Add(GetDataEx,12475163,441,249)
{
link(Data,8446811:Result,[])
}
------------ Дoбавленo в 10.35:
а почему бы не использовать символ-разделитель?(если конечно это твоя программа генерирует эти строки)
например вместо "20000018769869" будет "2000001;8769869"
тогда становится еще проще разделять