nesco писал(а):
На тебе схему с автоматической генерацией списка заменНу вы блин даете

Add(BlockFind,1766094,140,98)
{
Delete=0
StartBlock="&#"
EndBlock=";"
Point(doReplaceStr)
link(onSearch,11948928:doDelete,[])
link(onEndSearch,11101534:doAdd,[(186,111)(186,48)])
link(Text,949554:Text,[])
}
Add(MainForm,11144789,77,42)
{
Width=307
}
Add(Button,14506533,77,98)
{
Left=110
Top=95
TabOrder=-1
link(onClick,1766094:doSearch,[])
}
Add(Memo,949554,140,42)
{
Left=15
Top=10
Width=255
Strings=#22:text nu text|21:CareFY|27:bigpond|
ScrollBars=2
}
Add(Memo,11101534,203,42)
{
Left=15
Top=120
Width=255
ScrollBars=2
}
Add(Delete,11948928,203,98)
{
Count=2
link(onDelete,2339171:doCompare,[])
}
Add(Delete,3467405,301,105)
{
Count=1
link(onDelete,15112960:doConvert,[])
}
Add(Convertor,15112960,350,105)
{
Mode=5
link(onResult,14803713:doWork2,[])
}
Add(Convertor,13196400,406,105)
{
Mode=4
link(onResult,1766094:doReplaceStr,[(445,111)(445,146)(130,146)(130,111)])
}
Add(StrMask,2339171,252,98)
{
Mask="x*;"
link(onFalse,14803713:doWork1,[(396,104)])
link(onTrue,3467405:doDelete,[])
}
Add(HubEx,14803713,392,105)
{
link(onEvent,13196400:doConvert,[])
}