可选择的去处HTML标签

Function RemoveHTMLa( strText )''可选择的祛除HTML格式
    Dim TAGLIST
    TAGLIST = ";!--;!DOCTYPE;ACRONYM;ADDRESS;APPLET;AREA;B;BASE;BASEFONT;" &_
              "BGSOUND;BIG;BLOCKQUOTE;BODY;BR;BUTTON;CAPTION;CENTER;CITE;CODE;" &_
              "COL;COLGROUP;COMMENT;DD;DEL;DFN;DIR;DIV;DL;DT;EM;EMBED;FIELDSET;" &_
              "FONT;FORM;FRAME;FRAMESET;HEAD;H1;H2;H3;H4;H5;H6;HR;HTML;I;IFRAME;IMG;" &_
              "INPUT;INS;ISINDEX;KBD;LABEL;LAYER;LAGEND;LI;LINK;LISTING;MAP;MARQUEE;" &_
              "MENU;META;NOBR;NOFRAMES;NOSCRIPT;OBJECT;OL;OPTION;P;PARAM;PLAINTEXT;" &_
              "PRE;Q;S;SAMP;SCRIPT;SELECT;SMALL;SPAN;STRIKE;STRONG;STYLE;SUB;SUP;" &_
              "TABLE;TBODY;TD;TEXTAREA;TFOOT;TH;THEAD;TITLE;TR;TT;U;UL;VAR;WBR;XMP;"

    Const BLOCKTAGLIST = ";APPLET;EMBED;FRAMESET;HEAD;NOFRAMES;NOSCRIPT;OBJECT;SCRIPT;STYLE;"
   
    Dim  
   End    IF  
   Set    regEx    =    New    RegExp '    建立正则表达式。  
   regEx.Pattern    =    patrn '    设置模式。  
   regEx.IgnoreCase    =    true              '    设置忽略字符大小写。  
   regEx.Global    =    True '    设置全局可用性。  
   Zxj_ReplaceHtml=regEx.Replace(content,strng) '    执行正则匹配  
   End    Function

上一篇： 提高google adsense单价小技巧 下一篇：09年6月山东半岛亲子游04