以后地位:首页 > 建站常识 > 列表

ASP正则抒发式表格仅保留标签去除style,span,p等

点击: 次时候:2017/12/28关头词:上海网页设想 上海网站优化 正则抒发式
在为上海中小企业停止网站网站开辟时,碰到近似表格客户增加时不益处置的题目,客户偶然候增加会从word外面间接复制过去,背景增加时编辑器会有良多无用的代码,经由过程在百度下面寻觅,找一个一个比拟不错的例子,此刻阐发给大师,<p style="......"&

ASP正则抒发式表格仅保留标签去除style,span,p等

在为上海中小企业停止网站网站开辟时,碰到近似表格客户增加时不益处置的题目,客户偶然候增加会从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去掉

预定建站
收费供给网站优化
支付关头词