正则替换 html

正则替换 html
2010年11月16日
　　protected string str = "sdasasdsdd
sdsaaassss
说是道 ";
　　protected void Page_Load(object sender, EventArgs e)
　　{
　　//string regexstr = @"]*>"; //去除所有的标签
　　//@"]*?>.*?" //去除所有脚本，中间部分也删除
　　// string regexstr = @"]*>"; //去除图片的正则
　　// string regexstr = @""; //去除所有标签，只剩br
　　// string regexstr = @"]*?>.*?"; //去除table里面的所有内容
　　string regexstr = @""; //去除所有标签，只剩img,br,p
　　str = Regex.Replace(str, regexstr, string.Empty, RegexOptions.IgnoreCase);
　　} function ExecReg(re, content)
　　Dim myRegExp, ResultString
　　Set myRegExp =New RegExp
　　myRegExp.Global =True
　　myRegExp.Pattern = re
　　ResultString = myRegExp.Replace(content, "")
　　ExecReg = ResultString
　　end function
　　function DecodeFilter(html)
　　html =LCase(html)
　　' 去除所有客户端脚本javascipt,vbscript,jscript,js,vbs,event, html = ExecReg("]*>", html)
　　html = ExecReg("(javascript|jscript|vbscript|vbs):", html)
　　html = ExecReg("on(mouse|exit|error|click|key)", html)
　　html = ExecReg("", html)
　　' 去除表格
　　html = ExecReg("]*>", html)
　　html = ExecReg("]*>", html)
　　html = ExecReg("]*>", html)
　　html = ExecReg("]*>", html)
　　html = ExecReg("]*>", html)
　　html = ExecReg("]*>", html)
　　html = ExecReg("]*>", html)
　　html = ExecReg("]*>", html)
　　html = ExecReg("]*>", html)
　　html = ExecReg("]*>", html)
　　html = ExecReg("]*>", html)
　　html = ExecReg("]*>", html)
　　html = ExecReg("]*>", html)
　　html = ExecReg("]*>", html)
　　html = ExecReg("]*>", html)
　　html = ExecReg("]*>", html)
　　html = ExecReg("]*>", html)
　　html = ExecReg("]*>", html)
　　html = ExecReg("]*>", html)
　　' 去除样式类class=""
　　html = ExecReg("(]+) class=[^ |^>]*([^>]*>)", html)
　　' 去除样式style=""
　　html = ExecReg("(]+) style=""[^""]*""([^>]*>)", html)
　　' 去除XML
　　html = ExecReg("]*>", html)
　　' 去除命名空间
　　html = ExecReg("]*>", html)
　　' 去除字体
　　html = ExecReg("]*>", html)
　　' 去除字幕
　　html = ExecReg("]*>", html)
　　' 去除对象
　　html = ExecReg("]*>", html)
　　html = ExecReg("]*>", html)
　　html = ExecReg("]*>", html)
　　DecodeFilter= html
　　end function
　　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