我写的替换样式表的正则表达式

Function RemoveLinkCss(strHTML)
if strHTML<>"" then
Dim objRegExp, Match, Matches
Set objRegExp = New Regexp
objRegExp.IgnoreCase = True
objRegExp.Global = True
'<link rel="stylesheet" type="text/css" href="../css/style.css" mce_href="css/style.css" />
objRegExp.Pattern = "<p>/s*.*/n*<link rel=.+css/style.css.+?>(.*)</p>"
'ƥ
Set Matches = objRegExp.Execute(strHTML)
' ƥ伯ϣ滻ƥĿ
For Each Match in Matches
strHtml=Replace(strHTML,Match.Value,"")
Next
RemoveLinkCss=strHTML
Set objRegExp = Nothing
end if
End Function