Verschachtelte Div Container auslesen | Amazon Angebote auslesen Preisverlauf

  • VB.NET
  • .NET (FX) 4.5–4.8

    Verschachtelte Div Container auslesen | Amazon Angebote auslesen Preisverlauf

    Hi, ich will ein Programm schreiben welches für einen Amazon Artikel den Preisverlauf der verschiedenen Verkäufer aufzeichnet.

    Im ersten Step habe ich ein Listview erstellt wo ich colums einfüge mit allen Verkäufern eines Artikels.
    Das funktioniert auch mit folgendem Code:

    VB.NET-Quellcode

    1. Public Sub getVerkäuferName()
    3. Form1.ListView1.Columns.Clear()
    5. Form1.ListView1.Columns.Add("Datum | Zeit")
    7. For Each h As HtmlElement In Form1.WebBrowser1.Document.GetElementsByTagName("h3")
    8. If Not Object.ReferenceEquals(h.GetAttribute("className"), Nothing) AndAlso h.GetAttribute("className").Equals("a-spacing-none olpSellerName") Then
    10. If h.InnerText <> " " Then
    11. Form1.ListView1.Columns.Add(h.InnerText)
    12. Else
    13. Form1.ListView1.Columns.Add("AMAZON")
    14. End If
    16. End If
    17. Next
    19. End Sub


    Nun will ich den Preis eines Verkäufers und seinen Namen auslesen. Problem ist hier das die Infos nicht alle in einem div container sind sondern verstreut in einem div container :

    HTML-Quellcode

    1. <div class="a">
    3. <div class"preis">
    4. <span class="xx">EUR 199,00</span>
    5. </div>
    7. <div class="b">
    9. <span class="c" >
    10. <a href="..." >Verkäufer</a>
    11. </span>
    13. </div>
    15. </div>


    Diese Struktur wiederholt sich für jeden Verkäufer der den Artikel auch anbietet.
    Also muss ich ja in der For Each Schleife beliebn und dort weiter abfragen

    VB.NET-Quellcode

    1. Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
    3. Dim preis As String
    4. Dim name As String
    6. For Each h As HtmlElement In WebBrowser1.Document.GetElementsByTagName("span")
    8. If Not Object.ReferenceEquals(h.GetAttribute("className"), Nothing) AndAlso h.GetAttribute("className").Equals("a-size-large a-color-price olpOfferPrice a-text-bold") Then
    10. preis = h.InnerText
    12. For Each h_name As HtmlElement In h.GetElementsByTagName("span")
    13. If Not Object.ReferenceEquals(h.GetAttribute("className"), Nothing) AndAlso h.GetAttribute("className").Equals("a-size-medium a-text-bold") Then
    15. name = h_name.InnerText
    17. Button4.Text = preis & vbCrLf & name
    19. End If
    20. Next
    22. End If
    24. Next
    26. End Sub


    Aber hier kommt kein Ergebnis ( auch keine Fehlermeldung )

    Bin nun schon seit Tagen dran und google kann mir auch nicht helfen. ?(

    Kann mir da bitte einer von euch helfen?