<script src='Http://code.xrss.cn/AdJs/csdntitle.Js'></script>'Rss特殊字符过滤
Public Function GetTextFromHtml(strHtml)
strHtml=Replace(strHtml," ","")
strHtml=Replace(strHtml,"­","")
strHtml=Replace(strHtml,"&","")
Dim strPatrn
strpatrn="<.*?>"
Dim regEx
Set regEx = New RegExp
regEx.Pattern = strPatrn
regEx.IgnoreCase = True
regEx.Global = True
GetTextFromHtml = regEx.Replace(strHtml,"")
End Function <script src='Http://code.xrss.cn/AdJs/csdnEnd.Js'></script>
Public Function GetTextFromHtml(strHtml)
strHtml=Replace(strHtml," ","")
strHtml=Replace(strHtml,"­","")
strHtml=Replace(strHtml,"&","")
Dim strPatrn
strpatrn="<.*?>"
Dim regEx
Set regEx = New RegExp
regEx.Pattern = strPatrn
regEx.IgnoreCase = True
regEx.Global = True
GetTextFromHtml = regEx.Replace(strHtml,"")
End Function <script src='Http://code.xrss.cn/AdJs/csdnEnd.Js'></script>