probleme de regex

Version imprimable

probleme de regex

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

143,10 €

le rouge c'est ce que je cherche à récupérer

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

Code:

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:

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

Citation:

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:

1 2 3 4 5 6 7 8 Dim pattern = "" _ & "([\d,]+) €" _ & "" Dim input = "" _ & "143,10 €" _ & "" 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

27/03/2012, 17h37
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

Un exemple avec Html Agility Pack pour ton cas :

Code:

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)

27/03/2012, 18h17
cha23

ça me met :

Citation:

Erreur 1:'Descendants' n'est pas un membre de 'HtmlAgilityPack.HtmlDocument'
27/03/2012, 18h22
tomlev

Citation:

Envoyé par cha23

ç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(...
27/03/2012, 18h30
cha23

alors quand je met

Code:

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

ça me met une longue erreur:

Citation:

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
27/03/2012, 20h02
tomlev

Remplace Nothing par "", ça devrait passer
29/03/2012, 13h44
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
29/03/2012, 14h20
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:

1 2 3 For Each v In values MessageBox.Show(v) Next
29/03/2012, 14h54
cha23

ça marche nickel par contre ça m'affiche en plus des chiffres
 & # 8 3 6 4 ;
(j'ai mit des espaces sinon ca mettais le sigle €)
29/03/2012, 15h00
tomlev

Citation:

Envoyé par cha23

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

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)
29/03/2012, 15h02
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
29/03/2012, 17h50
cha23

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

Code:

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

merci encore