Highlight patterns within strings
复制代码 代码如下: 'Replacespatternwithhighlightedreplacement(usingstyle)andpreservescase PublicFunctionhighlight(strText,strFind) DimobjRegExp,i,strHighlight 'Splitthesearchtermsintoanarray DimarrFind arrFind=Split(strFind,"") 'Ini...
