Reputation:
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
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