Попытка получить входные данные / getelementbyID или Class и поместить в richtextbox - PullRequest
Новая
       20

Попытка получить входные данные / getelementbyID или Class и поместить в richtextbox

0 голосов
/ 05 декабря 2011

В настоящее время я использую HtmlAgility Pack, чтобы сначала проанализировать HTML-код для тегов ввода форм, затем получить имя идентификатора или класса и перечислить входные данные и идентификатор = "что-то здесь или ввод: класс =" что-то здесь "в RichTextbox для просмотра.

Вот мой код. 

Dim web As HtmlAgilityPack.HtmlWeb = New HtmlWeb()
Dim doc As HtmlAgilityPack.HtmlDocument = web.Load(TextBox1.Text)
Dim threadLinks As IEnumerable(Of HtmlNode) = doc.DocumentNode.SelectNodes("/input")

For Each link In threadLinks
Dim str As String = link.InnerHtml
RichTextBox1.Text = str.ToString

Next link

End Sub

1 Ответ

0 голосов
/ 01 января 2012

Вот как вы можете это сделать (обратите внимание, что строка выбора SelectNodes была исправлена): 

    Dim threadLinks As IEnumerable(Of HtmlNode) = doc.DocumentNode.SelectNodes("//input")

    ' Use a stringbuilder to hold all of the retrieved information
    Dim sbText As New System.Text.StringBuilder(5000)

    If threadLinks IsNot Nothing Then
        For Each link In threadLinks
            ' Add information about each found input on a new line
            sbText.Append("Id = ").Append(link.Id)

            ' The class is held in an attribute, so ensure the attribute exists before using it
            If link.Attributes.Contains("Class") Then
                ' Add the value of the class attribute to the output
                sbText.Append(", Class = ").Append(link.Attributes("Class").Value)
            End If

            ' Separate this item from the next by adding a new line
            sbText.AppendLine()
        Next
    End If

    ' Finally, send the retrieved information to the textbox.
    RichTextBox1.Text = sbText.ToString
...