(464)  S'inscrire

Français
Forum

Éditer Eingabe alphanum num alpha

 

Ernst
Éditer-Eingabe einschränken sur bestimmte gewünschte marque, alphanumerisch, seulement Les chiffres, seulement Buchstaben + sostige marque
KompilierenMarqueSéparation
Var __edE& = 0' ( 0 = alphanumerisch / 1 = numerisch  / 2 = aplpha )
Var AlphaNum$="0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ,.%()/ "' Eingabe eingeschränkt sur vorhandene marque

Proc Edit_EingabeAuswertung

    Déclarer txt$

    Select InStr(right$(gettext$(Edit&),1),AlphaNum$)

        CaseOf  1,2,3,4,5,6,7,8,9,10

        IF __edE&=2

            txt$=left$(gettext$(Edit&),len(gettext$(Edit&))-1)
            settext Edit&, txt$
            sendmessage(Edit&,$B1,len(txt$),len(txt$))

        endif

        CaseOf > 10

        IF __edE&=1

            txt$=left$(gettext$(Edit&),len(gettext$(Edit&))-1)
            settext Edit&, txt$
            sendmessage(Edit&,$B1,len(txt$),len(txt$))

        endif

        otherwise
        txt$=left$(gettext$(Edit&),len(gettext$(Edit&))-1)
        settext Edit&, txt$
        sendmessage(Edit&,$B1,len(txt$),len(txt$))

    EndSelect

ENDPROC

' -----------------------------------------------------------
style de fenêtre 8 + 512
Fenêtre 200,200-500,300
CLS RGB(212,210,200)
Var Edit& = Créer("Edit",%hwnd,»,20,100,200,20)
setstyle Edit&,getstyle(Edit&) + $8
Var b_1&= Créer("Button",%hwnd,"alphanum",10,150,80,30)
Var b_2&= Créer("Button",%hwnd,"num",120,150,80,30)
Var b_3&= Créer("Button",%hwnd,"alpha",230,150,80,30)
Var txt_1& = Créer("TEXT",%hwnd,"alphanum",20,60,80,30)
Var txt_2& = Créer("TEXT",%hwnd,»,100,60,200,30)
setfocus(Edit&)

Tandis que 1

    Waitinput

    IF %clé = 2

        pause

    ElseIf %clé = 13

        settext txt_2&, gettext$(Edit&)
        setfocus(Edit&)
        settext Edit&, »

    ElseIf clicked(b_1&)

        __edE& = 0
        settext txt_1&, "alphanum"
        setfocus(Edit&)
        settext Edit&, »

    ElseIf clicked(b_2&)

        __edE& = 1
        settext txt_1&, "         num"
        setfocus(Edit&)
        settext Edit&, »

    ElseIf clicked(b_3&)

        __edE& = 2
        settext txt_1&, "alpha"
        setfocus(Edit&)
        settext Edit&, »

    EndIf

    Edit_EingabeAuswertung

Endwhile
 
26.04.2016  ▲
 




RudiB.


klappt encore pas so entier....mais sonst super...

22 kB
Hochgeladen:27.04.2016
Downloadcounter: 151
Download
 
FreeProfan
Xprofan X4
Rudolf Beske / München

Hardware: NB Intel I9 - 16GByte RAM
27.04.2016  ▲
 




