Discussion :

[mrfrag]

Bonjour,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Dim request As System.Net.HttpWebRequest = System.Net.HttpWebRequest.Create("http://millenium-servers.com/voter.php")
        Dim response As System.Net.HttpWebResponse = request.GetResponse
 
        Dim sr As System.IO.StreamReader = New System.IO.StreamReader(response.GetResponseStream())
 
        Dim rssourcecode As String = sr.ReadToEnd
 
        Dim r As New System.Text.RegularExpressions.Regex("")
        Dim matches As MatchCollection = r.Matches(rssourcecode)
 
        For Each itemcode As Match In matches
 
            ListBox1.Items.Add(itemcode.Value.Split("""").GetValue(5))

Voici mon code de regex, sauf c'est que j'aimerais au lieux de listbox1 mettre label1 et dans mon regex jais rien mi parce que je savais pas quoi mettre parce que mon code c'est sa <span style="color:#e87505" class="pointsM_value">1</span> donc si vous avez une petite idée merci.

Cordialement

[tomlev]

Déjà, essaie de clarifier ce que tu veux faire, parce que là c'est un peu le jeu des devinettes...

Tu as une introduction aux regex en VB ici :
http://plasserre.developpez.com/cour...age-vb2#LV-E-4

Et un cours beaucoup plus détaillé (en C#) ici :
http://stormimon.developpez.com/dotn...ns-regulieres/

Mais de toutes façons, les regex ne sont pas très adaptées pour parser du HTML. Pour des cas très simples ça peut aller, mais tu vas te heurter assez rapidement aux limitations pour les cas plus complexes. Il vaut mieux utiliser un outil spécialisé comme HTML Agility Pack

[mrfrag]

Bonjour,

Déjà merci de votre réponse, j'ai trouver un code le voici.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
        Dim sString As String = "<span style=""color:#e87505"" class=""pointsM_value"">9</span>"
        Dim sStart As String = "<span style=""color:#e87505"" class=""pointsM_value"">"
        Dim sEnd As String = "</span>"
 
        Label5.Text = GetBetweenRegex(sString, sStart, sEnd)
    End Sub
    Private Function GetBetweenRegex(ByVal sString As String, ByVal sStart As String, ByVal sEnd As String) As String
        Dim oRegex As New Regex(sStart & "(.+?)" & sEnd)
        Dim oMatch As Match = oRegex.Match(sString)
 
        If oMatch.Success = True Then
            Return oMatch.Groups(1).ToString()
        End If
        Return Nothing
    End Function

Le problème c'est que il ne m'affiche point le nombre de " point M " que je dispose mes le nombre que j'ai écrit par défaut 9 et non le nombre que je possède c'est à dire 2.

Donc voila si vous avez une petite réponse merci

Cordialement

[-N4w4k-]

Bonjour,

Est ce que ça ça pourrait faire?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
        Dim txt = "<span style=""color:#e87505"" class=""pointsM_value"">9</span>"
        txt += "<span style=""color:#e87505"" class=""pointsM_value"">"
        txt += "</span>"
 
        Dim myRegex = New Regex("pointsM_value")
        Dim matches As MatchCollection = myRegex.Matches(txt)
        MsgBox(matches.Count)

[mrfrag]

Merci je te remercie beaucoup sa fonctionne

Mais mais jais une autres question je voudrais afficher un autre regex avec une autre valeur différentes chez pas si tu vois ce que je veux dire voici son code.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

<span style="color:#e87505">0</span>

[-N4w4k-]

je voudrais afficher un autre regex avec une autre valeur différentes

Alors a vrai dire.. non je ne vois pas ce que tu veux rechercher