超级超链接正则表达式
可能还有点问题,如果有什么问题请给我留言,以便做的更好。
QQ:2780790
Js
<(A|a)\s((?:.*|\s)\s)?((href|HREF)=|\s*(?:.*|\s)>)(?:.*|\s)((?:.*|\s)\s)?</(A|a)\s|>
Java
<(A|a)\\s((?:.*|\\s)\\s)?((href|HREF)=|\\s*(?:.*|\\s)>)(?:.*|\\s)((?:.*|\\s)\\s)?</(A|a)\\s|>
VC++
<(A|a)\\s((?:.*|\\s)\\s)?((href|HREF)=|\\s*(?:.*|\\s)>)(?:.*|\\s)((?:.*|\\s)\\s)?</(A|a)\\s|>
VB
Private Sub Command1_Click()
website = Inet1.OpenURL("http://www.baidu.com/baidu?wd=VBScript%2ERegExp&q=3") '下载此网页
Set re = CreateObject("VBScript.RegExp")
re.IgnoreCase = True
re.Global = True
re.Pattern = "href ?= ?[""'](.*?)[""']"
For Each i In re.Execute(website)
List1.AddItem i.submatches(0)
Next
End Sub
说明
(A)|a、(href|HREF) 超链接标记可以取大小写
\s 表示标记a后面必须是空格
(?:.*|\s) 表示空格后面是一个或多个字符,也还可以是空格
((?:.*|\s)\s)? 这名为了是使href前必须是空格
(href|HREF)=|\s* 表示href后可以是空格,也可以是字符,但必须'='
(?:.*|\s)((?:.*|\s)\s)? 表示链接内容
实例
<a asdf6 href = www.abc.com.cn/a/b.jsp?name=value asfd > asfas连接 </a>
评论0
最新资源