Bonjour,
J'aimerais récupérer des informations sur une page html, et le N° de lot sur Ebay pour être plus précis
Le code source à récupérer est
Code : Sélectionner tout - Visualiser dans une fenêtre à part
<span class="vi-xs vi-lk">Numéro de l'objet : 320520582643</span>
J'ai donc potassé les fonctions Regex et abouti à
Code : Sélectionner tout - Visualiser dans une fenêtre à part
 Dim pattern As String = "\bNuméro de l'objet.*\b:\b.*\d{12}"
pour extraire le code à 12 chiffres
J'arrive à obtenir la chaine complète contenant "Numéro de l'objet : 320520582643..." mais pas à en extraire le N° seul car pour le splitter je dois définir des groupes, et la je cafouille avec les ",..
Mon code
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
20
21
22
23
24
25
26
27
 Dim webRequest As System.Net.WebRequest = HttpWebRequest.Create(WebBrowser1.Url)
        Dim webResponse As System.Net.WebResponse = webRequest.GetResponse()
        Dim sr As System.IO.StreamReader = New System.IO.StreamReader(webResponse.GetResponseStream())
 
        Dim rssourcecode As String = sr.ReadToEnd
 
 
 
        'chaine à trouver : <span class="vi-xs vi-lk">Numéro de l'objet : 320520582643</span>
        'Dim pattern As String = txt_Pattern2.Text.ToString
        Dim pattern As String = "\bNuméro de l'objet.*\b:\b.*\d{12}"
 
        Dim r As New System.Text.RegularExpressions.Regex(Pattern, RegexOptions.Multiline Or RegexOptions.IgnoreCase)
        Dim matches As MatchCollection = r.Matches(rssourcecode)
 
        If matches.Count > 0 Then
            MessageBox.Show(matches.Count.ToString & "  Occurence(s) trouvée(s) !")
        Else
            MessageBox.Show("Aucune occurence trouvée !")
        End If
 
        For Each itemcode As Match In matches
            ListBox1.Items.Add(itemcode.Value)
 
            ' ListBox1.Items.Add(itemcode.Value.Split(CChar("""")).GetValue(1))
 
        Next
Par avance merci
Bertrand