复制代码代码如下:
'==============================
'功能描述：用正则除去HTML标记
'不能保留<b><strong>等以及用户自定义的<和>
'==============================
FunctionRemoveHTMLTag(fString)
Dimre
Setre=NewRegExp
re.IgnoreCase=True
re.Pattern="<(.[^>]*)>"
fString=re.Replace(fString,"")
Setre=Nothing
RemoveHTMLTag=fString
EndFunction
'==============================
'功能描述：除去HTML标记
'不能保留<b><strong>等以及用户自定义的<和>
'==============================
FunctionRemove_HTML(Str)
Dimilen1,ilen2
DoWhileInStr(1,Str,"<",1)>0
ilen1=InStr(1,Str,"<",1)
ilen2=InStr(1,Str,">",1)
Str=Left(Str,ilen1-1)&Mid(Str,ilen2+1)
Loop
Remove_HTML=Str
EndFunction
'==============================
'功能描述：除去HTML标记
'去除自定义的标记,速度可能有点慢
'==============================
FunctionRemoveHTML(strText)
DimTAGLIST
TAGLIST=";!--;!DOCTYPE;A;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;"&_