Вверх ↑
Ответов: 537
Рейтинг: 14
#1: 2022-05-21 12:19:57 ЛС | профиль | цитата
При тщательной проверке RE_Replace так же ищет в жадном режиме, вот схема с тестом

Add(MainForm,3929769,266,189)
{
Width=651
Height=346
}
Add(Button,12056842,266,245)
{
Left=10
Top=5
Width=80
Caption="RE_Replace"
link(onClick,1562111:doExecute,[])
}
Add(Memo,4237804,511,231)
{
Left=10
Top=40
Width=610
Height=260
ScrollBars=2
}
Add(ODialog,1562111,315,245)
{
StartDir=""
FileName=""
link(onExecute,11947701:doEvent1,[])
}
Add(Hub,11947701,364,245)
{
link(onEvent1,12472652:doLoad,[(396,251)(396,223)])
link(onEvent2,3275006:doReplace,[])
}
Add(StrList,12472652,413,189)
{
Point(doLoad)
}
Add(Edit,16140728,455,196)
{
Left=185
Top=5
Width=440
Text="<span class="(.+?)">Follow</span>"
}
Add(RE_Replace,3275006,413,252)
{
ReplaceStr="(@@@1)$1(@@@2)"
Point(Expression)
link(onReplace,5291507:doWork2,[])
link(SourceStr,3600910:Var2,[])
link(Expression,13774920:Var1,[(426,237)])
}
Add(Button,15336326,264,322)
{
Left=100
Top=5
Width=75
Caption="RE_Search"
link(onClick,12397301:doExec,[])
}
Add(RE_Search,12397301,413,322)
{
ModifierG=1
ModifierM=0
link(onMatch,5291507:doWork3,[(480,328)])
link(SourceStr,3600910:Var1,[(419,302)(404,302)(404,236)])
link(Expression,13774920:Var2,[(426,302)(461,302)])
}
Add(HubEx,5291507,476,252)
{
link(onEvent,4237804:doText,[])
}
Add(GetDataEx,3600910,413,231)
{
link(Data,12472652:Text,[])
}
Add(GetDataEx,13774920,455,232)
{
link(Data,16140728:Text,[])
}

карма: 4

0