回复人: babyt(阿泰) ( ) 信誉:100 | 2004-12-03 11:13:00 | 得分:0 | |
用这个函数过滤下你抓到的内容看看 <% Function RemoveHTML(strHTML) Dim objRegExp, Match, Matches Set objRegExp = New Regexp objRegExp.IgnoreCase = True objRegExp.Global = True '取闭合的<> objRegExp.Pattern = "<.+?>" '进行匹配 Set Matches = objRegExp.Execute(strHTML) ' 遍历匹配集合,并替换掉匹配的项目 For Each Match in Matches strHtml=Replace(strHTML,Match.Value,"") Next RemoveHTML=strHTML Set objRegExp = Nothing End Function %> | |||
Top | |||
回复人: pswdf(小邪) ( ) 信誉:108 | 2004-12-03 11:30:00 | 得分:0 | |
用正则替换掉就行。 如果是网址,就那一段不要抓。 |