Cherche tutoriel en VB sur le REGEX

Version imprimable

Voir 40 message(s) de cette discussion en une page

Bonjour,

Code:

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 1 donc si vous avez une petite idée merci.

Cordialement

18/03/2012, 23h33
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

Bonjour,

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

Code:

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

Bonjour,

Est ce que ça ça pourrait faire?

Code:

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)

19/03/2012, 18h49
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:

0
19/03/2012, 18h54
-N4w4k-

Citation:

Envoyé par mrfrag

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 :mrgreen:
19/03/2012, 19h01
mrfrag

Hum je sais pas comment tros l'expliquer :mouarf:

Parce que la il m'affiche 2 point pour avoir un point il me faut 10 votes donc il me faudrait afficher le nombre de point votes :) je sais pas si je me suis bien exprimé :)

Cordialement,
19/03/2012, 19h09
-N4w4k-

Hmm je n'ai toujours pas compris..

Citation:

pour avoir un point il me faut 10 votes

Veux-tu compter le nombre de vote connaissant le nombre de point?
Si c'est ça, c'est des maths d'école primaire :cry: (nombre_de_vote = nombre_de_point * 10)

Que veut tu faire exactement?
19/03/2012, 19h12
mrfrag

C'est assez dur a expliquer :S

En gros je veux crée une autres REGEX mes avec cette span la chez pas si ta compris.

Citation:

0

Si tu ne veux pas chercher une chaine de caractere en particulier, ni dans un texte particulier (soyons fou :mrgreen:), tu peux faire une fonction..

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
    Sub Main()
 
        Dim txt = "<span style=""color:#e87505"" class=""pointsM_value"">9</span>"
        txt += "<span style=""color:#e87505"" class=""pointsM_value"">"
        txt += "</span>"
 
        Dim i As Integer = CountStringInText(txt, "pointsM_value")  'resultat 2
        i = CountStringInText(txt, "span")  'resultat 4
 
    End Sub
 
    Private Function CountStringInText(ByVal alltext As String, ByVal textpart As String) As Integer
        Dim myRegex = New Regex(textpart)
        Dim matches As MatchCollection = myRegex.Matches(alltext)
        Return matches.Count
    End Function

19/03/2012, 19h15
mrfrag

Huummm

Il aurais pas moyen de faire pareille que l'autres de t'alheur :)

Code:

1 2 3 4 5 Dim txt As String = "0" Dim myRegex = New Regex("QUEL_TEXTE VEUX TU RECHERCHER_??") Dim matches As MatchCollection = myRegex.Matches(txt) Dim i = matches.Count
Si c'est ça que tu veux, tu n'avais qu'à remplacer le texte...

PS: C'est super dur pour moi de t'aider si je ne parviens pas à comprendre ce que tu veux.. Essaie de bien mettre par écrit tes problèmes, dans ce post ou dans les prochains, sinon on mettra toujours 10 fois plus de temps que nécessaire! :aie:

19/03/2012, 19h30
mrfrag

Enfaite le texte que je recherche sera dynamique un coup sera 1,2,3,4,5,6,7,8, et 9 il n’ira pas plus loin que 9
19/03/2012, 19h36
-N4w4k-

C'est la couleur que tu veux ? => "color#e87505"
tu veux identifier le nombre??

PS: je dois partir dans quelques minutes. Si je ne peux pas maintenant, je réessaierai de t'aider dans une petite heure..
19/03/2012, 19h37
mrfrag

Identifier le nombre et l'afficher dans mon label :)

Code:

1
2
3
4
5
6
7
8
9
10
11
12
        Dim txt As String = "<span style=""color#e87505"">0</span>"
 
        Dim myRegex = New Regex("color#e[0-9]+") 'ou [0-9]{5} si il y a toujours 5 nombres
        Dim matches As MatchCollection = myRegex.Matches(txt)
 
        For Each Match As Match In matches
            Dim str As String = Match.Value
 
            Dim iStr As String = str.Replace("color#e", "")     'valeur de type String
            Dim i As Integer = Integer.Parse(iStr)              'valeur de type Integer
 
        Next

Quand on se comprend ça va mieux :ccool:

A+

19/03/2012, 19h47
mrfrag

Merci Mais il dise que la variable local est deja utiliser et je voudrais aussi l'afficher dans un label :)

Sinon sa marche j'ai enlever l'autre code et je l'est tester ( en Gros il fonctionne )

Cordialement

Cela veut dire qu'une des variables du code que je t'ai pondu possède le même nom qu'une de celle déjà présente dans ton code. Identifie la, et change son nom.

Je ne connais pas le nom de ton label donc je ne pourrais pas te donner le code exact.. cependant, tu peux adapter ceci:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 Dim txt As String = "0" Dim myRegex = New Regex("color#e[0-9]+") 'ou [0-9]{5} si il y a toujours 5 nombres Dim matches As MatchCollection = myRegex.Matches(txt) For Each Match As Match In matches Dim str As String = Match.Value Dim iStr As String = str.Replace("color#e", "") 'valeur de type String je_ne_connais_pas_le_nom_de_ton_label.Text = iStr Next
Je ne saurais trop de conseiller de parcourir le très bon Cours VB.NET par Philippe Lasserre afin de connaitre le minimum requis pour pouvoir réaliser une application de base. Tu trouveras plein de choses très utiles dont tu pourras t'inspirer par la suite.

19/03/2012, 20h52
mrfrag

Dans mon label sa me marque pointMvalue WTF ??

Voila mon code au pire ^^

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
'<-- Afficher le nombre de point M -->'
        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)
 
        Label5.Text = (matches.Count)
 
 
        '<-- Afficher les nombre de point vote -->'
        Dim txxt As String = "<span style=""color#e87505"">9</span>"
 
        Dim myyRegex = New Regex("color#e[0-9]+") 'ou [0-9]{5} si il y a toujours 5 nombres
        Dim maatches As MatchCollection = myyRegex.Matches(txxt)
 
        For Each Match As Match In matches
            Dim str As String = Match.Value
 
            Dim iStr As String = str.Replace("color#e", "")     'valeur de type String
            Label6.Text = iStr
 
        Next

Voir 40 message(s) de cette discussion en une page