Internetadresse prüfen und ergänzen

Nachfolgend eine einfach Funktion, die den übergebenen String auf "http://" und "www" überprüft. Bei der Eingabe einer Internetadresse kann so direkt "access-home.de" eingegeben werden. Die Funktion korrigiert die Eingabe und gibt die komplette Internetadresse "http://www.access-home.de" zurück. Die Funktion dient nur zur einfacheren Eingabe einer Web-Adresse und bietet keine vollständige Korrektur. Bei der Eingabe von Adressen in Formularen ist diese Funktion dennoch hilfreich.

Code:

Public Function WwwStringChecken(wwwString As Variant)   '---------------------------------------------------------- ' Diese Funktion wandelt den mitgegebenen String in eine ' HTTP-Adresse um '----------------------------------------------------------   On Error GoTo fehler   Dim wwwStrMerk As String   If IsNull(wwwString) Then wwwStrMerk = "" Else If Left(wwwString, 7) <> "http://" Then If Left(wwwString, 4) = "www." Then wwwStrMerk = "http://" & wwwString Else wwwStrMerk = "http://www." & wwwString End If Else wwwStrMerk = wwwString End If End If WwwStringChecken = wwwStrMerk   ende: Exit Function   fehler: WwwStringChecken = wwwString Resume ende   End Function

Viele weitere Tipps & Tricks aus der Praxis für die Praxis finden Sie auf unserer AP-Access-Tools Vol.1

Auf der AP-Access-Tools Vol.1 finden Sie weitere 320 Tipps & Tricks sowie 250 Access-Beispiel/Anwendungen mit offenen Quellcode! Die Access-Tools-CD mit über 400 MByte Inhalt - für Access- und VB-Entwickler 256 Access-Beispiele mit offenem Code 45 Add-Ins und ActiveX-Komponenten (Freeware) 16 VB-Projekt inkl. Source 321 Tipps & Tricks für Access und VB Plus 11 Entwicklerversionen (9 davon mit Source!) Plus 3 Vollversionen und Plus riesiger Datenpool Holen Sie sich jetzt Ihre AP-Access-Tools-CD zum Superpreis von nur EUR 24,95!