Imports System.Net
Imports System.Text
Imports System.IO

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim URL As String = "http://aziende.iopubblicita.it/search/?cosa=Ristoranti&dove=SICILIA&indirizzo=."
        Dim wreq As WebRequest = WebRequest.Create(URL)
        Dim wres As WebResponse = wreq.GetResponse()
        Dim iBuffer As Integer = 0
        Dim buffer(128) As [Byte]
        Dim stream As IO.Stream = wres.GetResponseStream()
        iBuffer = stream.Read(buffer, 0, 128)
        Dim strRes As New StringBuilder("")

        While iBuffer <> 0
            strRes.Append(Encoding.ASCII.GetString(buffer, 0, iBuffer))
            iBuffer = stream.Read(buffer, 0, 128)
        End While


        Dim tempFileName As String
        tempFileName = System.IO.Path.GetTempFileName()

        Using sw As New StreamWriter(tempFileName, False, Encoding.GetEncoding(1252))
            sw.WriteLine(strRes)
        End Using

        Try
            Dim testo_da_cercare As String = "<span class=""fn org"">"
            Dim testo_modificato As String
            Dim riga As String
            Dim sr As StreamReader
            sr = File.OpenText(tempFileName)

            While sr.Peek <> -1
                riga = sr.ReadLine().Trim
                Select Case riga.Contains(testo_da_cercare)
                    Case True
                        Console.WriteLine("Originale: " & riga)
                        testo_modificato = riga.Replace("<span class=""fn org"">", "").Replace("</span>", "")
                        Console.WriteLine("Modificato: " & testo_modificato)
                End Select
            End While
            sr.Dispose()
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try

        File.Delete(tempFileName)
        wres.Close()
        wreq.Abort()

    End Sub

End Class