Вверх ↑
Ответов: 212
Рейтинг: 2
#1: 2017-08-04 13:30:21 ЛС | профиль | цитата
Здравствуйте! Подскажите, братие, как заменить все слова, найденные в документе? Как осуществлять поиск я нашел пример на форуме. Но как заменить ВСЕ? Поставил часики: находит - заменяет. Но когда текст заканчивается часы надо бы остановить. Можно бы выставить их по количеству найденных совпадений, но, блин, как его получить, это количество?



Add(RichEdit,7202476,693,182)
{
Left=10
Top=45
Width=478
Height=150
Strings=#26:Разные слова: бла-бла-бла,|20:И еще слова бла-бла,|
ScrollBars=2
Point(doSetSelStart)
Point(doSetSelLength)
Point(doSetSelect)
}
Add(Button,10967170,469,287)
{
Left=205
Top=10
Caption="Найти"
link(onClick,1249840:doEvent1,[])
}
Add(Replace,10719860,693,287)
{
SubStr="\10"
link(onReplace,1279234:doEvent1,[])
link(Str,7202476:Text,[])
}
Add(Position,13450275,938,287)
{
Point(doReset)
link(onSearch,607685:doOperation,[])
link(Str,7041105:Value,[(944,277)(930,277)(930,331)(846,331)])
}
Add(Edit,12569155,616,91)
{
Left=10
Top=10
Width=180
Text="бла"
link(onChange,13450275:doReset,[(777,97)(777,300)])
}
Add(Length,11953250,616,224)
{
link(onLength,7202476:doSetSelLength,[])
link(Str,14078218:Data1,[])
}
Add(Memory,7041105,840,287)
{
link(onData,14650584:doModify,[])
}
Add(Math,607685,987,287)
{
OpType=1
Op2=1
ResultType=0
Point(onError)
link(onResult,7202476:doSetSelStart,[(1035,293)(1035,151)(681,151)(681,223)])
}
Add(StrCase,788094,791,287)
{
link(onModify,7041105:doValue,[])
}
Add(StrCase,14650584,889,287)
{
link(onModify,13450275:doSearch,[])
link(Str,14078218:Data2,[(895,176)(629,176)])
}
Add(Hub,1279234,742,287)
{
link(onEvent1,788094:doModify,[])
link(onEvent2,11953250:doLength,[(767,300)(767,262)(606,262)(606,230)])
}
Add(Button,14380639,469,343)
{
Left=321
Top=212
Width=87
Caption="Заменить все"
link(onClick,14233033:doTimer,[])
}
Add(Edit,9517008,616,301)
{
Left=134
Top=212
Width=180
Text="ля"
}
Add(StrCat,3166044,616,350)
{
link(onStrCat,7202476:doSetSelect,[(656,356)(656,237)])
link(Str1,9517008:Text,[])
}
Add(Hub,1171128,553,343)
{
InCount=2
link(onEvent1,1249840:doEvent2,[(577,349)(577,300)])
link(onEvent2,4447:doEvent1,[])
}
Add(Timer,14233033,511,343)
{
Interval=1
Enable=1
link(onTimer,1171128:doEvent1,[])
}
Add(Button,4236124,469,399)
{
Left=49
Top=212
Width=79
Caption="Заменить на:"
link(onClick,4447:doEvent2,[(577,405)(577,363)])
}
Add(Hub,4447,588,350)
{
InCount=2
link(onEvent1,3166044:doStrCat,[])
}
Add(Hub,1249840,588,287)
{
InCount=2
link(onEvent1,10719860:doReplace,[])
}
Add(GetData,14078218,616,133)
{
link(Data,12569155:Text,[])
}


карма: 0
Незнание HiAsm не снижает возможностей, но сильно увеличивает схему
0