Durchschnittsberechnung klappt nicht immer

  • VB.NET

Es gibt 7 Antworten in diesem Thema. Der letzte Beitrag () ist von xChRoNiKx.

    Durchschnittsberechnung klappt nicht immer

    Hey,

    ich habe mir eine kleine Funktion gebaut, welche von einem Ebay Link alle Preise der Ergebnisse zusammenrechnet und dann den Durchschnitt berechnet.
    Bei einem Link klappt das perfekt.

    Jetzt habe ich eine Textbox mit mehreren Links untereinander. Ich hole nun von jedem Link per Webrequest den Quelltext und versuche das gleiche Prozedere wie oben, nur eben für jeden Link.
    Leider klappt das ganze nicht. Die ersten paar Links berechnet er scheinbar richtig, dann wirds wild und es kommen extrem hohe Zahlen raus, was nicht stimmen kann (geprüft).
    Liegt es an der Menge?

    Hier mal mein Code:




    VB.NET-Quellcode

    1. lvEbay.Items.Clear() 'ListView mit dem Aufbau: Artikelname:Durchschnittspreis
    3. For Each strLine As String In tbLinksEbay.Text.Split(vbNewLine)
    4. TempLB.Items.Clear() 'ListBox wo temporär alle Preise eines Artikels drin stehen
    6. If (strLine.Length < 1) Then
    7. Dim lvi As New ListViewItem("")
    8. lvi.SubItems.Add("")
    9. lvEbay.Items.Add(lvi)
    10. Else
    12. Dim Link = "https://www.ebay.de/sch/i.html?_from=R40&_nkw=" & strLine.Replace(" ", "+") & " &_sacat=0&rt=nc" 'Hier baue ich den Ebay-Suchlink zusammen
    14. If Not strLine.Replace(" ", "+") = "" Then
    16. Try
    17. Dim request As System.Net.HttpWebRequest = System.Net.HttpWebRequest.Create(Link)
    18. Dim response As System.Net.HttpWebResponse = request.GetResponse()
    19. Dim sr As System.IO.StreamReader = New System.IO.StreamReader(response.GetResponseStream())
    20. Dim sourcecode As String = sr.ReadToEnd()
    22. Dim matches As MatchCollection = Regex.Matches(sourcecode, "(?<=<span class=s-item__price><span class=POSITIVE>)(.*?)(?=</span></span>)") 'Regex-Pattern um den Preis zu finden
    23. For Each m As Match In matches
    24. If Not (m.Groups(1).Value.Replace("EUR ", "").Contains("<")) Then
    25. TempLB.Items.Add(m.Groups(1).Value.Replace("EUR ", ""))
    27. End If
    28. Next
    30. Dim Anzahl As Integer = TempLB.Items.Count
    31. Dim Preis As Double
    33. 'Hier addiere ich alle Preise
    34. For x As Integer = 0 To TempLB.Items.Count - 1
    35. Preis = Preis + Double.Parse(TempLB.Items(x).ToString)
    36. Next
    38. Dim lvi As New ListViewItem(strLine)
    39. 'Hier teile ich den Preis durch die Anzahl der Preise
    40. lvi.SubItems.Add(Math.Round(Double.Parse(Preis) / Anzahl, 2))
    41. lvEbay.Items.Add(lvi)
    43. Catch
    44. Dim lvi As New ListViewItem("URL Fehler")
    45. lvi.SubItems.Add("URL Fehler")
    46. lvIDealo.Items.Add(lvi)
    47. End Try
    48. End If
    50. End If
    52. Next




    Was halt leider rauskommt ist das:



    Nur die ersten 3 berechnet er korrekt.
    Habe auch schon ein Sleep probiert, ohne Erfolg.
    Einzelne Artikel berechnen klappt problemlos, aber nicht bei mehreren..

    Habt ihr eine Idee, woran das liegen könnte? Eigentlich sollte er doch brav die Schleifen durchlaufen, auch wenns lange dauert, oder?

    Vielen Dank! :)
    Gruß xored


    Meine Website:
    www.renebischof.de

    Meine erste App (Android):
    PartyPalooza

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „xored“ ()

    @xored Was ganz genau klappt denn nicht?
    Die Durchschnittsberechnung? Summe aller Elemente dividiert durch die Anzahl der Elemente?
    Ich denke mal, Du bist nicht in der Lage, aus den Web-Seiten die von Dir benötigte Information zu extrahieren.
    Sieh Dir jeden einzelnen Quelltext an und überlege bei jeder einzelnen Seite, ob Dein Herangehen korrekt ist.
    Und:
    Ändere den Titel dieses Deines Threads!
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    Hi,

    das Problem ist, dass meine Methode nicht klappt, wenn ich mehr als ~3 Abfragen starte.
    Eine einzelne klappt perfekt


    Der genaue Code dazu (Ich weiß, Option Strict off, ist jetzt quick & dirty):


    VB.NET-Quellcode

    1. VisualStudioListBoxWBuiltInScrollBar1.Items.Clear()
    3. Dim Link = "https://www.ebay.de/sch/i.html?_from=R40&_nkw=" & tbKeyWord.Text.Replace(" ", "+") & " &_sacat=0&rt=nc"
    4. If CheckBox2.Checked = True Then
    5. Link = Link & "&LH_Sold=1&LH_Complete=1"
    6. End If
    8. If rbAuktion2.Checked = True Then
    9. Link = Link & "&LH_Auction=1"
    10. End If
    11. If rbSofortkauf2.Checked = True Then
    12. Link = Link & "&LH_BIN=1"
    13. End If
    15. If cbNeuWare2.Checked = True Then
    16. Link = Link & "&rt=nc&LH_ItemCondition=3"
    17. End If
    19. Dim request As System.Net.HttpWebRequest = System.Net.HttpWebRequest.Create(Link)
    20. Dim response As System.Net.HttpWebResponse = request.GetResponse()
    21. Dim sr As System.IO.StreamReader = New System.IO.StreamReader(response.GetResponseStream())
    22. Dim sourcecode As String = sr.ReadToEnd()
    24. Dim matches As MatchCollection = Regex.Matches(sourcecode, "(?<=<span class=s-item__price><span class=POSITIVE>)(.*?)(?=</span></span>)")
    25. For Each m As Match In matches
    26. If Not (m.Groups(1).Value.Replace("EUR ", "").Contains("<")) Then
    27. VisualStudioListBoxWBuiltInScrollBar1.Items.Add(m.Groups(1).Value.Replace("EUR ", ""))
    29. End If
    30. Next
    32. Dim Anzahl As Integer = VisualStudioListBoxWBuiltInScrollBar1.Items.Count
    33. Dim Preis As Double
    35. For x As Integer = 0 To VisualStudioListBoxWBuiltInScrollBar1.Items.Count - 1
    36. Preis = Preis + Double.Parse(VisualStudioListBoxWBuiltInScrollBar1.Items(x).ToString)
    38. Next
    40. lbDurchschnitt.Text = Math.Round(Double.Parse(Preis) / Anzahl, 2)
    41. lbDurchschnitt.Text = lbDurchschnitt.Text & "€"


    Klappt perfekt. Ich hole mir alle Preise, rechne alle zusammen, teile sie dann durch die Anzahl der Preise.
    Mein Code im Startpost macht das gleiche, nur, dass die URL diesmal variabel ist und dieser Code für jede URL die ich habe, durchlaufen soll. Bei ungefähr 3 Links kackt er aber ab und wirft utopisch hohe Zahlen raus..



    Ich habe mir jetzt mal bei jeder URL den Sourcecode in eine Textdatei speichern lassen. Jeder Quellcode wird richtig ausgelesen, also liegt es woanders dran.. Die Berechnung an sich ist fehlerfrei, aber auf die Menge kommt mein Programm nicht klar (45 Links)


    Meine Website:
    www.renebischof.de

    Meine erste App (Android):
    PartyPalooza

    Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „xored“ ()

    @xored Dann solltest Du das aufklären.
    Lerne zu debuggen, das musst Du selbst tun:
    Debuggen, Fehler finden und beseitigen
    Weise den geparsten Wert einer separaten Variable zu und sieh die Dir an.
    Und fang an mit Optrion Strict On!
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    Da ist soviel Code zusammengewürfelt. Wie soll man da sinnvoll rausfinden, woran es jetzt liegt? Ich hab von RegEx keine Ahnung, aber mein erster Test scheiterte schon an jener Zeile. Da wurde nix gefunden. Daher habe ich mir den Suchergebnis-Seitencode angeschaut und die Programmzeile in das hier geändert:

    VB.NET-Quellcode

    1. Dim matches As MatchCollection = Regex.Matches(sourcecode, "(?<=<span class=s-item__price>)(.*?)(?=</span>)")
    Das funktioniert soweit, zumindest bei mir. Von daher solltest Du Deinen Fokus darauf legen.
    In Post#3, Zeile#3 ist insofern ein Fehler, weil am Ende der Zeile in " &_sacat=0&rt=nc" zu Beginn ein Leerzeichen drin ist, daher scheitert dieser Teil ebenfalls. Das schrittweise Rantasten an korrekten Code und das Ausfindigmachen des wirklichen Problemcodes sollte immer Priorität haben, sonst wühlen wir uns durch Informationen, die gar nicht relevant sind.
    Dieser Beitrag wurde bereits 5 mal editiert, zuletzt von „VaporiZed“, mal wieder aus Grammatikgründen.

    Aufgrund spontaner Selbsteintrübung sind all meine Glaskugeln beim Hersteller. Lasst mich daher bitte nicht den Spekulatiusbackmodus wechseln.

    Am Pattern liegt es nicht, habe jetzt durch laaaanges Debuggen den Fehler gefunden.
    Zum einen muss ich das & Zeichen in der URL anders kodieren, zum anderen habe ich etwas an meiner Methode den Durchschnitt zu berechnen verändert:

    VB.NET-Quellcode

    1. Dim Total As Double = 0
    2. Dim Count As Double = 0
    3. Dim Average As Double = 0
    4. For I As Integer = 0 To TempLB.Items.Count - 1
    5. Total += Val(TempLB.Items(I))
    6. Count += 1
    7. Next
    8. Average = Total / Count


    Das Ergebnis rundete ich dann noch auf 2 Nachkommastellen ab und siehe da, alles passt.


    Meine Website:
    www.renebischof.de

    Meine erste App (Android):
    PartyPalooza

    Das & muss eigentlich nicht anders codiert werden. Bei mir funktioniert es problemlos. Du nutzt ja kein HTML.
    Total += Val(TempLB.Items(I)) :?: Das ist ja Option Strict Off UND VB6 in einem <X
    Naja, wenn's Dich glücklich macht. Der Code mit Double.Parse und .ToString hat diese Minuspunkte wenigstens nicht …
    Dieser Beitrag wurde bereits 5 mal editiert, zuletzt von „VaporiZed“, mal wieder aus Grammatikgründen.

    Aufgrund spontaner Selbsteintrübung sind all meine Glaskugeln beim Hersteller. Lasst mich daher bitte nicht den Spekulatiusbackmodus wechseln.

    Kurze Frage: Was machst du wenn Ebay wie jeden Monat/ oder alle paar Monate mal wieder den Quelltext ändert?

    Nutze doch die API von Ebay dafür sind solche dinge doch da. Und dann kannst du direkt anfangen Option Strict On und VB.Net zu nutzen.
    Grüße , xChRoNiKx

    Nützliche Links:
    Visual Studio Empfohlene Einstellungen | Try-Catch heißes Eisen

Facebook
Telefonspende