[aspdecoffeehouse] AW: Kontrolle ob richtige Daten

Regge, Olaf Tue, 19 Feb 2002 06:39:50 -0800

So, hier der komplette Source, falls den noch jemand f�r Usernamen oder
anderes ben�tigt !!!


<%
strString = "-a b c d efghijklmnopq-rstuvwxyz���?�1234567890'##.:,;mM<>"

' *** von strString alle Freizeichen rausl�schen
strString = Split(strString," ")
strString = Join(strString,"")

' *** strString in Kleinbuchstaben umwandeln
strString = LCase(strString)
strString = Trim(strString)



' *** Wenn strString - am Anfang hat Wegschneiden
strStringCheck = Left(strString,1)
IF strStringCheck = "-" THEN
 nLaenge = Len(strString)
 strString = Right(strString,nLaenge - 1)
END IF



' *** Alle Sonderzeichen aus strString rausl�schen, die nicht a-z und 0-9
und - sind

FUNCTION machSonderzeichenfrei(sKontrolle)
        FOR I = 1 to 44
           sKontrolle = replace(sKontrolle,chr(i),(""))
        NEXT

        FOR I = 46 to 47
           sKontrolle = replace(sKontrolle,chr(i),(""))
        NEXT

        FOR I = 58 to 96
           sKontrolle = replace(sKontrolle,chr(i),(""))
        NEXT

        FOR I = 123 to 255
           sKontrolle = replace(sKontrolle,chr(i),(""))
        NEXT

        machSonderzeichenfrei = sKontrolle
END FUNCTION

neuerStrString = machSonderzeichenfrei(strString)


Response.Write neuerStrString
%>


<%
' Hiermit alle Zeichen mit CHR-Nr anzeigen lassen. Zum Aussuchen !!!

for i = 0 to 255
Response.Write "<br>"
Response.Write chr(i) &"&nbsp;&nbsp;-&nbsp;&nbsp;"& i
next
%>

Danke noch einmal Stefan !!!

Gru�
Olly - http://ed59.s5.domainkunden.de/vk/?6


-----Urspr�ngliche Nachricht-----
Von: Stefan H�sler [mailto:[EMAIL PROTECTED]]
Gesendet: Dienstag, 19. Februar 2002 15:12
An: AspGerman Kaffeehaus
Betreff: [aspdecoffeehouse] AW: Kontrolle ob richtige Daten


Hi Olly,

<%
strString = "Nur n -Test"
strString = LCase(strString)
strString = Trim(strString)

strStringCheck = Left(strString,1)

IF strStringCheck = "-" THEN
 nLaenge = Len(strString)
 strString = Right(strString,nLaenge - 1)
END IF

strString = Split(strString," ")
strString = Join(strString,"")
Response.Write strString
%>

den Rest (also Sonderzeichen ersetzen) findest Du bei Andi
(http://www.euphoriaschild.darktech.org/index.asp?I=44)

Gr��e

Stefan


| [aspdecoffeehouse] als [EMAIL PROTECTED] subscribed
| http://www.aspgerman.com/archiv/aspdecoffeehouse/ = Listenarchiv
| Sie k�nnen sich unter folgender URL an- und abmelden:
| http://www.aspgerman.com/aspgerman/listen/anmelden/aspdecoffeehouse.asp

| [aspdecoffeehouse] als [email protected] subscribed
| http://www.aspgerman.com/archiv/aspdecoffeehouse/ = Listenarchiv
| Sie k�nnen sich unter folgender URL an- und abmelden:
| http://www.aspgerman.com/aspgerman/listen/anmelden/aspdecoffeehouse.asp

[aspdecoffeehouse] AW: Kontrolle ob richtige Daten

Antwort per Email an