
" target=_blank class=l onmousedown="return clk(0,'','','','12','','0CCQQFjABOAo')">好好学习
...请问各位大侠,对于上面的字符串,我想查找出URL,和中的好好学习,该怎么写正则呢?(文本中有 很多个这样的字符串,我只是列的其中一个~)谢谢各位大侠了!
感谢nniqou的 回答,但您说的还不是我想要的答案,补充一点,
标签必须用上,即查找h3标签中的url,另外对于上面的例子我想得到的答案是 http://www.newmind40.com/ai_gb.htm 好好学习。对于h3标签我一开始没说到,不好意思了。
<%
'坦蔽strng 放置源字串
Dim strng:strng="abddd..."" target=_blank class=l onmousedown=""return clk(0,'','','','12','','0CCQQFjABOAo')"">好好让颤州学习
..."
Dim regEx, Match, Matches
Set regEx = New RegExp
regEx.Pattern = "]*>]*>([\s\S]*?)<\/em><\/a><\/h3>"
regEx.IgnoreCase = True
regEx.Global = True
Set Matches = regEx.Execute(strng)
For Each Match in Matches
RetStr = regEx.Replace(Match.Value, "$1 $2")
Response.Write(RetStr& "
")
Next
%>
================================输出为
http://www.newmind40.com/ai_gb.htm 好好学习
[\s\S]*?]*?>.*?(.*?)棚亩悔模em>链前森.*?<\/h3>
match方式即可
这样再试试
'/物斗颤]*>]*>([\s\S]*?)<\/em><\/a><\销谨/h3>/'
regEx.IgnoreCase = True
regEx.Global = True
Set Matches = regEx.Execute(strng)
For Each Match in Matches
RetStr = regEx.Replace(Match.Value, "$1 $2")
Response.Write(RetStr& "
")
Next
%>
================================输出为
http://www.newmind40.com/ai_gb.htm 好好学习