Ernst
comment ist cela chez dir zustandegekommen ?
je hab's zig-la fois durchprobiert (aussi sur xpse) - aucun faute.
FreeProfan / FreeProfan Interpreter 0.9-32 (am Interpreter kann's doch pas liegen)
la hâte irgendeine Vermutung quoi fainéant ist ou bien son pourrait ??
 
27.04.2016  ▲
 




funkheld
chez mir klappt es correct avec XPSE.
XprofanX3

Liegt am Freeprofan.

Gruss
 
27.04.2016  ▲
 



@ernst: Vmtl. strg+v etc.,

vlt. pourrait une usermessage wm_keydown = 256 Abhilfe créer,
zur Not aussi waitinput 333 testen.
 
27.04.2016  ▲
 




Ernst
allô Si
Vermutlich = Bingo
sobald je avec strg+v plus que une Buchstaben einfüge, wird qui dernier gelöscht, mais qui anderen sommes drin
comment bekomm Je l' Schmarren weg
avec usermessage bzw. waitinput viens je pas plus

avec iskey-Abfrage peux je cela insérer per strg+v verhindern, mais z.B. pas rechte Bouton de la souris / insérer
KompilierenMarqueSéparation
Var __edE& = 0' ( 0 = alphanumerisch / 1 = numerisch  / 2 = aplpha )
Var AlphaNum$="0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ,.%()/ "' Eingabe eingeschränkt sur vorhandene marque

Proc Edit_EingabeAuswertung

    Déclarer txt$

    Select InStr(right$(gettext$(Edit&),1),AlphaNum$)

        CaseOf  1,2,3,4,5,6,7,8,9,10

        IF __edE&=2

            txt$=left$(gettext$(Edit&),len(gettext$(Edit&))-1)
            settext Edit&, txt$
            sendmessage(Edit&,$B1,len(txt$),len(txt$))

        endif

        CaseOf > 10

        IF __edE&=1

            txt$=left$(gettext$(Edit&),len(gettext$(Edit&))-1)
            settext Edit&, txt$
            sendmessage(Edit&,$B1,len(txt$),len(txt$))

        endif

        otherwise
        txt$=left$(gettext$(Edit&),len(gettext$(Edit&))-1)
        settext Edit&, txt$
        sendmessage(Edit&,$B1,len(txt$),len(txt$))

    EndSelect

ENDPROC

' -----------------------------------------------------------
style de fenêtre 8 + 512
Fenêtre 200,200-500,300
CLS RGB(212,210,200)
Var Edit& = Créer("Edit",%hwnd,»,20,100,200,20)
setstyle Edit&,getstyle(Edit&) + $8
Var b_1&= Créer("Button",%hwnd,"alphanum",10,150,80,30)
Var b_2&= Créer("Button",%hwnd,"num",120,150,80,30)
Var b_3&= Créer("Button",%hwnd,"alpha",230,150,80,30)
Var txt_1& = Créer("TEXT",%hwnd,"alphanum",20,60,80,30)
Var txt_2& = Créer("TEXT",%hwnd,»,100,60,200,30)
setfocus(Edit&)
Var E_txt$ =»

Tandis que 1

    E_txt$ = gettext$(Edit&)
    Waitinput

    IF %clé = 2

        pause

    ElseIf %clé = 13

        settext txt_2&, gettext$(Edit&)
        setfocus(Edit&)
        settext Edit&, »

    ElseIf clicked(b_1&)

        __edE& = 0
        settext txt_1&, "alphanum"
        setfocus(Edit&)
        settext Edit&, »

    ElseIf clicked(b_2&)

        __edE& = 1
        settext txt_1&, "         num"
        setfocus(Edit&)
        settext Edit&, »

    ElseIf clicked(b_3&)

        __edE& = 2
        settext txt_1&, "alpha"
        setfocus(Edit&)
        settext Edit&, »

    EndIf

    IFnot iskey(17) & iskey(86)

        Edit_EingabeAuswertung

    D'autre

        settext Edit&, E_txt$
        sendmessage(Edit&,$B1,len(E_txt$),len(E_txt$))

    EndIf

Endwhile
 
27.04.2016  ▲
 




Ernst
je denke je hab's hinbekommen
KompilierenMarqueSéparation
Var __edE& = 0' ( 0 = alphanumerisch / 1 = numerisch  / 2 = aplpha )
Var AlphaNum$="0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ,.%()/ "' Eingabe eingeschränkt sur vorhandene marque
' -----------------------------------------------------------

Proc Edit_EingabeAuswertung

    Déclarer txt$
    Var x% = 1

    Select __edE&

        CaseOf 0: txt$ = AlphaNum$

        CaseOf 1: txt$ = left$(AlphaNum$,10)

        CaseOf 2: txt$ = right$(Alphanum$,len(AlphaNum$)-10)

    EndSelect

    whileloop len(getclip$())

        IF InStr(mid$(getclip$(),x%,1),txt$) > 0

            inc x%

        D'autre

            clearclip
            pause

        EndIf

    Endwhile

    si InStr(right$(gettext$(Edit&),1),txt$) = 0

        txt$=left$(gettext$(Edit&),len(gettext$(Edit&))-1)
        settext Edit&, txt$
        sendmessage(Edit&,$B1,len(txt$),len(txt$))

    endif

ENDPROC

' -----------------------------------------------------------
style de fenêtre 8 + 512
Fenêtre 200,200-500,300
CLS RGB(212,210,200)
Var Edit& = Créer("Edit",%hwnd,»,20,100,200,20)
setstyle Edit&,getstyle(Edit&) + $8
Var b_1&= Créer("Button",%hwnd,"alphanum",10,150,80,30)
Var b_2&= Créer("Button",%hwnd,"num",120,150,80,30)
Var b_3&= Créer("Button",%hwnd,"alpha",230,150,80,30)
Var txt_1& = Créer("TEXT",%hwnd,"alphanum",20,60,80,30)
Var txt_2& = Créer("TEXT",%hwnd,»,100,60,200,30)
setfocus(Edit&)

Tandis que 1

    Waitinput

    IF %clé = 2

        pause

    ElseIf %clé = 13

        settext txt_2&, gettext$(Edit&)
        setfocus(Edit&)
        settext Edit&, »

    ElseIf clicked(b_1&)

        __edE& = 0
        settext txt_1&, "alphanum"
        setfocus(Edit&)
        settext Edit&, »

    ElseIf clicked(b_2&)

        __edE& = 1
        settext txt_1&, "         num"
        setfocus(Edit&)
        settext Edit&, »

    ElseIf clicked(b_3&)

        __edE& = 2
        settext txt_1&, "alpha"
        setfocus(Edit&)
        settext Edit&, »

    EndIf

    Edit_EingabeAuswertung

Endwhile
 
28.04.2016  ▲
 



répondre


Topictitle, max. 100 marque.
 

Systemprofile:

ne...aucune Systemprofil angelegt. [anlegen]

XProfan:

 Posting  Font  Smilies  ▼ 

s'il te plaît s'inscrire um une Beitrag trop verfassen.
 

Options du sujet

Unreaded
abonner
La liste de voeux
Notes
guests
Effacer
Permanent
Done

7.447 Views

Untitledvor 0 min.
H.Brill13.11.2022
Walter30.03.2019
Ernst10.04.2017
rquindt18.11.2016
plus...

Themeninformationen

cet Thema hat 4 participant:

Ernst (4x)
iF (1x)
RudiB. (1x)
funkheld (1x)


Admins  |  AGB  |  Applications  |  Auteurs  |  Chat  |  protection des données  |  Télécharger  |  Entrance  |  Aider  |  Merchantportal  |  Empreinte  |  Mart  |  Interfaces  |  SDK  |  Services  |  Jeux  |  cherche  |  Support

un projet aller XProfaner, qui il y a!


Mon XProfan
Privé Nouvelles
Eigenes Ablageforum
Sujets-La liste de voeux
Eigene Posts
Eigene Sujets
Zwischenablage
Annuler
 Deutsch English Français Español Italia
Traductions

protection des données


Wir verwenden Cookies seulement comme Session-Cookies à cause de qui technischen Notwendigkeit et chez uns gibt es aucun Cookies de Drittanbietern.

si du ici sur unsere Webseite klickst ou bien navigierst, stimmst du unserer Erfassung de Informationen dans unseren Cookies sur XProfan.Net trop.

Weitere Informationen trop unseren Cookies et en supplément, comment du qui Kontrolle par-dessus behältst, findest du dans unserer nachfolgenden Datenschutzerklärung.

d'accordDatenschutzerklärung
je voudrais keinen Cookie