[R] InputBox : Remplacer la saisie d'information

[Loulou63]

Bonjour à tous,

Je souhaite savoir comment paramétrer l'inputBox pour que lorsque la personne saisie une information, elle est forcément remplacé par autre chose, le tout limité en taille de caractère.

Ex :
Quel est ton prénom?
Saisie de la personne : matt
Remplacé par mes soins par : théo.

Voila mon script qui ne marche pas

Code : Tout sélectionner

$var=InputBox("SAISIE DU PRENOM","Quel est le prénom?","","THEO4")

Alors que pour

Code : Tout sélectionner

$var=InputBox("SAISIE DU PRENOM","Quel est le prénom?","","T4")

chaque saisie sera remplacer par 4 "T"

C'est simplement un script pour m'amuser, rien de mal.

Merci pour votre aide.

Cordialement

[Jerome]

Coucou,

Code : Tout sélectionner

$text = "théo"

InputBox("SAISIE DU PRENOM","Quel est le prénom?","")
MsgBox("","SAISIE DU PRENOM", "Ton prénom est : " & $text)

?



Jérôme

[Loulou63]

Merci pour ta réponse.
Mais ce que je recherche, c'est la modification du texte lors de la saisie et non pas au résultat.

Un peu comme sur des sites à la con, ou tu tapes ton texte et tu as beau tapé n'importe quoi , tu as un autre texte qui apparait.

[moi]

Code : Tout sélectionner

$var=InputBox("SAISIE DU PRENOM","Quel est le prénom?","","T4")

sı tu lıs la docs le 4e parametre de ınputbox est password char se donc sı tu met en 4e "*" chaque caracters sera remplacer par * (par ex). T4 veut surement dıre chaque caracters = 4 T.

non?

[Loulou63]

Oui c'est exactement ça. Et je voulais savoir si on pouvait remplacé toute une saisie par une autre ou c'est limité que par un caractère.

[moi]

je pense que password char c'est char par char

[Loulou63]

Il existe pas une autre possibilité ou une autre fonction qui le permet?

[moi]

au lıeu d2utılıser une ınputbox tu creer une guı quı luı ressemble et tu purra surement le faıre... aprés je voıs pas

[Tlem]

Déjà vu.

Il faut intercepter la saisie clavier par une CallBack.
Utilisez les termes en gras pour votre recherche sur le forum.

[Loulou63]

Désolé de te demander ça, mais tu l'as déja vu où?

C'est le m^me type de demande ou c'est en utilisant une GUI?

[Tlem]

Humm, effectivement, pour la recherche, il fallait utiliser CallBack et GUIRegisterMsg

Pour me faire pardonner voici le lien : http://www.autoitscript.fr/forum/viewto ... 950#p37950
Dans cet exemple, je fait une vérification du nombre de caractère saisit, mais en réalité, vous pouvez imaginer n'importe quel traitement. ^^

Vous trouverez sur cet autre lien, une autre CallBack + des explications détaillées : http://www.autoitscript.fr/forum/viewto ... 267#p51267

[Loulou63]

Merci pour les informations. Je vais poursuivre le tutoriel que j'ai trouvé sur le net pour comprendre l'ensemble des fonctions. Mais ce qui est sur, c'est que je vais conserver les différents liens que tu m'as donné pour travailler dessus.

[mikell]

au lıeu d'utılıser une ınputbox tu creer une guı quı luı ressemble et tu purra surement le faıre...

+1
Un GUICtrlCreateInput serait infiniment plus facile et tout aussi spectaculaire

[Loulou63]

► Afficher le texte

au lıeu d'utılıser une ınputbox tu creer une guı quı luı ressemble et tu purra surement le faıre...

+1
Un GUICtrlCreateInput serait infiniment plus facile et tout aussi spectaculaire

Je n'ai pas encore les facilités d'écritures d'AutoIT. Ca parait simple pour vous mais moi nage .
Il faut que je m'habitue avec les termes et les options. Mais j'y arriverai!!

[mikell]

Mais non ! Regardez voilà une belle inputbox, bidouillable à volonté

► Afficher le texte

Code : Tout sélectionner

#include <GUIConstantsEx.au3>

GUICreate("Exemple", 200, 120)
GUICtrlCreateLabel("Entrez votre nom", 10, 10, 150, 20)
$input = GUICtrlCreateInput("", 10, 50, 180, 20)
GUICtrlSetState(-1, $GUI_FOCUS)
$btn1 = GUICtrlCreateButton("Ok", 30, 80, 60, 25)
$btn1 = GUICtrlCreateButton("Cancel", 110, 80, 60, 25)
GUISetState()

While 1
$msg = GUIGetMsg()
    Select
        Case $msg = $GUI_EVENT_CLOSE
            Exit
    EndSelect
WEnd

[Loulou63]

Merci pour l'exemple.

[moi]

apres je te conseılle de faıre une fonctıon _myınput car sı tu doıs utılıser dans d'autres programmes tu n'aura qua l'ınclude.

exemple:

Code : Tout sélectionner

func _myınput($tıtre , $text, $valeurfınal)
...
...
$var = guıctrlread($ınput)
return $var
end func
 

et tu l'apelleraıs comme ça :

Code : Tout sélectionner

$recup = _myınput("bla","bla", "ma valeur fınal")

les scrıpt seront plus court

[Tlem]

@Loulou63
Je viens d'éditer 4 de vos messages.
Si votre réponse est à la suite du message auquel vous répondez, il est inutile d'utiliser le bouton 'Citer'. Utilisez plutôt le bouton 'Répondre'.

[mikell]

je voulais savoir si on pouvait remplacé toute une saisie par une autre

Un petit essai marrant qui correspond peut-être à ce que vous voulez (l'input est à tester plusieurs fois de suite) :

► Afficher le texte

Code : Tout sélectionner

#include <GUIConstantsEx.au3>

GUICreate("Exemple", 200, 120)
GUICtrlCreateLabel("Entrez votre nom", 10, 10, 150, 20)
$input = GUICtrlCreateInput("", 10, 50, 180, 20)
GUICtrlSetState(-1, $GUI_FOCUS)
$btn1 = GUICtrlCreateButton("Ok", 30, 80, 60, 25)
$btn2 = GUICtrlCreateButton("Cancel", 110, 80, 60, 25)
GUISetState()

Global $old = "", $string[6] = [5,"Alfred","Georges","Marcel", "Robert", "Lucien"]
$n = 1

While 1
_Blah()
$msg = GUIGetMsg()
    Switch $msg
        Case $GUI_EVENT_CLOSE, $btn2
            Exit
        Case $btn1
            If StringLen(GuiCtrlRead($input))>3 Then 
        Msgbox(0,"", "Bonjour " & $old) 
        GuiCtrlSetData($input, "")
            EndIf
    EndSwitch
WEnd

Func _Blah()
$txt = GuiCtrlRead($input)
If $old<>$txt Then 
    If StringLen($txt)>3 OR StringInStr($txt, $old) Then 
    GuiCtrlSetData($input, $string[$n])
    $old = GuiCtrlRead($input)
    EndIf
    If $n>$string[0] Then $n = 1
EndIf
If $txt="" Then $n += 1  
EndFunc