當然這應該屬於正常過濾手法，而還有一種過濾HTML標簽的最終極手法，則是將一對尖括號及尖括號中的所有字符均替換不顯示，該方法對於內容中必須描述有關尖括號內容過濾過頭了。
不過，總歸是有需要將所有尖括號中內容全部替換的時候，很顯然是需要進行正則的，有兩種代碼，第一種如下：
復制代碼 代碼如下:
Function nohtml(str)
dim re
Set re=new RegExp
re.IgnoreCase =true
re.Global=True
re.Pattern="(\<.[^\<]*\>)"
str=re.replace(str,"")
re.Pattern="(\<\/[^\<]*\>)"
str=re.replace(str,"")
nohtml=str
set re=nothing
End Function
第二種：
復制代碼 代碼如下:
Function nohtml(str)
dim re
Set re=new RegExp
re.IgnoreCase =true
re.Global=True
re.Pattern="<(.[^>]*)>"
str=re.replace(str,"")
nohtml=str
set re=nothing
End Function
簡單的應用：
[Ctrl+A 全選 注:如需引入外部Js需刷新才能執行]
