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(...