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

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