復(fù)制代碼 代碼如下:
%
Function ReplaceUrl2(HTMLstr)
Dim n,str1,str2,str3,str4
HTMLstr = Lcase(HTMLstr)
For n=1 to Ubound(Split(HTMLstr,"a"))
str1 = Instr(HTMLstr,"a")
str2 = Instr(str1,HTMLstr,">")
HTMLstr = left(HTMLstr,str1-1)right(HTMLstr,len(HTMLstr)-len(left(HTMLstr,str2)))
HTMLstr = replace (HTMLstr,"/a>","")
ReplaceUrl2 = HTMLstr
Next
End Function
%>
正則表達(dá)式去除鏈接：
復(fù)制代碼 代碼如下:
Function RegRemoveHref(HTMLstr)
Set ra = New RegExp
ra.IgnoreCase = True
ra.Global = True
ra.Pattern = "A[^>]+>(.+?)\/A>"
RegRemoveHref = ra.replace(HTMLstr,"$1")
END Function
