正则表达式轻松消除HTML代码

一、清楚内容中的javsscript 代码

function clearjscode(origincode)
dim reg
set reg = new regexp
reg.pattern = "<script[^<]*</script>"
reg.ignorecase = true
reg.global = true
clearjscode = reg.replace(origincode, "")
end function

二、清除内容中的html代码 

function clearhtmlcode(origincode)
dim reg
set reg = new regexp
reg.pattern = "<[^>]*>"
reg.ignorecase = true
reg.global = true
clearhtmlcode = reg.replace(origincode, "")
end function

现在好多网站的内容都是使用采集程序生成的，使用上边的代码就可以轻松的将内容中的html和js代码清除掉。