- Код: Выделить всё
for i=1 to len(text1.text)
a = instr(i,text1.text,"ЧЕ_Подсветить")
if(a <> 0) then
text1.selstart = a
text1.sellength = len(text1.text)
text1.selbold=true
text1.selcolor=vbwhite
else
exit for
end if
next i
for i=1 to len(text1.text)
a = instr(i,text1.text,"ЧЕ_Подсветить")
if(a <> 0) then
text1.selstart = a
text1.sellength = len(text1.text)
text1.selbold=true
text1.selcolor=vbwhite
else
exit for
end if
next i
А мой вариант решения проблемы - регэкспы Microsoft Script + RichTextBox. Проверено кувалдой
Сейчас этот форум просматривают: AhrefsBot, Yandex-бот и гости: 30