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