去除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,}[^<>]*>[^]*(</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,}[^<>]*>[^]*(</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,}[^<>]*>[^]*(</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,}[^<>]*>[^]*(</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