Differenze tra le versioni di "Controllare i link contenuti da una pagina web"
Da Gambas-it.org - Wikipedia.
| Riga 1: | Riga 1: | ||
| − | Per conoscere quali collegamenti | + | Per conoscere quali collegamenti a pagine web esterne siano presenti in una pagina web, possiamo utilizzare l'oggetto ''WebView'', attivando il Componente ''gb.qt4.webkit''. |
| Riga 21: | Riga 21: | ||
If s Like "href=\"*" Then | If s Like "href=\"*" Then | ||
s = Replace(s, "href=", "") | s = Replace(s, "href=", "") | ||
| + | <FONT Color=gray>' ''Mostra in console un collegamento individuato ad una pagina web esterna:''</font> | ||
Print Left(s, RInStr(s, "\"")) | Print Left(s, RInStr(s, "\"")) | ||
Endif | Endif | ||
Versione delle 10:13, 13 ago 2016
Per conoscere quali collegamenti a pagine web esterne siano presenti in una pagina web, possiamo utilizzare l'oggetto WebView, attivando il Componente gb.qt4.webkit.
Mostriamo un semplice esempio pratico:
Public Sub Form_Open()
' Carica una pagina web:
WebView1.Url = "http://www.gambas-it.org"
End
Public Sub WebView1_Load() ' Quando la pagina web è stata completamente caricata, viene sollevato questo evento
Dim ss As String[]
Dim s As String
ss = Split(Lower(WebView1.HTML), " ", "", True)
For Each s In ss
If s Like "href=\"*" Then
s = Replace(s, "href=", "")
' Mostra in console un collegamento individuato ad una pagina web esterna:
Print Left(s, RInStr(s, "\""))
Endif
Next
End
