Differenze tra le versioni di "Controllare i link contenuti da una pagina web"

Da Gambas-it.org - Wikipedia.
(Creata pagina con "Per conoscere quali collegamenti ad altre pagine web siano presenti in una pagina web, possiamo utilizzare l'oggetto ''WebView'', attivando il Componente ''gb.qt4.webkit''....")
 
Riga 11: Riga 11:
 
   
 
   
 
   
 
   
−
  '''Public''' Sub WebView1_Load()  <FONT Color=gray>' ''Quando la pagina è stata caricata, viene sollevato questo evento''</font>
+
  '''Public''' Sub WebView1_Load()  <FONT Color=gray>' ''Quando la pagina web è stata completamente caricata, viene sollevato questo evento''</font>
 
    
 
    
 
   Dim ss As String[]
 
   Dim ss As String[]

Versione delle 10:12, 13 ago 2016

Per conoscere quali collegamenti ad altre pagine web 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=", "")
      Print Left(s, RInStr(s, "\""))
    Endif
  Next
  
End
Estratto da "https://www.gambas-it.org/wiki/index.php?title=Controllare_i_link_contenuti_da_una_pagina_web&oldid=20573"