[ 来源:动网 |作者:佚名 ]
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