user4274765
user4274765

Reputation:

DataGridView items add to column 1 & column 2

How can I add my "PageElement2" to "column1" and "PageElement3" to "column2" ?

My code:

   Dim PageElement2 As HtmlElementCollection = WebBrowser1.Document.GetElementsByTagName("div")
    For Each CurElement As HtmlElement In PageElement2
        If (CurElement.GetAttribute("className") = "itemclassname") Then
            Dim row As String() = New String() {CurElement.InnerText}
            DataGridView1.Rows.Add(row)
        End If
    Next
    Dim PageElement3 As HtmlElementCollection = WebBrowser1.Document.GetElementsByTagName("div")
    For Each CurElement As HtmlElement In PageElement3
        If (CurElement.GetAttribute("className") = "itemclassnametwo") Then
            Dim row As String() = New String() {CurElement.InnerText}
            DataGridView1.Rows.Add(row) 
        End If
    Next

I have 2 column.

 Name
 Price

I want to add "PageElement2" items to "Name" column and "PageElement3" items to "Price" column.

Upvotes: 0

Views: 431

Answers (1)

Visual Vincent
Visual Vincent

Reputation: 18320

You can try this:

Dim Names As New List(Of String)
Dim Prices As New List(Of String)

Dim PageElement2 As HtmlElementCollection = WebBrowser1.Document.GetElementsByTagName("div")
For Each CurElement As HtmlElement In PageElement2
    If (CurElement.GetAttribute("className") = "itemclassname") Then
        Names.Add(CurElement.InnerText)

    End If
Next

Dim PageElement3 As HtmlElementCollection = WebBrowser1.Document.GetElementsByTagName("div")
For Each CurElement As HtmlElement In PageElement3
    If (CurElement.GetAttribute("className") = "itemclassnametwo") Then
        Prices.Add(CurElement.InnerText)

    End If
Next


For x = 0 To Math.Max(Names.Count, Prices.Count)
    If x < Names.Count AndAlso x < Prices.Count Then
        Dim row As String() = New String() {Names(x), Prices(x)}
        DataGridView1.Rows.Add(row)
    End If
Next

Upvotes: 0

Related Questions