Guten Tag
Ich habe folgenden Code:
Ich will damit eigentlich alle nicht zahlen entfernen aber es klappt leider nicht.
Könnte einer mir helfen
achja auf der Seite steht :
Ich will nur die Zahl anzeigen
Geht dass?
Mfg
Confix
Ich habe folgenden Code:
VB.NET-Quellcode
- Imports System.Net
- Imports System.IO
- Imports System.Text.RegularExpressions
- Public Class Form1
- Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
- WebBrowser1.Navigate(TextBox1.Text & "/counter.php?art=tag")
- Dim text As String = WebBrowser1.DocumentText
- Dim pattern As String = "^\D$"
- Dim regex As Regex = New Regex(pattern, RegexOptions.IgnoreCase Or RegexOptions.Singleline)
- Dim match As Match = regex.Match(text)
- If (match.Success) Then
- Dim ermittelt As String = match.Groups(1).Value
- Label2.Text = "Heute waren auf der Seite" + ermittelt + "Besucher!"
- End If
- End Sub
- Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
- End Sub
- End Class
Ich will damit eigentlich alle nicht zahlen entfernen aber es klappt leider nicht.
Könnte einer mir helfen
achja auf der Seite steht :
Ich will nur die Zahl anzeigen
Geht dass?
Mfg
Confix