[VB.NET] Punkte auslesen??

[Melli-]

Hallo möchte einen AddMeFast Bot erstellen. Ich möchte nun die aktuelle Punkte auslesen. Nur ich weiß nicht wie. Ich habe gegoogelt und nichts passendes gefunden.

<span class="points_count">170</span>

Diese Zeile gibt an wie viele AddMeFast Punkte man hat. Wie kann ich diese nun auslesen und in einem Label packen?

[YatoDev]

html parser oder regex

Das wohl einfachste aber nicht 100% sichere regex pattern währe: "unt\">(.*)</span>"

PS: Flamed mich nicht dafür^^

[alpines]

Originally Posted by »FlutterShy™

html parser oder regex

Das wohl einfachste aber nicht 100% sichere regex pattern währe: "unt\">(.*)</span>"

PS: Flamed mich nicht dafür^^

Ich ignoriere mal die letzte Zeile was du geschrieben hast.

Das Pattern ist RICHTIG schlampig. Wie du siehst enthält der <span> nur Zahlen also solltest du nicht jedes Zeichen matchen sondern nur Zahlen.

Wenn man sich zwei Sekunden mehr Zeit nimmt dann kriegt man etwas wesentlich sauberes heraus

"<span class=\"points_count\">(\d+)</span>"

[Melli-]

Points Count stand ebenfalls bei der AMF Seite. Ich werde mich mal dran setzen.

edit: als text wird mir nichts angezeigt...

[Mostey]

Originally Posted by Melli-

edit: als text wird mir nichts angezeigt...

Der Fehler ist in Zeile 1 deines Codes.

[YatoDev]

Originally Posted by Mostey

Der Fehler ist in Zeile 1 deines Codes.

wow du bist gut

[Melli-]

Ouh der hat meine Nachricht nicht abgeschickt.
Ich hab es mit VB geschrieben. Mein Tablet hat momentan kein Platz für Visual Studio also Visual Studio und VB sind sehr ähnlich.

   Dim client As New WebClient
        Dim temp As String = client.DownloadString("http://addmefast.com/free_points")
        Dim pattern As String = <span class="points_count">170(\d+)</span>
        Dim reg As New System.Text.RegularExpressions.Regex(pattern)
        Dim ausgabe As String = reg.Match(temp).Value

        Me.Label1.Text = ausgabe

Ich denke es geht nicht weil ausgabe = string. Schreibe ich aber hin das es ein Integer ist geht es nicht wegen "reg.Match(temp).Value" mhm.. schwierig. Ich habe mich nicht mit Regex auseinandergesetzt, sondern hab mir ein Video angeschaut.

[alpines]

Originally Posted by Melli-

Ouh der hat meine Nachricht nicht abgeschickt.
Ich hab es mit VB geschrieben. Mein Tablet hat momentan kein Platz für Visual Studio also Visual Studio und VB sind sehr ähnlich.

   Dim client As New WebClient
        Dim temp As String = client.DownloadString("http://addmefast.com/free_points")
        Dim pattern As String = <span class="points_count">170(\d+)</span>
        Dim reg As New System.Text.RegularExpressions.Regex(pattern)
        Dim ausgabe As String = reg.Match(temp).Value

        Me.Label1.Text = ausgabe

Ich denke es geht nicht weil ausgabe = string. Schreibe ich aber hin das es ein Integer ist geht es nicht wegen "reg.Match(temp).Value" mhm.. schwierig. Ich habe mich nicht mit Regex auseinandergesetzt, sondern hab mir ein Video angeschaut.

Visual Studio ist nicht änlich mit VB, du meinst wohl eher C# ist ähnlich wie VB. Visual Studio ist die IDE für beides.

[Melli-]

Originally Posted by alpines

Visual Studio ist nicht änlich mit VB, du meinst wohl eher C# ist ähnlich wie VB. Visual Studio ist die IDE für beides.

Ah Ok. Hab nur aufm Laptop Visual Studio.

[CorbyT]

Versuch mal:

Dim pattern As String = "<span class=""points_count"">(\d*?)</span>"
Dim reg As New System.Text.RegularExpressions.Regex(pattern)
Dim ausgabe As Match = reg.Match(temp).Value
Label1.Text = ausgabe.Group(1).Value

[Melli-]

Originally Posted by CorbyT

Versuch mal:

Dim pattern As String = "<span class=""points_count"">(\d*?)</span>"
Dim reg As New System.Text.RegularExpressions.Regex(pattern)
Dim ausgabe As Match = reg.Match(temp).Value
Label1.Text = ausgabe.Group(1).Value

Bei dem "Dim ausgabe" gibt es ein Problem. Und zwar wird mir "reg.Match(temp).Value" blau angestrichen. Demzufolge geht auch nicht "ausgabe.Group" dies wird mir ebenfalls blau angestrichen.

[stotterer09]

Originally Posted by Melli-

Bei dem "Dim ausgabe" gibt es ein Problem. Und zwar wird mir "reg.Match(temp).Value" blau angestrichen. Demzufolge geht auch nicht "ausgabe.Group" dies wird mir ebenfalls blau angestrichen.

was der fehler ist wäre noch recht hilfreich

[CorbyT]

Ups, du musst natürlich das ".value" bei "regex.Match(temp)" entfernen. Müsste dann funktionieren.

[Melli-]

Originally Posted by CorbyT

Ups, du musst natürlich das ".value" bei "regex.Match(temp)" entfernen. Müsste dann funktionieren.

So richtig funktioniert das nicht..

 Dim client As New WebClient
        Dim temp As String = client.DownloadString("http://addmefast.com/free_points")
        Dim pattern As String = "<span class=""points_count"">(\d*?)</span>"
        Dim reg As New System.Text.RegularExpressions.Regex(pattern)
        Dim ausgabe As Match = reg.Match(temp)
        Label1.Text = ausgabe.Groups(1).Value

Er zeigt trotzdem noch " " als Label1.Text an. Und ausgabe.Group gab es nicht nur ausgabe.Groups aber ich denke das sollte die selbe Wirkung haben.

[CorbyT]

Mhh, ich programmiere normalerweise in C# und da funktioniert es.
Versuch mal diesen Pattern: "points_count"">(?<p>\d*?)<" und "ausgabe.Groups("p").Value".