função remove html

[designmix 0]

galera hoje tenho essa função que remove html preciso que não remova a tag <a href="" target="_blank">

para deixar apenas link

 

a função que tenho hoje esta assim.

 

 

Function RemoveHTML( strText )	Dim RegEx	Set RegEx = New RegExp	RegEx.Pattern = "<[^>]*>"	RegEx.Global = True	RemoveHTML = RegEx.Replace(strText, "")End Function

Sera que tem como libera apenas essa tag de link

[designmix 0]

galera achei essa função que remove eu determino o que vai ser tirado de html

 

so que quando chamo meu xml ele escreve o a tag link :

teste da função de retira as TAGS <a href=''dasda'' target=''sasa'' > HTML</a>

como arrumo isso

 

chamando montando o xml

<elemento nome="<%=RemoveHTML(f_xml(rs_D.fields("DistribuidorNome")))%>" ><![CDATA[<%=RemoveHTML(f_xml(rs_D.fields("DistribuidorDescricao")))%>]]></elemento>

 

Function RemoveHTML( strText )	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;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 nPos1	Dim nPos2	Dim nPos3	Dim strResult	Dim strTagName	Dim bRemove	Dim bSearchForBlock		nPos1 = InStr(strText, "<")	Do While nPos1 > 0		nPos2 = InStr(nPos1 + 1, strText, ">")		If nPos2 > 0 Then			strTagName = Mid(strText, nPos1 + 1, nPos2 - nPos1 - 1)		strTagName = Replace(Replace(strTagName, vbCr, " "), vbLf, " ")			nPos3 = InStr(strTagName, " ")			If nPos3 > 0 Then				strTagName = Left(strTagName, nPos3 - 1)			End If						If Left(strTagName, 1) = "/" Then				strTagName = Mid(strTagName, 2)				bSearchForBlock = False			Else				bSearchForBlock = True			End If						If InStr(1, TAGLIST, ";" & strTagName & ";", vbTextCompare) > 0 Then				bRemove = True				If bSearchForBlock Then					If InStr(1, BLOCKTAGLIST, ";" & strTagName & ";", vbTextCompare) > 0 Then						nPos2 = Len(strText)						nPos3 = InStr(nPos1 + 1, strText, "</" & strTagName, vbTextCompare)						If nPos3 > 0 Then							nPos3 = InStr(nPos3 + 1, strText, ">")						End If												If nPos3 > 0 Then							nPos2 = nPos3						End If					End If				End If			Else				bRemove = False			End If						If bRemove Then				strResult = strResult & Left(strText, nPos1 - 1)				strText = Mid(strText, nPos2 + 1)			Else				strResult = strResult & Left(strText, nPos1)				strText = Mid(strText, nPos1 + 1)			End If		Else			strResult = strResult & strText			strText = ""		End If				nPos1 = InStr(strText, "<")	Loop	strResult = strResult & strText		RemoveHTML = strResultEnd Function