すべてのフォーム要素を抽出します。名前htmlagilitypack

Question

このコードは、htmlドキュメントのすべてのフォーム入力要素を抽出するためのコードです。現在、私は選択、テキストエリア、および入力要素を除く他の要素を取得できません。

Dim htmldoc As HtmlDocument = New HtmlDocument() 
     htmldoc.LoadHtml(txtHtml.Text) 
     Dim root As HtmlNode = htmldoc.DocumentNode 
     If root Is Nothing Then 
      tsslStatus.Text = "Error parsing html" 
     End If 
     ' parse the page content 
     For Each InputTag As HtmlNode In root.SelectNodes("//input") 
      'get title 
      Dim attName As String = Nothing 
      Dim attType As String = Nothing 
      For Each att As HtmlAttribute In InputTag.Attributes 
       Select Case att.Name.ToLower 
        Case "name" 
         attName = att.Value 
        Case "type" 
         attType = att.Value 
       End Select 
       If attName Is Nothing OrElse attType Is Nothing Then 
        Continue For 
       End If 
       Dim sResult As String = String.Format("Type={0},Name={1}", attType, attName).ToLower 

       If txtResult.Text.Contains(sResult) = False Then 
        'Debug.Print(sResult) 
        txtResult.Text &= sResult & vbCrLf 
       End If 

      Next 
     Next 

htmlドキュメントのすべてのフォームですべての要素を取得する方法を教えてもらえますか？

Answer 1

私は私がやったことは

を探しているため、この

Dim Tags As HtmlNodeCollection = docNode.SelectNodes("//input | //select | //textarea") 

感謝を使用し、解決策を見つけました