實(shí)現(xiàn)搜索結(jié)果的關(guān)鍵詞變色標(biāo)注的程序
[ 來源:動(dòng)網(wǎng) |作者:佚名 ]
0) then if instr(str,match.value)-50 >0 then startIndex=instr(str,match.value)-50 else startIndex=1 end if myMatchValue=match.value exit for end if next if isNeedTrunc then result= (mid(str,startIndex,strLength(myMatchValue)+100)) else result= (str) end if for each match in matches if not(instr(result,"" & match.value & "")>0) then result=replace(result,match.value,"" & match.value & "" ) end if next found=true else found=false end if set regEx=nothing end sub %>
來源:http://edu.chinaz.com