Discussion :

[cha23]

Bonjour,
je sais qu'il y a pas de cours ou d'exemple de regex sur le forum mais j'ai un problème dans mon parsing
voici la source
<strong class="number has-tooltip cursor-pointer">
143,10&nbsp;€
</strong>
le rouge c'est ce que je cherche à récupérer

j'ai essayé différente regex mais rien ne marche

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
17
18
19
        Dim r As New Regex("pointer"">([\w\s]+)&nbsp")
 
        If r.IsMatch(strpage) Then
 
            Dim m As Match
 
            For Each m In r.Matches(strpage)
 
                Dim Result As String
 
                Result = m.Groups(1).ToString
 
        If m.Success Then
            MessageBox.Show("Résultat: " + m.Groups(1).Value)
 
        End If
 
            Next
end if

quand je test juste

Code :

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

1
2
3
4
5
6
7
8
        Dim r As New Regex("pointer"">([\w\s]+)&nbsp")
        Dim m As Match
        m = r.Match("cursor-pointer"">149,00&nbsp")
 
        If m.Success Then
            MessageBox.Show("Résultat: " + m.Groups(1).Value)
 
        End If

merci d'avance

[tomlev]

je sais qu'il y a pas de cours ou d'exemple de regex sur le forum

Sur le forum, non... mais sur le site, oui
http://stormimon.developpez.com/dotn...ns-regulieres/

Essaie avec ça :

Code :

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

1
2
3
4
5
6
7
8
    Dim pattern = "<strong class=""number has-tooltip cursor-pointer"">" _
                & "([\d,]+)&nbsp;€" _
                & "</strong>"
    Dim input = "<strong class=""number has-tooltip cursor-pointer"">" _
                & "143,10&nbsp;€" _
                & "</strong>"
    Dim m As Match = Regex.Match(input, pattern)
    Dim value As String = m.Groups(1).Value

Cela dit les regex ne sont pas vraiment le meilleur moyen de parser du HTML... il vaudrait mieux utiliser un outil comme HTML Agility Pack

[cha23]

Oops pardon je voulais dire plein de cours ou d'exemple

Et en ce qui concerne ton code ca marche juste sur l 'exemple mais si je lance la lecture sur toute la source il me trouve rien le même problème que j'ai avec mon 2e code ou je me suis tromper par contre c'etais (.*) ou ([\w\s\S\r\n]+) qui marche,
et encore quand je lance avec ([\w\s\S\r\n]+) il me trouve qu'un resultat et c'est tout la page a partir du premier "strong class=""number has-tooltip cursor-pointer"

et pour ce qui est du htmlagilitypack j'ai pas trop comprit comment ca marchais
bien que j'ai vu ou tu donnée un exemple de code sur
http://www.developpez.net/forums/d11...x-mal-formule/
je vois pas trop comment l'adapté a mon cas

[tomlev]

Un exemple avec Html Agility Pack pour ton cas :

Code :

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

1
2
3
4
5
6
7
Dim doc = New HtmlDocument()
Dim wc = New WebClient()
Using stream = wc.OpenRead(urlDeLaPage)
	doc.Load(stream)
End Using
Dim tags = doc.Descendants("strong").Where(Function(t) t.GetAttributeValue("class", Nothing) = "number has-tooltip cursor-pointer")
Dim values = tags.Select(Function(t) t.InnerText)

[cha23]

ça me met :

Erreur 1:'Descendants' n'est pas un membre de 'HtmlAgilityPack.HtmlDocument'

[tomlev]

ça me met :
Erreur 1:'Descendants' n'est pas un membre de 'HtmlAgilityPack.HtmlDocument'

Ah oui j'ai oublié un bout... en fait c'est ... doc.DocumentNode.Descendants(...

[cha23]

alors quand je met

Code :

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

Dim tags = doc.DocumentNode.Descendants("strong").Where(Function(t) t.GetAttributeValue("class", Nothing) = "number has-tooltip cursor-pointer")

ça me met une longue erreur:

Erreur 1 La résolution de surcharge a échoué, car aucun 'Where' accessible ne peut être appelé avec ces arguments*:
Méthode d'extension 'Public Function Where(predicate As System.Func(Of HtmlAgilityPack.HtmlNode, Integer, Boolean)) As System.Collections.Generic.IEnumerable(Of HtmlAgilityPack.HtmlNode)' définie dans 'System.Linq.Enumerable'*: La fonction imbriquée n'a pas une signature compatible avec le délégué 'System.Func(Of HtmlAgilityPack.HtmlNode, Integer, Boolean)'.
Méthode d'extension 'Public Function Where(predicate As System.Func(Of HtmlAgilityPack.HtmlNode, Boolean)) As System.Collections.Generic.IEnumerable(Of HtmlAgilityPack.HtmlNode)' définie dans 'System.Linq.Enumerable'*: La résolution de surcharge a échoué, car aucun 'GetAttributeValue' accessible n'est plus spécifique pour ces arguments*:
'Public Function GetAttributeValue(name As String, def As Boolean) As Boolean'*: Pas plus spécifique.
'Public Function GetAttributeValue(name As String, def As Integer) As Integer'*: Pas plus spécifique.
'Public Function GetAttributeValue(name As String, def As String) As String'*: Pas plus spécifique

et j'ai verifié que copie local est bien sur true
et si par ailleurs tu serais ou je pourrais trouver un tutoriel en francais

[tomlev]

Remplace Nothing par "", ça devrait passer

[cha23]

Merci Tomlev par contre je n'arrive pas a afficher les données a partir de tes lignes de commande je suis encore un petit nouveau dans la programmation

et si par ailleurs tu avais un tutoriel a me conseiller

Merci encore

[tomlev]

Avec mon code, values est une collection qui contient les textes recherchés. Donc il suffit de faire une boucle pour récupérer chaque valeur :

Code :

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

1
2
3
For Each v In values
    MessageBox.Show(v)
Next

[cha23]

ça marche nickel par contre ça m'affiche en plus des chiffres
&nbsp;& # 8 3 6 4 ;
(j'ai mit des espaces sinon ca mettais le sigle €)

[tomlev]

ça marche nickel par contre ça m'affiche en plus des chiffres
&nbsp;€

Oui, le code que j'ai donné ne fait qu'extraire le contenu de l'élément HTML. Ensuite il faut retraiter le texte lui-même pour obtenir ce que tu veux (avec une regex ou autre chose)

[cha23]

je vais essayer ça mais c'est vrai que c'est beaucoup plus simple a extraire des données

Merci beaucoup pour ton aide

[cha23]

Bon bah j'ai résolu mon problème en traficotant un peu
j'ai rajouté

Code :

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

MessageBox.Show(Split(Replace(v, " ", ""), "&nbsp")(0))

merci encore