innazi tutto è necessario il componente inet
quindi dobbiamo aprire la finestra dei componenti dal menù: Progetto - Componenti...
possiamo anche aprirla semplicemente con CTRL+T
a questo punto bisogna aggiungere Microsoft Internet Transfer Control 6.0
per mettere il codice in una textbox (multiline)
Private Sub VediURL(URL As String, Txt As TextBox)
Inet1.OpenURL URL 'apre l' url da noi fornita
Txt = Inet1.OpenURL 'preleva il codice e lo visualizza nella textbox
End Sub
per eliminare i principali tag html possiamo usare questa sub ricorsiva, che xò non può dare problemi a seconda dell' URL
Private Sub EliminaHTML(Txt As TextBox)
If InStr(Txt, "<") Then
Txt.SelStart = InStr(Txt, "<") - 1
Txt.SelLength = InStr(Txt, ">") - Txt.SelStart
Txt.SelText = ""
EliminaHTML Txt
End If
End Sub
un esempio sull' utilizzo
Private Sub Form_Load()
VediURL "www.google.it", Text1
EliminaHTML Text1
End Sub
HTML da Inet
Pubblicato il 17/07/2008
Conoscosco a fondo VB6, PHP e MySql
ho forti basi in HTML, Pascal, C, IJVM
vaghe conoscenze in assembly e CSS
sto inoltre imparando VB2008
|
Aggiungi un commento