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
J'ai donc potassé les fonctions Regex et abouti à
Code : Sélectionner tout - Visualiser dans une fenêtre à part <span class="vi-xs vi-lk">Numéro de l'objet : 320520582643</span>
pour extraire le code à 12 chiffres
Code : Sélectionner tout - Visualiser dans une fenêtre à part Dim pattern As String = "\bNuméro de l'objet.*\b:\b.*\d{12}"
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
Par avance merci
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
Bertrand
Partager