PureBoard

Verfasst: **07.10.2007 16:01**

Hallo,

meine Frage wie filtert man Sonderzeichen aus einem String bzw. aus einem StringGadget() ???

Folgender Code funzt leider net:

Code: Alles auswählen

          Case 1406
           If GetGadgetText(1404) <> ""
            sonderp = 1
            For x=123 To 191
             sonderp = FindString(GetGadgetText(1404), Chr(x), 1)
             Delay(1)
            Next
            For x=33 To 47
             sonderp = FindString(GetGadgetText(1404), Chr(x), 1)
             Delay(1)
            Next
            
            If sonderp = 0
             If GetGadgetText(1405) <> ""
              If GetGadgetText(1410) <> ""
               ffok$ = "ok"
              Else
               MessageRequester("ERROR", "Bitte geben ihre eMail Adresse ein")
              EndIf
             Else
              MessageRequester("ERROR", "Bitte geben sie ein Passwort ein")
             EndIf
            Else
             MessageRequester("ERROR", "Sonderzeichen wie: (, ), #, +, ~, @, =, ?, §, $, %, /,"+Chr(10)+"{, }, # sind nicht erlaubt!")
            EndIf
           Else
            MessageRequester("ERROR", "Bitte geben sie ein Loginname ein")
           EndIf

Der Code geht, leider zeigt er den Messagerequester mit "sonderzeichen wie: (, ) ..." nicht an!

Für eure Hilfe, danke im voraus!

Verfasst: **07.10.2007 16:09**

für PB Version 4.02 oder 4.10b ?

Verfasst: **07.10.2007 16:42**

hehe

für PB 3.94

Verfasst: **07.10.2007 16:44**

@KG
danke für den tip, wußte ich noch gar nicht

<edit>hu, RemoveString() gibt's ja in 4.02 auch schon, und ich seh die zum ersten mal.

Verfasst: **07.10.2007 16:52**

RemoveString() gibt es schon länger.. .. auf jedenfall ab PB3.94 ..ist aber für mein Vorhaben nicht anwendbar. Da der Benutzer ja nur drauf aufmerksam gemacht werden soll und nicht die Zeichen rausgelöscht werden sollen!

Verfasst: **07.10.2007 17:02**

problem: wissen will ob sonderzeichen drin sind!
lösung: gucken ob sonderzeichen drin sind!

Code: Alles auswählen

text.s = "abc123!"+Chr(34)+"§$%&/()(=?´`#'+*@"

sonder.s = "!"+Chr(34)+"§$&/()=?"

For i=1 To Len(sonder)
  If FindString(text, Mid(sonder,i,1), 1)
    Debug "SONDERZEICHEN ENTHALTEN"
    Break
  EndIf
Next

Verfasst: **07.10.2007 17:10**

> leider zeigt er den Messagerequester mit "sonderzeichen wie: (, ) ..." nicht an!

die sonderzeichen in nem MsgReq werden doch angezeigt:
Bild

Verfasst: **07.10.2007 17:21**

Danke #NULL

der Code funzt... .hab ihn jetzt auf meinen Code angepasst!

Verfasst: **07.10.2007 19:59**

kaitec hat geschrieben:hehe

für PB 3.94

ach? mittlerweile hast Du Dir schon 3.94 gezogen?

http://www.purebasic.fr/german/viewtopi ... 934#157934

PureBoard

Sonderzeichen Filtern

Sonderzeichen Filtern