实现搜索结果的关键词变色标注的程序
发布时间:2005-03-17   浏览次数:1399461
[ 来源:动网 |作者:佚名 ] 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
下一篇: LCID地区代码
立即预约