Dad2016 писал(а):
Единственнное мне нужно задавать количество символов в строках (примерно 70 символов) пределы (+/- 5 символов).Регуляркой можно еще
Add(MainForm,3224884,112,84)
{
Width=536
Height=227
}
Add(Memo,12539502,497,35)
{
Width=520
Align=2
Strings=#185:Требованиям к составу и порядку ведения исполнительной документации при строительстве, реконструкции, капитальном ремонте объектов капитального строительства и требования, предъявляемые|
}
Add(Button,11722497,259,140)
{
Left=15
Top=150
Width=80
Caption="Разделить"
link(onClick,13809096:doEvent1,[])
}
Add(Hub,13809096,308,140)
{
OutCount=3
link(onEvent1,14864624:doString,[])
link(onEvent2,14810360:doReset,[(455,153)(455,167)])
link(onEvent3,12933797:doExec,[(410,160)(410,195)])
}
Add(CounterEx,14810360,588,154)
{
Min=-1
Default=-1
Point(doReset)
link(onNext,5187633:doEvent1,[])
}
Add(IndexToChanel,981044,693,154)
{
Count=3
Point(Data)
link(onEvent1,4910093:doText,[])
link(onEvent2,13865190:doText,[(761,167)(761,209)])
link(onEvent3,388078:doText,[(747,174)(747,258)])
link(Data,12933797:Match,[(699,142)(584,142)(584,233)(503,233)])
}
Add(Edit,10179948,504,78)
{
Left=205
Top=151
Width=30
Text="70"
DataType=1
}
Add(RE_Search,12933797,497,189)
{
Expression=""
link(onMatch,14810360:doNext,[(559,195)(559,160)])
link(SourceStr,12539502:Text,[])
link(Expression,14864624:FString,[])
}
Add(FormatStr,14864624,504,140)
{
Mask="(.){0,%1}"
Point(FString)
link(Str1,10179948:Text,[])
}
Add(Hub,5187633,630,154)
{
link(onEvent1,981044:doEvent,[])
link(onEvent2,12933797:doExecNext,[(656,167)(656,251)(485,251)(485,202)])
}
Add(Label,9095437,553,28)
{
Left=115
Top=156
Width=90
Height=17
Caption="Длина строки >="
}
Add(Label,9464940,602,28)
{
Left=238
Top=155
Width=54
Height=17
Caption="символов"
}
Add(Edit,4910093,812,154)
{
Top=80
Width=520
Text=""
}
Add(Edit,13865190,812,203)
{
Top=100
Width=520
Text=""
}
Add(Edit,388078,812,252)
{
Top=120
Width=520
Text=""
}
Add(Memo,7497500,406,182)
{
Top=85
Width=565
Height=185
Ctl3D=1
ScrollBars=3
link(onChange,12933797:doExecNext,[(456,188)(456,251)(338,251)(338,195)])
}
Add(MainForm,2953706,21,105)
{
Width=585
Height=347
}
Add(Memo,12539502,350,35)
{
Width=569
Align=2
Strings=#185:Требованиям к составу и порядку ведения исполнительной документации при строительстве, реконструкции, капитальном ремонте объектов капитального строительства и требования, предъявляемые|
}
Add(Button,10790540,224,175)
{
Left=5
Top=280
link(onClick,16762653:doEvent1,[])
}
Add(RE_Search,12933797,350,182)
{
Expression=""
link(onMatch,7497500:doAdd,[])
link(SourceStr,12539502:Text,[])
link(Expression,14864624:FString,[])
}
Add(Edit,6426734,357,84)
{
Left=85
Top=280
Text="86"
}
Add(FormatStr,14864624,357,133)
{
Mask="(.){0,%1}"
Point(FString)
link(Str1,6426734:Text,[])
}
Add(Hub,16762653,266,175)
{
link(onEvent1,14864624:doString,[(318,181)(318,139)])
link(onEvent2,12933797:doExec,[])
}