Sonderzeichen Filtern

[kaitec]

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!

[Kaeru Gaman]

für PB Version 4.02 oder 4.10b ?

[kaitec]

hehe

für PB 3.94

[#NULL]

@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.

[kaitec]

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!

[#NULL]

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

[Kaeru Gaman]

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

die sonderzeichen in nem MsgReq werden doch angezeigt:

[kaitec]

Danke #NULL

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

[Kiffi]

hehe

für PB 3.94

ach? mittlerweile hast Du Dir schon 3.94 gezogen?

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