Извлечь все элементы формы с именем htmlagilitypack - PullRequest
Новая
       16

Извлечь все элементы формы с именем htmlagilitypack

0 голосов
/ 24 июня 2011

У меня есть этот код для извлечения всех элементов ввода формы в HTML-документе. В настоящее время я не могу получить select, textarea и другие элементы, кроме элемента input. 

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-документе?

1 Ответ

1 голос
/ 24 июня 2011

я нашел решение, что я сделал, это использовал 

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

спасибо за поиск

...