当前位置:首页 > 网站维护 > 列表

asp 正则表达式清除表格属性

来源:浦一科技点击:时间:2017-11-24 关键词:上海网站设计 asp正则表达式
'用法RHtml=SimpleHTML(html,"p,img,a,span")FunctionSimpleHTML(content,tags)Iftags=""Thentags="p,br"SimpleHTML=RegReplace("<(\/?)("

'用法 RHtml=SimpleHTML(html,"p,img,a,span")

Function SimpleHTML(content,tags)

   If tags="" Then tags="p,br"

   SimpleHTML = RegReplace("<(\/?)("& Replace(tags,",","|") &")([^>]*)>",content&"","[$1$2$3]")

   SimpleHTML = RegReplace("<[^>]*>",SimpleHTML,"")

   SimpleHTML = RegReplace("\[(\/?)("& Replace(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=re

End Function

Function RegReplace( reg, str, rstr)

   RegReplace=RegExpReplace(reg,"ig",str,rstr)

End Function

'正则替换字符串

Function RegExpReplace( reg, m, str, rstr)

   RegExpReplace=REObject(reg, m).Replace(str,rstr)

End Function

后面几个是用到的函数

会将html代码中非指定的标签全部去除,如果要去除标签内的属性,需要修改下simplehtml这个函数,把$3去掉

Function SimpleHTML(content,tags)

   If tags="" Then tags="p,br"

   SimpleHTML = RegReplace("<(\/?)("& Replace(tags,",","|") &")([^>]*)>",content&"","[$1$2$3]")

   SimpleHTML = RegReplace("<[^>]*>",SimpleHTML,"")

   SimpleHTML = RegReplace("\[(\/?)("& Replace(tags,",","|") &")([^\]]*)\]",SimpleHTML,"<$1$2>")

End Function


服务项目

网站建设

网站建设

通过SEO优化技术,提供更多的展示机会,带来大量精准流量和询盘,每月意向客户增长20%。

手机网站建设

手机网站建设

手机网站的时代强势来袭,赢在全网营销时代,手机+电脑双剑合璧,把握商机滴水不漏。

网站维护

网站维护

一个好的网站需要定期或不定期地更新内容,才能不断地吸引更多的浏览者,增加访问量。

整合网络营销

整合营销

为了建立、维护和传播品牌,以及加强客户关系,而对品牌进行计划、实施和监督的一系列营销

预约建站
免费提供网站优化
领取关键词