建站常识

'用法 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