html-agility-pack - 使用 HtmlAgilityPack 修改超链接标签

Question

如何使用HtmlAgilityPack替换所有超链接，例如:

<a href="url">Link</>

这样就只剩下href属性了。网址。

这可能吗？

Answer 1

Dim Doc as HtmlDocument = new HtmlDocument 
doc.LoadHtml(MyHtml)

Dim links As HtmlNodeCollection = doc.DocumentNode.SelectNodes("//a")

For Each link In links

    Dim att As HtmlAttribute = link.Attributes("href")
    MyHtml = Myhtml.Replace(link.OuterHtml, att.Value)

Next