' Funktion parseURL
' zerlegt die übergebene URL in die Teile
' host, path, file und values und gibt diese in einem Array wieder zurück
' Aufruf der Funktion: host=parseURL(String URL)(0)
 
Private Function parseURL(URL As String)
Dim suchString1 As String
Dim suchString2 As String
Dim bError As Byte
Dim host As String
Dim hostEnde As Integer
Dim pathEnde As Integer
Dim path As String
Dim fileStart As Integer
Dim file As String
Dim values As String
 
suchString1 = "/"
suchString2 = "?"
host = ""
path = ""
file = ""
values = ""
 
' auf richtige Eingabe Testen
If Left(URL, 7) <> "http://" Then
    ' falsche Eingabe, Funktion wird beendet
    parseURL = Array("error", "", "", "")
    Exit Function
End If
 
' Ende des Hosts suchen
hostEnde = InStr(8, URL, suchString1, 1)
If hostEnde = 0 Then
    ' Adresse wurde nur im Format http://www.bla.de eingetragen
    ' Funktion wird beendet
    host = Mid(URL, 8, Len(URL) - 7)
    parseURL = Array(host, "/", "", "")
    Exit Function
Else
    ' Adresse wurde mindestens im Format http://www.bla.de/ eingetragen
    host = Mid(URL, 8, hostEnde - 8)
End If
 
' testen, ob eine Pfadangabe vorliegt
If Len(URL) + 8 > hostEnde Then
    ' Ende des Pfades suchen
    pathEnde = InStr(hostEnde + 8, URL, suchString2, 1)
    If pathEnde = 0 Then
        ' Adresse wurde nur im Format http://www.bla.de/index.htm eingetragen
        path = Mid(URL, hostEnde, (Len(URL) + 1) - hostEnde)
 
        ' Start de Datei suchen
        fileStart = InStrRev(path, "/", Len(path), vbTextCompare)
        file = Mid(path, fileStart + 1, (Len(path) + 1) - fileStart)
 
        ' Rückgabe der Bestandteile
        parseURL = Array(host, path, file, "")
        ' Funktion wird beendet
        Exit Function
    Else
        ' Adresse wurde mindestens im Format http://www.bla.de/index.htm? 
        ' eingetragen
        path = Mid(URL, hostEnde, pathEnde - hostEnde)
    End If
End If
 
' restliche Werte hinter dem "?" auslesen
values = Mid(URL, pathEnde, Len(URL) - pathEnde)
parseURL = Array(host, path, file, values)
 
End Function