Estrarre dati web VISUAL BASIC 2010

sabato 31 dicembre 2011 - 12.44

Elenco Threads

Stanze Forum

Aggiungi ai Preferiti

Cerca nel forum

valebes Profilo | Newbie

3 messaggi | Data Invio: sab 31 dic 2011 - 12:44

Scusate se faccio qualche errore ma sono nuovo in questo forum
Iosto facendo un programma in VB 2010 che serve ad estrarre i dati (Nome società,Indirizzo,telefono,cellulare) da una pagina html.
Per fare un esempio il mio programma deve estrarre i dati da http://aziende.iopubblicita.it/search/?cosa=Ristoranti&dove=SICILIA&indirizzo=.

Mi scarica il codice html ma anche se ho provato di tutto non riesco ad eliminare quello che non mi serve,mi potete aiutare???Ah Se potete mi potete dare un codice per salvare i dati ricavati in un foglio excel.

Caratteristiche Form:
2 Textbox
1 Button

Il codice Form 1:
Imports System
Imports System.IO
Imports System.Text
Imports System.Collections.ObjectModel
Imports System.Drawing.Drawing2D

Public Class Form1
Public Function EstraiTestoDaHTML(ByVal HTML As String) As String

Return System.Text.RegularExpressions.Regex.Replace( _
HTML, "<[^>]*>", "")
End Function
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
PictureBox1.Image = Image.FromFile("logopc009.gif")
My.Computer.Audio.Play("Default_Title.wav", AudioPlayMode.WaitToComplete)
PictureBox2.Image = Image.FromFile("browser.gif")
End Sub

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

My.Computer.Audio.Play("Ok.wav", AudioPlayMode.WaitToComplete)
Dim URL As String

URL = TextBox2.Text

Dim objScaricaURL As New ScaricaURL

objScaricaURL.SetURL(URL)

Me.TextBox1.Text = _
System.Text.RegularExpressions.Regex.Replace( _
objScaricaURL.Scarica, "<[^>]*>", "")

My.Computer.Audio.Play("Yes.wav", AudioPlayMode.WaitToComplete)

End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
My.Computer.Audio.Play("dfdd.wav", AudioPlayMode.WaitToComplete)
End Sub

CODICE CLASS 1:

Imports System.Text

Imports System.IO

Imports System.Net

Public Class ScaricaURL

Private m_strURL As String

Public Sub SetURL(ByVal strURL As String)

m_strURL = strURL

End Sub

Public Function Scarica() As String

Dim wreq As WebRequest = WebRequest.Create(m_strURL)

Dim wres As WebResponse = wreq.GetResponse()

Dim iBuffer As Integer = 0

Dim buffer(128) As [Byte]

Dim stream As 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

Return strRes.ToString()

End Function

End Class

Jeremy Profilo | Guru

1.527 messaggi | Data Invio: lun 2 gen 2012 - 16:04

Ciao Valerio.
Devi lavorare tanto di Regular Expression ..... fortunamente chi ha costruito il sito, ha assegnato ad ogni componente dell'indirizzo una classe CSS

Facci sapere....
Ciao.

valebes Profilo | Newbie

3 messaggi | Data Invio: lun 2 gen 2012 - 19:52

Grazie mille ci sono riuscito

Torna su

Stanze Forum

Elenco Threads

Partecipa anche tu! Registrati!

Hai bisogno di aiuto ?
Perchè non ti registri subito?

Dopo esserti registrato potrai chiedere
aiuto sul nostro Forum oppure aiutare gli altri

Consulta le Stanze disponibili.

Registrati ora !