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," ")
str = replace(str," ","")
str = replace(str," ","")
nohtml = str
set re = nothing
end function
dim re
Set re = new RegExp
re.IgnoreCase = true
re.Global = True
re.Pattern = "(\<.[^\<]*\>)"
str = re.replace(str," ")
re.Pattern = "(\<\/[^\<]*\>)"
str = re.replace(str," ")
str = replace(str," ","")
str = replace(str," ","")
nohtml = str
set re = nothing
end function
ASP 去除 HTML 標記與空格的正則
用 ASP 實現的去除內容的 HTML 標記和空格的實現代碼。