去除html标签正则<\/*[^<>]*>
FunctionLoseHtml(ContentStr)
DimClsTempLoseStr,RegEx
ClsTempLoseStr=Cstr(ContentStr)
SetRegEx=NewRegExp
RegEx.Pattern="<\/*[^<>]*>"
RegEx.IgnoreCase=True
RegEx.Global=True
ClsTempLoseStr=RegEx.Replace(ClsTempLoseStr,"")
SetRegEx=Nothing
LoseHtml=ClsTempLoseStr
Endfunction
去除网页中的class
FunctionLoseClassTag(ContentStr)
DimClsTempLoseStr,RegEx
ClsTempLoseStr=Cstr(ContentStr)
SetRegEx=NewRegExp
RegEx.Pattern="(class=){1,}(""|\'){0,1}\S+(""|\'|>|\s){0,1}"
RegEx.IgnoreCase=True
RegEx.Global=True
ClsTempLoseStr=RegEx.Replace(ClsTempLoseStr,"")
LoseClassTag=ClsTempLoseStr
SetRegEx=Nothing
EndFunction

FunctionLoseScriptTag(ContentStr)
DimClsTempLoseStr,RegEx
ClsTempLoseStr=Cstr(ContentStr)
SetRegEx=NewRegExp
RegEx.Pattern="(<script){1,}[^<>]*>[^\0]*(<\/script>){1,}"
RegEx.IgnoreCase=True
RegEx.Global=True
ClsTempLoseStr=RegEx.Replace(ClsTempLoseStr,"")
LoseScriptTag=ClsTempLoseStr
SetRegEx=Nothing
EndFunction

FunctionLoseIFrameTag(ContentStr)
DimClsTempLoseStr,RegEx
ClsTempLoseStr=Cstr(ContentStr)
SetRegEx=NewRegExp
RegEx.Pattern="(<iframe){1,}[^<>]*>[^\0]*(<\/iframe>){1,}"
RegEx.IgnoreCase=True
RegEx.Global=True
ClsTempLoseStr=RegEx.Replace(ClsTempLoseStr,"")
LoseIFrameTag=ClsTempLoseStr
SetRegEx=Nothing
EndFunction

FunctionLoseObjectTag(ContentStr)
DimClsTempLoseStr,RegEx
ClsTempLoseStr=Cstr(ContentStr)
SetRegEx=NewRegExp
RegEx.Pattern="(<object){1,}[^<>]*>[^\0]*(<\/object>){1,}"
RegEx.IgnoreCase=True
RegEx.Global=True
ClsTempLoseStr=RegEx.Replace(ClsTempLoseStr,"")
LoseObjectTag=ClsTempLoseStr
SetRegEx=Nothing
EndFunction

FunctionLoseSpanTag(ContentStr)
DimClsTempLoseStr,RegEx
ClsTempLoseStr=Cstr(ContentStr)
SetRegEx=NewRegExp
RegEx.Pattern="<(\/){0,1}span[^<>]*>"
RegEx.IgnoreCase=True
RegEx.Global=True
ClsTempLoseStr=RegEx.Replace(ClsTempLoseStr,"")
LoseSpanTag=ClsTempLoseStr
SetRegEx=Nothing
EndFunction

FunctionLoseFontTag(ContentStr)
DimClsTempLoseStr,RegEx
ClsTempLoseStr=Cstr(ContentStr)
SetRegEx=NewRegExp
RegEx.Pattern="<(\/){0,1}font[^<>]*>"
RegEx.IgnoreCase=True
RegEx.Global=True
ClsTempLoseStr=RegEx.Replace(ClsTempLoseStr,"")
LoseFontTag=ClsTempLoseStr
SetRegEx=Nothing
EndFunction

FunctionLoseATag(ContentStr)
DimClsTempLoseStr,RegEx
ClsTempLoseStr=Cstr(ContentStr)
SetRegEx=NewRegExp
RegEx.Pattern="<(\/){0,1}a[^<>]*>"
RegEx.IgnoreCase=True
RegEx.Global=True
ClsTempLoseStr=RegEx.Replace(ClsTempLoseStr,"")
LoseATag=ClsTempLoseStr
SetRegEx=Nothing
EndFunction

FunctionLoseDivTag(ContentStr)
DimClsTempLoseStr,RegEx
ClsTempLoseStr=Cstr(ContentStr)
SetRegEx=NewRegExp
RegEx.Pattern="<(\/){0,1}div[^<>]*>"
RegEx.IgnoreCase=True
RegEx.Global=True
ClsTempLoseStr=RegEx.Replace(ClsTempLoseStr,"")
LoseDivTag=ClsTempLoseStr
SetRegEx=Nothing
EndFunction

FunctionLoseStyleTag(ContentStr)
DimClsTempLoseStr,RegEx
ClsTempLoseStr=Cstr(ContentStr)
SetRegEx=NewRegExp
RegEx.Pattern="(<style){1,}[^<>]*>[^\0]*(<\/style>){1,}"
RegEx.IgnoreCase=True
RegEx.Global=True
ClsTempLoseStr=RegEx.Replace(ClsTempLoseStr,"")
LoseStyleTag=ClsTempLoseStr
SetRegEx=Nothing
EndFunction

FunctionLoseNoteTag(ContentStr)
DimClsTempLoseStr,RegEx
ClsTempLoseStr=Cstr(ContentStr)
SetRegEx=NewRegExp
RegEx.Pattern="<!--\/*[^<>]*-->"
RegEx.IgnoreCase=True
RegEx.Global=True
ClsTempLoseStr=RegEx.Replace(ClsTempLoseStr,"")
LoseNoteTag=ClsTempLoseStr
SetRegEx=Nothing
EndFunction

FunctionLoseTableTag(ContentStr)
DimClsTempLoseStr,RegEx
ClsTempLoseStr=Cstr(ContentStr)
SetRegEx=NewRegExp
RegEx.Pattern="<(\/){0,1}table[^<>]*>"
RegEx.IgnoreCase=True
RegEx.Global=True
ClsTempLoseStr=RegEx.Replace(ClsTempLoseStr,"")
LoseTableTag=ClsTempLoseStr
SetRegEx=Nothing
EndFunction

FunctionLoseTDTag(ContentStr)
DimClsTempLoseStr,RegEx
ClsTempLoseStr=Cstr(ContentStr)
SetRegEx=NewRegExp
RegEx.Pattern="<(\/){0,1}td[^<>]*>"
RegEx.IgnoreCase=True
RegEx.Global=True
ClsTempLoseStr=RegEx.Replace(ClsTempLoseStr,"")
LoseTDTag=ClsTempLoseStr
SetRegEx=Nothing
EndFunction

FunctionLoseTRTag(ContentStr)
DimClsTempLoseStr,RegEx
ClsTempLoseStr=Cstr(ContentStr)
SetRegEx=NewRegExp
RegEx.Pattern="<(\/){0,1}tr[^<>]*>"
RegEx.IgnoreCase=True
RegEx.Global=True
ClsTempLoseStr=RegEx.Replace(ClsTempLoseStr,"")
LoseTRTag=ClsTempLoseStr
SetRegEx=Nothing
EndFunction