Rubrik: HTML/Internet/Netzwerk · HTML/Email | VB-Versionen: VB4, VB5, VB6 | 19.05.04 |
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: | Views: 23.351 |
ohne Homepage | System: Win9x, WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11 | Beispielprojekt auf CD |
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 ...