複製代碼代碼如下:
'==============================
'功能描述：用正則除去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;"&_