Alle URL-Links einer HTML-Seite auslesen II Mit diesem Code lassen sich auf einfachste Weise alle URL-Links eines HTML-Seitenquelltextes auslesen.
Autor:   Jan	Bewertung:     [ Jetzt bewerten ]	Views:  9.036
ohne Homepage	System:  Win9x, WinNT, Win2000, WinXP, Vista	Beispielprojekt auf CD

Geben Sie hier Ihre persönliche Bewertung ab! Anzahl Bewertungen bisher: 32 Bewertung insgesamt: nützlich Durchschnittliche Bewertung: 2.8 von 5 Sternen

sehr gut     gut     nützlich     mittelmäßig     mangelhaft

Nehmen wir an, Sie haben auf einer Form ein WebBrowser-Steuerelement und eine Internetseite geladen. Per Knopfdruck sollen nun alle Linkadressen der Internetseite in einer ListBox angezeigt werden.

Private Sub Command1_Click()
  Dim i As Long
  Dim sLink As String
 
  ' alle URLs ermitteln und in die ListBox übertragen  
  List1.Clear
  With WebBrowser1.Document.All
    For i = 0 to .Tags("A").Length
      sLink = Trim$(.Tags("A")(i).href
      If sLink <> "" Then
        List1.additem sLink
      End If
    Next i
  End With
End Sub

Dieser Code ermittelt alle Verlinkungen, d.h. sowohl URL-Links, als auch EMail-Links.

Möchten Sie bspw. nur die reinen URL-Links ermitteln, fügen Sie folgende Abfrage in die For...Next-Schleife ein:

...
      If sLink <> "" And LCASE$(Left$(sLink, 7)) <> "mailto:" Then
        List1.additem sLink
      End If
...

Sollen hingegen alle EMail-Adressen ermittelt werden, ändern Sie die zusätzliche Abfrage wie folgt:

...
      If sLink <> "" And LCASE$(Left$(sLink, 7)) = "mailto:" Then
        List1.additem Mid$(sLink, 8)
      End If
...