Die Webseite rund um Microsoft Access
ACCESS LINKS PROJEKTE SHOP KONTAKT INFO
 Home          Beispiel-DBs          Funktionen          FAQs          Downloads          Newsletter          Forum        
         Tipps
Funktion WwwStringChecken()
Diese Funktion wandelt den mitgegebenen String in eine HTTP-Adresse um
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
Funktion WwwStringChecken()Funktion-WwwStringChecken()Funktion-WwwStringChecken()Funktion-WwwStringChecken()




 Login | Impressum | ADMIN | Printversion

Copyright by Seitenzentrale.de