Zeichen und Zahl in Access aus einer Spalte auslesen

Hallo zusammen

Ich bearbeite grade Logfils und muss ich aus einer Spalte(URL) der Etwa so aussieht:

/suche/suchformular.html?&sessionid=BB278149056F591CD858995BFA908C9B&goto=ResultDisplay&lang=de&L=0&formtype=mixed&id=186&startsearch=true&sort=year_descending&js=yes&ip=xxx.xxx.xx.xx&hash=0bed9&goto=ResultDisplay&PHPSESSID=3317f11f17aa36247788f0fce3334bf1&listid=&useruid=0&hitsperpage=10&&ssoar=&showdocid=csa-sa-200610221&formtype=mixed&lang=de&L=0&pagecount=1

ich muss die IPs aus dem Link mit MS Access auslesen können.

ich habe versucht mit mehrere Access Funktion wie (Links(),....) , ist aber leider nicht möglich, weil die string Länge immer unterschiedlich vorkommt.

Bestimmt geht es mit einer vba Funktion, kenne ich mich aber leider net so tolle mit vba.

Bitte um Helfe.

lg
Kiwani

Bitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben

Content-ID: 166804

Url: https://administrator.de/forum/zeichen-und-zahl-in-access-aus-einer-spalte-auslesen-166804.html

Ausgedruckt am: 19.06.2025 um 22:06 Uhr

4 Kommentare

Neuester Kommentar

Hallo Kiwani!

Wenn die URL immer nach diesem Schema aufgebaut ist, könntest Du eine VBA-Function der Art

Function GetIP(URL)
GetIP = Split(Split(URL, "ip=")(1), "&")(0)  
End Function

dafür verwenden ...

Es wird zunächst der gesamte String anhand von "ip=" geteilt und mit dem Index 1 der zweite entstehende Teil weiter verwendet. Dieser Teil wird nochmals (dieses Mal anhand von "&") gesplittet und daraus der erste Teil (Index 0) als Ergebnis zurückgegeben. Dabei wird vorausgesetzt (und daher derzeit nicht überprüft), dass tatsächlich "ip=" im Parameter URL enthalten ist ...

Grüße
bastla

Vielen herzlichen Dank,

also die Abfrage öffnet sich und zeigt die IPs und gleich zeitig kommt die Fehlermeldung:
Laufzeitfehler '9'
Index außerhalb des gültien Bereich.

Anscheinend sind noch welche ohne IPs, oder?

Hallo Kiwani!

Anscheinend sind noch welche ohne IPs, oder?

Versuch es damit:

Function GetIP(URL)
Delim1 = "ip="  
Delim2 = "&"  
If InStr(URL, Delim1) > 0 Then
    GetIP = Split(Split(URL, Delim1)(1), Delim2)(0)
Else
    GetIP = "Keine IP gefunden"  
End Function