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 a pagine web esterne siano presenti in una pagina web, possiamo utilizzare l'oggetto ''WebView'', attivando il Componente ''gb.qt4.webkit''.
+
Per conoscere quali collegamenti a pagine web esterne siano presenti in una pagina web, possiamo utilizzare l'=ggetto ''WebView'', attivando il Componente ''gb.qt5.webkit''.
  
  
Riga 13: Riga 13:
 
  '''Public''' Sub WebView1_Load()  <FONT Color=gray>' ''Quando la pagina web è stata completamente 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 s As String
 
   Dim s As String
−
 
+
  Dim i, c As Integer 
−
  ss = Split(Lower(WebView1.HTML), " ", "", True)
+
−
 
+
  s = Lower(WebView1.HTML)
−
  For Each s In ss
+
−
    If s Like "href=\"*" Then
+
  i = InStr(s, "http", c + 1)
−
      s = Replace(s, "href=", "")
+
−
<FONT Color=gray>' ''Mostra in console un collegamento individuato ad una pagina web esterna:''</font>
+
  While i > 0
−
      Print Left(s, RInStr(s, "\""))
+
    c = InStr(s, "\"", i + 1)
−
    Endif
+
    Print Mid(s, i, c - i)
−
  Next
+
    i = InStr(s, "http", c + 1)
 +
  Wend
 
    
 
    
 
  '''End'''
 
  '''End'''

Versione delle 21:55, 30 dic 2021

Per conoscere quali collegamenti a pagine web esterne siano presenti in una pagina web, possiamo utilizzare l'=ggetto WebView, attivando il Componente gb.qt5.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 s As String
 Dim i, c As Integer  

 s = Lower(WebView1.HTML)

 i = InStr(s, "http", c + 1)

 While i > 0
   c = InStr(s, "\"", i + 1)
   Print Mid(s, i, c - i)
   i = InStr(s, "http", c + 1)
 Wend
  
End
Estratto da "https://www.gambas-it.org/wiki/index.php?title=Controllare_i_link_contenuti_da_una_pagina_web&oldid=30090"