Two methods to remove all tags in HTML code

Remove all tags in HTML code
Copy codeThe Code is as follows: <%
'******************************
'Function: RemoveHTML_A (strText)
'Parameter: strText, string to be processed
'Prepared by: alixixi
'Date: 2007/7/12
'Description: removes all tags from HTML code.
'Example: <% = RemoveHTML_A ("<B> welcome to Alibaba West </B>") %>
'******************************
Function RemoveHTML_A (strText)
Dim nPos1
Dim nPos2

NPos1 = InStr (strText, "<")
Do While nPos1> 0
NPos2 = InStr (nPos1 + 1, strText, "> ")
If nPos2> 0 Then
StrText = Left (strText, nPos1-1) & Mid (strText, nPos2 + 1)
Else
Exit Do
End If
NPos1 = InStr (strText, "<")
Loop

RemoveHTML_A = strText
End Function
%>

Remove all tags in HTML codeCopy codeThe Code is as follows: <%
'******************************
'Function: RemoveHTML_ B (strText)
'Parameter: strText, string to be processed
'Prepared by: alixixi
'Date: 2007/7/12
'Description: removes all tags from HTML code.
'Example: <% = RemoveHTML_ B ("<B> welcome to Alibaba West </B>") %>
'******************************
Function RemoveHTML_ B (strText)
Dim RegEx

Set RegEx = New RegExp

RegEx. Pattern = "<[^>] *>"
RegEx. Global = True

RemoveHTML_ B = RegEx. Replace (strText ,"")
End Function
%>

Remove all the third tags in HTML codeCopy codeThe Code is as follows: <%
'******************************
'Function: RemoveHTML_C (strText)
'Parameter: strText, string to be processed
'Prepared by: alixixi
'Date: 2007/7/12
'Description: removes all tags from HTML code.
'Example: <% = RemoveHTML_C ("<B> welcome to Alibaba West </B>") %>
'******************************
Function RemoveHTML_C (strText)
Dim TAGLIST
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 ;"&_
"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 (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_C = strResult
End Function
%>