将 htmlagilitypack 节点转换为 htmlelement .net

Question

我刚刚使用 htmlagilitypack 从 html 文档中将所有链接提取为 htmlnode，但我需要从我的函数中将其返回为 htmlelement

Dim Tags As HtmlNodeCollection = docNode.SelectNodes(strXpath)
  Dim ListResult As New List(Of HtmlElement)
  For Each Tag As HtmlNode In Tags
     ListResult.Add(Tag.Element)
 Next
Return Nothing

我该如何执行此操作？

Answer 1

我怀疑唯一的方法是创建 HtmlElement，然后从 HtmlNode 复制属性和内部 HTML。

这是一个扩展方法；它接受对 System.Windows.Forms.HtmlDocument 实例的引用来创建新的 HtmlElement ：

<System.Runtime.CompilerServices.Extension> _
Public Shared Function ToHtmlElement(node As HtmlNode, doc As System.Windows.Forms.HtmlDocument) As HtmlElement
    Dim element = doc.CreateElement(node.Name)
    For Each attribute As HtmlAttribute In node.Attributes
        element.SetAttribute(attribute.Name, attribute.Value)
    Next
    element.InnerHtml = node.InnerHtml

    Return element
End Function

要使用它，您可以像这样：

Dim browser As New WebBrowser()
browser.Navigate("about::blank")

Dim Tags As HtmlNodeCollection = docNode.SelectNodes(strXpath)
  Dim ListResult As New List(Of HtmlElement)
  For Each Tag As HtmlNode In Tags
     ListResult.Add(Tag.ToHtmlElement(browser.Document))
 Next
Return Nothing

但请注意，我由于不太熟悉 VB.NET，我先为 C# 创建了代码示例，然后将它们翻译为 VB、NET。