XProfan

PROC SONDERZEICHEN

    titel$=TRANSLATE$(titel$, ,-)  cela soll so son. Leerzeichen avec Bindestrich ersetzen
    titel$=TRANSLATE$(titel$,CHR$(34),)
    titel$=TRANSLATE$(titel$,§,)
    titel$=TRANSLATE$(titel$,$,)
    titel$=TRANSLATE$(titel$,%,)
    titel$=TRANSLATE$(titel$,&,)
    titel$=TRANSLATE$(titel$,/,)
    titel$=TRANSLATE$(titel$,(,)
    titel$=TRANSLATE$(titel$,),)
    titel$=TRANSLATE$(titel$,=,)
    titel$=TRANSLATE$(titel$,?,)
    titel$=TRANSLATE$(titel$,`,)
    titel$=TRANSLATE$(titel$,!,)
    titel$=TRANSLATE$(titel$,°,)
    titel$=TRANSLATE$(titel$,²,)
    titel$=TRANSLATE$(titel$,³,)

    titel$=TRANSLATE$(titel$,{,)

        titel$=TRANSLATE$(titel$,[,)
        titel$=TRANSLATE$(titel$,],)

    titel$=TRANSLATE$(titel$,},)

    titel$=TRANSLATE$(titel$,,)
    titel$=TRANSLATE$(titel$,*,)
    titel$=TRANSLATE$(titel$,,)
    titel$=TRANSLATE$(titel$,~,)
    titel$=TRANSLATE$(titel$,#,)
    titel$=TRANSLATE$(titel$,+,)
    titel$=TRANSLATE$(titel$,|,)
    titel$=TRANSLATE$(titel$,µ,)

ENDPROC

titel$=match$([A-Za-z0-9~-],titel$)

PROC SONDERZEICHEN

    parameters titel$
    titel$=TRANSLATE$(titel$, ,-) cela soll so son. Leerzeichen avec Bindestrich ersetzen
    alle verbotenen marque entfernen

    whileloop 1, len(titel$)

        cas instr(substr$(titel$, &loop), q§$%&/()=?`!°²³{[]}*+#+|µ) > 0 : titel$ = del$(titel$,&loop,1)

    endwhile

    return titel$

ENDPROC

Var Test$ = Hühnerhof, Rindviefarm, 23%, $34.a[oho], 56µ 123² * 456³ / 45% A&O
Imprimer Sonderzeichen(test$)
waitinput
end

proc SONDERZEICHEN

    parameters titel$
    declare a%
    titel$ = Translate$(titel$, ,-)
    a% = Set(RegEx,1)
    titel$ = Translate$(titel$,[q§~$%&/~(~)=~?`!°²³~{~[~]~}\~*#~+~|µ) ],)
    Set(RegEx,a%)
    return titel$

endproc

Éditer: marque dans einem Modifier le champ de pas zulassen
 $I PROFALT.INC	Include-Dossier pour Quellcodes früher Profan-Versionen (avant XProfan 11.0), qui encore aucun Operatoren nutzen.
chez Verwendung de  XProfan < 11.0 peux qui obige Include-la ligne $I PROFALT.INC bedenkenlos gelöscht volonté.
Lauffähig ab Profan-Version 6.6
qui Procédure CHECK_INPUT VERBIETET EINE REIHE
übergebener marque dans einem Modifier le champ de.
(c) by Rolf Koch - Rokosoft 2005
 $P+
SetErrorLevel 0
DIESE PROC WERTET AUS  ************************************************************

PROC CHECK_INPUT

    Déclarer BLEN$,BLAENGE%,RET$
    PARAMETERS IN&,BCHST$
    BLAENGE%=1
    RET$=

    WHILENOT len(BCHST$)+1 = BLAENGE%

        BLEN$=MID $(BCHST$,BLAENGE%,1)

        IF INSTR(BLEN$,gettext$(in&))

            Settext in&,del$(gettext$(in&),len(gettext$(in&)),1)
            setfocus(in&)
            sendmessage(in&,$00B1,len(gettext$(IN&)),len(gettext$(IN&))+1) Cursor à den Schluss mettons
            RET$=blen$

        ENDIF

        INC BLAENGE%

    WEND

    RETOUR RET$

ENDPROC

***************************************************************************************
Windowtitle interdite marque
Cls
Déclarer Dlg&
Déclarer bouton%
Déclarer Dlg_Ende%
Déclarer Eingabe&
Dlg& = Créer(Dialog,%Hwnd,s'il te plaît quelque chose eingeben,350,50,180,70)
Eingabe& = Créer(Éditer,Dlg&,,10,10,150,20)
SetFocus(Eingabe&)
Dlg_Ende% = 0
Imprimer dans diesem Beispiel interdit:
Imprimer/*-_>< (siehe CHECK_INPUT ...)
Imprimer ---------------------------------
Whilenot Dlg_Ende%
Waitinput
IF GETFOCUS(EINGABE&)
AUFRUF UND AUSWERTUNG ****************************************
CHECK_INPUT Eingabe&,/*-_><
PARAMETER: HANDLE EDITFELD UND LISTE VERBOTENE ZEICHEN
CASE $(0) <>  : PRINT VERBOTENES ZEICHEN GEFUNDEN:  + $(0)
***************************************************************
ENDIF
Si Equ(bouton%,2)
Dlg_Ende% = 1
DestroyWindow(Dlg&)
Endif
Wend
Fin

 {$cleq}

stringToAllowedChars(string s,alwdChrs){

    long c=len(s),i
    caseNot c : return

    do {

        i+

        ifNot inStr(subStr$(s,i),alwdChrs) {

            s=del$(s,i,1)
            i-
            c-

        }

        cas i==c : pause

    }

    return s

}

Var Test$ = Hühnerhof, Rindviefarm, 23%, $34.a[oho], 56µ 123² * 456³ / 45% A&O
Imprimer stringToAllowedChars(test$,45)
waitinput
end

proc STRINGTOALLOWEDCHARS

    PARAMETERS S$,ALWDCHRS$
    var C&=LEN(S$)
    var I&=0

    IFNOT C&

        RETOUR

    ENDIF

    WHILE 1

        INC I&

        IFNOT INSTR(SUBSTR$(S$,I&),ALWDCHRS$)

            S$=DEL$(S$,I&,1)
            DEC I&
            DEC C&

        ENDIF

        IF I&=C&

            BREAK

        ENDIF

    ENDWHILE

    RETOUR S$

endproc

VAR TEST$=Hühnerhof, Rindviefarm, 23%, $34.a[oho], 56µ 123² * 456³ / 45% A&O
PRINT STRINGTOALLOWEDCHARS(TEST$,45)
WAITINPUT
end