Discussion :

[105rn2]

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

[105rn2]

re
En fait j'ai trouvé : j'ai cherché pendant des heures à mettre les " ou il faut, et c'était des () qu'il fallait !!

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
        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
 
        Dim pattern As String = "Numéro de l'objet.*\b:\b.*(\d{12})"
 
        ' Invoke the Match method.
        Dim m As Match = Regex.Match(rssourcecode, pattern, RegexOptions.IgnoreCase)
 
        ' If successful, write the group.
        If (m.Success) Then
            txt_NoLot.Text = m.Groups(1).Value
        Else
            MessageBox.Show("Aucune occurence trouvée ! ")
 
        End If

Et ça marche !
Bertrand

[105rn2]

Petite correction au regex (ne marchait pas sur tous les lots"

Code :

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

Dim pattern As String = "(>Numéro de l'objet\s:\s)(\d{12})"

Corrigé avec le freeware : Expresso !
Bertrand