Importer des données HTML

        Me.Cursor = Cursors.WaitCursor





        Try

            Dim request As WebRequest = WebRequest.Create("http://www.bedetheque.com/bandes_dessinees_A.html")

            Dim response As HttpWebResponse = CType(request.GetResponse(), HttpWebResponse)

            Dim dataStream As Stream = response.GetResponseStream()

            Dim reader As New StreamReader(dataStream, Encoding.UTF7)

            Dim responseFromServer As String = reader.ReadToEnd()

            Me.RtHtmlData.Text = responseFromServer

            reader.Close()

            dataStream.Close()

            response.Close()



            Me.LvResults.Items.Clear()



            Dim result As String

            result = Me.RtHtmlData.Text



            Dim Pattern As String

            Pattern = "<a HREF=""/serie-(?<serie>.*?)"" TARGET=""_top"" alt=""(?<alt>.*?)"" title=""(?<title>.*?)"" >(?<titre>.*?)</a></div>"





            Dim rx As New Regex(Pattern, RegexOptions.IgnoreCase)



            Dim matches As MatchCollection = rx.Matches(result)



            For Each m As Match In matches

                Dim lvi As ListViewItem = New ListViewItem

                lvi.Text = m.Groups("titre").Value

                lvi.SubItems.Add(m.Groups("title").Value)

                lvi.SubItems.Add(m.Groups("alt").Value)

                lvi.SubItems.Add(m.Groups("serie").Value)

                LvResults.Items.Add(lvi)

            Next



            MessageBox.Show(matches.Count)





            Me.LbResults.Text = Me.LvResults.Items.Count.ToString & " résultat(s) trouvé(s)"

            Me.Cursor = Cursors.Default

   Dim response As HttpWebResponse = CType(request.GetResponse(), HttpWebResponse)

            Dim dataStream As Stream = response.GetResponseStream()

            Dim respEncoding As Encoding = Encoding.GetEncoding(response.CharacterSet)



            Dim reader As New StreamReader(dataStream, respEncoding)

            Dim responseFromServer As String = reader.ReadToEnd()