Replacement of strings using common asp Regular Expressions

Remove html Tag Regular Expressions <\/* [^ <>] *>
Function LoseHtml (ContentStr)
Dim ClsTempLoseStr, RegEx
ClsTempLoseStr = Cstr (ContentStr)
Set RegEx = New RegExp
RegEx. Pattern = "<\/* [^ <>] *>"
RegEx. IgnoreCase = True
RegEx. Global = True
ClsTempLoseStr = RegEx. Replace (ClsTempLoseStr ,"")
Set RegEx = Nothing
LoseHtml = ClsTempLoseStr
End function
Remove the class from the webpage
Function LoseClassTag (ContentStr)
Dim ClsTempLoseStr, RegEx
ClsTempLoseStr = Cstr (ContentStr)
Set RegEx = New RegExp
RegEx. pattern = "(class =) {1,} (" "| \ ') {0, 1} \ S + (" "| \' | >|\ s) {0, 1 }"
RegEx. IgnoreCase = True
RegEx. Global = True
ClsTempLoseStr = RegEx. Replace (ClsTempLoseStr ,"")
LoseClassTag = ClsTempLoseStr
Set RegEx = Nothing
End Function

Function LoseScriptTag (ContentStr)
Dim ClsTempLoseStr, RegEx
ClsTempLoseStr = Cstr (ContentStr)
Set RegEx = New RegExp
RegEx. Pattern = "(<script) {1,} [^ <>] *> [^ \ 0] * (<\/script>) {1 ,}"
RegEx. IgnoreCase = True
RegEx. Global = True
ClsTempLoseStr = RegEx. Replace (ClsTempLoseStr ,"")
LoseScriptTag = ClsTempLoseStr
Set RegEx = Nothing
End Function

Function LoseIFrameTag (ContentStr)
Dim ClsTempLoseStr, RegEx
ClsTempLoseStr = Cstr (ContentStr)
Set RegEx = New RegExp
RegEx. Pattern = "(<iframe) {1,} [^ <>] *> [^ \ 0] * (<\/iframe>) {1 ,}"
RegEx. IgnoreCase = True
RegEx. Global = True
ClsTempLoseStr = RegEx. Replace (ClsTempLoseStr ,"")
LoseIFrameTag = ClsTempLoseStr
Set RegEx = Nothing
End Function

Function LoseObjectTag (ContentStr)
Dim ClsTempLoseStr, RegEx
ClsTempLoseStr = Cstr (ContentStr)
Set RegEx = New RegExp
RegEx. Pattern = "(<object) {1,} [^ <>] *> [^ \ 0] * (<\/object>) {1 ,}"
RegEx. IgnoreCase = True
RegEx. Global = True
ClsTempLoseStr = RegEx. Replace (ClsTempLoseStr ,"")
LoseObjectTag = ClsTempLoseStr
Set RegEx = Nothing
End Function

Function LoseSpanTag (ContentStr)
Dim ClsTempLoseStr, RegEx
ClsTempLoseStr = Cstr (ContentStr)
Set RegEx = New RegExp
RegEx. Pattern = "<(\/) {0, 1} span [^ <>] *>"
RegEx. IgnoreCase = True
RegEx. Global = True
ClsTempLoseStr = RegEx. Replace (ClsTempLoseStr ,"")
LoseSpanTag = ClsTempLoseStr
Set RegEx = Nothing
End Function

Function LoseFontTag (ContentStr)
Dim ClsTempLoseStr, RegEx
ClsTempLoseStr = Cstr (ContentStr)
Set RegEx = New RegExp
RegEx. Pattern = "<(\/) {0, 1} font [^ <>] *>"
RegEx. IgnoreCase = True
RegEx. Global = True
ClsTempLoseStr = RegEx. Replace (ClsTempLoseStr ,"")
LoseFontTag = ClsTempLoseStr
Set RegEx = Nothing
End Function

Function LoseATag (ContentStr)
Dim ClsTempLoseStr, RegEx
ClsTempLoseStr = Cstr (ContentStr)
Set RegEx = New RegExp
RegEx. Pattern = "<(\/) {0, 1} a [^ <>] *>"
RegEx. IgnoreCase = True
RegEx. Global = True
ClsTempLoseStr = RegEx. Replace (ClsTempLoseStr ,"")
LoseATag = ClsTempLoseStr
Set RegEx = Nothing
End Function

Function LoseDivTag (ContentStr)
Dim ClsTempLoseStr, RegEx
ClsTempLoseStr = Cstr (ContentStr)
Set RegEx = New RegExp
RegEx. Pattern = "<(\/) {0, 1} div [^ <>] *>"
RegEx. IgnoreCase = True
RegEx. Global = True
ClsTempLoseStr = RegEx. Replace (ClsTempLoseStr ,"")
LoseDivTag = ClsTempLoseStr
Set RegEx = Nothing
End Function

Function LoseStyleTag (ContentStr)
Dim ClsTempLoseStr, RegEx
ClsTempLoseStr = Cstr (ContentStr)
Set RegEx = New RegExp
RegEx. Pattern = "(<style) {1,} [^ <>] *> [^ \ 0] * (<\/style>) {1 ,}"
RegEx. IgnoreCase = True
RegEx. Global = True
ClsTempLoseStr = RegEx. Replace (ClsTempLoseStr ,"")
LoseStyleTag = ClsTempLoseStr
Set RegEx = Nothing
End Function

Function LoseNoteTag (ContentStr)
Dim ClsTempLoseStr, RegEx
ClsTempLoseStr = Cstr (ContentStr)
Set RegEx = New RegExp
RegEx. Pattern = "<! -- \/* [^ <>] * -->"
RegEx. IgnoreCase = True
RegEx. Global = True
ClsTempLoseStr = RegEx. Replace (ClsTempLoseStr ,"")
LoseNoteTag = ClsTempLoseStr
Set RegEx = Nothing
End Function

Function LoseTableTag (ContentStr)
Dim ClsTempLoseStr, RegEx
ClsTempLoseStr = Cstr (ContentStr)
Set RegEx = New RegExp
RegEx. Pattern = "<(\/) {0, 1} table [^ <>] *>"
RegEx. IgnoreCase = True
RegEx. Global = True
ClsTempLoseStr = RegEx. Replace (ClsTempLoseStr ,"")
LoseTableTag = ClsTempLoseStr
Set RegEx = Nothing
End Function

Function LoseTDTag (ContentStr)
Dim ClsTempLoseStr, RegEx
ClsTempLoseStr = Cstr (ContentStr)
Set RegEx = New RegExp
RegEx. Pattern = "<(\/) {0, 1} td [^ <>] *>"
RegEx. IgnoreCase = True
RegEx. Global = True
ClsTempLoseStr = RegEx. Replace (ClsTempLoseStr ,"")
LoseTDTag = ClsTempLoseStr
Set RegEx = Nothing
End Function

Function LoseTRTag (ContentStr)
Dim ClsTempLoseStr, RegEx
ClsTempLoseStr = Cstr (ContentStr)
Set RegEx = New RegExp
RegEx. Pattern = "<(\/) {0, 1} tr [^ <>] *>"
RegEx. IgnoreCase = True
RegEx. Global = True
ClsTempLoseStr = RegEx. Replace (ClsTempLoseStr ,"")
LoseTRTag = ClsTempLoseStr
Set RegEx = Nothing
End Function