50分求一个正则表达式

[YJBOLD]

ST="<td><a href=afdda>ffffffff</a></td>"
我要取出<td>ffffffff</td>
用VBS.
解决马上给分.

[YJBOLD]

牛鼻啊,请教$3是说明东东?

[hbhbhbhbhb1021]

$3,匹配的是ffffffff

[YJBOLD]

ST="<td><a href=afdda>ffffffff</a></td>"
也就是要去掉><a href=afdda>和</a>
使得st="<td>ffffffff</td>"
用VBS.
解决马上给分.

[hbhbhbhbhb1021]

<%



dim regEx,Matches

str1="<td><a href=afdda>ffffffff</a></td>"
set regEx=new regExp
regEx.Pattern="(\<td(.*?)\>)\<a(.*?)\>(.*?)\<\/a\>(\<\/td\>)"
regEx.IgnoreCase=true
regEx.Global=True
set Matches=regEx.Execute(str1)
Response.Write Matches.count
'Response.End
for each Match in Matches

Response.Write Match.Submatches(0) & Match.Submatches(3) & Match.Submatches(4)
next
set Matches=nothing

set regEx=nothing


%>
测试通过了

[YJBOLD]

非常感谢.
但我的数据量非常大,如果用上面的方法可能比较慢.
能否用一个正则替换掉<a href=afdda>
再用一个正则替换掉</a>?
这样速度快些.

[YJBOLD]

也就是这样用正则找到"<a href=afdda>"

[YJBOLD]

Dim objRegExp, strOutput
ST="<td><a href=afdda>ffffffff</a></td>"
Set objRegExp = New Regexp
objRegExp.IgnoreCase = True
objRegExp.Global = True
objRegExp.Pattern = "</a>"
st=objRegExp.Replace(st, "")
Set objRegExp = Nothing
这一段只替换了"</a>"

[wxylvmnn]

ERROR

[hbhbhbhbhb1021]

dim regEx,Matches

str1="<td><a href=afdda>ffffffff</a></td>"
set regEx=new regExp
regEx.Pattern="(\<a(.*?)\>)(.+?)(\<\/a\>)"
regEx.IgnoreCase=true
regEx.Global=True
Matches=regEx.Replace(str1,"$3")
Response.Write Matches
测试过了
set regEx=nothing