如果有多个href,如何取出全部href
时间: 2024-03-22 09:42:30 浏览: 13
如果在HTML源码中有多个`href`,你可以使用正则表达式或HTML解析器来获取所有`href`的值。
使用正则表达式的方法已经在前面的回答中给出了示例代码,这里再提供一种使用HTML解析器的方法。以HtmlAgilityPack为例,以下是一个示例代码,用于从HTML源码中提取所有链接:
```
Dim htmlCode, doc, links, link
htmlCode = "<html><body><a href='http://www.example.com'>Example 1</a><a href='http://www.example2.com'>Example 2</a></body></html>"
Set doc = CreateObject("HtmlAgilityPack.HtmlDocument")
doc.LoadHtml(htmlCode)
Set links = doc.DocumentNode.SelectNodes("//a[@href]")
For Each link In links
WScript.Echo link.Attributes("href").Value '输出链接
Next
```
在这个例子中,我们使用HtmlAgilityPack库来解析HTML源码,并使用XPath表达式选择所有带有`href`属性的`<a>`标签。然后,我们遍历所有选中的`<a>`标签,并访问它们的`href`属性值。
需要注意的是,如果HTML源码中有多个`href`,你需要根据实际情况来编写正则表达式或XPath表达式来选择和提取所有`href`的值。