在为上海中小企业停止网站网站开辟时，碰到近似表格客户增加时不益处置的题目，客户偶然候增加会从word外面间接复制过去，背景增加时编辑器会有良多无用的代码，经由过程在百度下面寻觅，找一个一个比拟不错的例子，此刻阐发给大师，<p style="......"></p>如许的标签，都替代为<p></p>去掉款式表，asp代码的正则抒发式怎样写呢，乞助 '用法 RHtml=SimpleHTML(html,"p,img,a,span")
'用法 RHtml=SimpleHTML(html,"p,img,a,span")Function SimpleHTML(content,tags) If tags="" Then tags="p,br" SimpleHTML = RegWordStr("<(\/?)("& WordStr(tags,",","|") &")([^>]*)>",content&"","[$1$2$3]") SimpleHTML = RegWordStr("<[^>]*>",SimpleHTML,"") SimpleHTML = RegWordStr("\[(\/?)("& WordStr(tags,",","|") &")([^\]]*)\]",SimpleHTML,"<$1$2$3>")End Function '天生一个正则抒发式工具Function REObject( reg, m) Dim re:Set re=new RegExp re.Pattern = reg If InStr(1, m, "g", 1)>0 Then re.Global = True If InStr(1, m, "i", 1)>0 Then re.IgnoreCase = True If InStr(1, m, "m", 1)>0 Then re.MultiLine = True Set REObject=reEnd Function Function RegWordStr( reg, str, rstr) RegWordStr=RegExpWordStr(reg,"ig",str,rstr)End Function '正则替代字符串Function RegExpWordStr( reg, m, str, rstr) RegExpWordStr=REObject(reg, m).WordStr(str,rstr)End Function 前面几个是用到的函数会将html代码中非指定的标签全数去除，若是要去除标签内的属性，须要点窜下simplehtml这个函数，把$3去掉
