[R] Une fonction remplacer lettre par lettre

[timano]

Bonjour ,
j'ai mon clavier français - anglais , parfois je me trompe et avant de changer la langue j'écris mon message ...


Ex : je suis en mode anglais , j'ai oublié de changer la langue
et je voudrais écrire "azerty" mais au lieu d'avoir "azerty" j'aurai "qwerty"


alors mon scripte dois
1 - lire la chaine de caractère entrer lettre par lettre donc j'utilise

Code : Tout sélectionner

 $a = StringSplit($Input2)

2 - une fonction remplacer ou j'ai un probléme

Code : Tout sélectionner

func remplacer()

    
    If $a[1] = String("a") Then
        $b = String("x")
EndIf
            $a = StringSplit($Input2)
    If $a[2] = String("b") Then
        $b = $b&String("y")
EndIf

        EndFunc
 

j'ai ici un exemple mais je n'arrive pas à avoir les résultats attendus .

Donc merci d'avoir m'aider ,,

Amicalement.

[moi]

sur le forum il ya un un exemple de prog qui traduit azerty vers qwerty
regarde si c@est ce que tu cherche

[timano]

Oui j'ai trouvé

http://autoitscript.fr/forum/viewtopic.php?f=21&t=4688

mais étant donner que suis un débutant en autoit j'aimerais faire ce scripte par moi même en utilisant des test "if ... then ..."

et ce programme est difficile à comprendre les instructions ^^

[mikell]

ce programme est difficile à comprendre les instructions ^^

Pas vraiment... c'est pareil en fait
Il y a bien des If-Then mais au lieu de mettre un If à chaque fois, tous les caractères sont inscrits dans un tableau et testés avec les If dans des boucles For (ça optimise le script)

[timano]

me voila encore

j'ai réussi à faire le scripte
mais il reste quelques petits problèmes dont :

- le programme ne fait qu'une seul opération c'est à dire qu'il remplace une seul fois
comme vous voyer ici



la première fenêtre tout est bon
mais quand j'efface la première entrer "aze" et je met "rty" puis je clic sur bouton1
il me donne un 0 ,
j'ai essayé de régler ce problème avec ce code à la fin des fonctions

Code : Tout sélectionner

$Res2 = $Res
$Res = String("")
$j = 1
$i = 1
$Char = String("")
 

mais j'ai toujours ce probleme

voici la source

► Afficher le texte

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>

$Form1 = GUICreate("My CrYprTeR ", 617, 148, 194, 170)
GUISetBkColor(0xA6CAF0)
$Input1 = GUICtrlCreateInput("Input1", 16, 23, 200, 100)
$Button1 = GUICtrlCreateButton("Button1", 232, 80, 153, 41, $WS_GROUP)
$Radio1 = GUICtrlCreateRadio("A to Q", 248, 24, 113, 17)
$Radio2 = GUICtrlCreateRadio("Q to A", 248, 48, 113, 17)
GUISetState(@SW_SHOW)

Local $Azerty = "azertyuiop"
Local $Qwerty = "qsdfghjklm"
Local $Char, $Res, $j, $i
Local $aAzerty = StringSplit($Azerty, "")
Local $aQwerty = StringSplit($Qwerty, "")
Local $m = 0



Func _atoq()
For $j = 1 To StringLen($Input1)
$Char = StringMid($Input1, $j, 1)
If StringInStr($Azerty, $Char, 1) Then
For $i = 1 To $aAzerty[0]
If $Char == $aAzerty[$i] Then
$Char = $aQwerty[$i]
ExitLoop
EndIf
Next
EndIf
$Res &= $Char
Next

EndFunc


Func _qtoa()

For $j = 1 To StringLen($Input1)
$Char = StringMid($Input1, $j, 1)
If StringInStr($Qwerty, $Char, 1) Then
For $i = 1 To $aQwerty[0]
If $Char == $aQwerty[$i] Then
$Char = $aAzerty[$i]
ExitLoop
EndIf
Next
EndIf
$Res &= $Char
Next

EndFunc

Func _test()

if $m = 1 then
call("_atoq")
ElseIf $m = 2 Then
Call("_qtoa")
Else
SetError(1)
EndIf


EndFunc



While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Radio1
$m = 1

Case $Radio2
$m = 2

Case $Button1
$Input1=GUICtrlRead($Input1)
Call("_test")
$Input2 = GUICtrlCreateInput($Res, 399, 23, 200, 100)


EndSwitch
WEnd

et merci d'avoir m'aider

[moi]

dis. pourquoi utilser call pour appeler les fonction

► Afficher le texte

Code : Tout sélectionner

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>

$Form1 = GUICreate("My CrYprTeR ", 617, 148, 194, 170)
GUISetBkColor(0xA6CAF0)
$Input1 = GUICtrlCreateInput("Input1", 16, 23, 200, 100)
$Button1 = GUICtrlCreateButton("Button1", 232, 80, 153, 41, $WS_GROUP)
$Radio1 = GUICtrlCreateRadio("A to Q", 248, 24, 113, 17)
$Radio2 = GUICtrlCreateRadio("Q to A", 248, 48, 113, 17)
GUISetState(@SW_SHOW)

Local $Azerty = "azertyuiop"
Local $Qwerty = "qsdfghjklm"
Local $Char, $Res, $j, $i
Local $aAzerty = StringSplit($Azerty, "")
Local $aQwerty = StringSplit($Qwerty, "")
Local $m = 0



Func _atoq()
For $j = 1 To StringLen($Input1)
$Char = StringMid($Input1, $j, 1)
If StringInStr($Azerty, $Char, 1) Then
For $i = 1 To $aAzerty[0]
If $Char == $aAzerty[$i] Then
$Char = $aQwerty[$i]
ExitLoop
EndIf
Next
EndIf
$Res &= $Char
Next

EndFunc


Func _qtoa()

For $j = 1 To StringLen($Input1)
$Char = StringMid($Input1, $j, 1)
If StringInStr($Qwerty, $Char, 1) Then
For $i = 1 To $aQwerty[0]
If $Char == $aQwerty[$i] Then
$Char = $aAzerty[$i]
ExitLoop
EndIf
Next
EndIf
$Res &= $Char
Next

EndFunc

Func _test()

if $m = 1 then
[color=#FF0000]_atoq()[/color]
ElseIf $m = 2 Then
[color=#FF0000]_qtoa()[/color]
Else
SetError(1)
EndIf


EndFunc



While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Radio1
$m = 1

Case $Radio2
$m = 2

Case $Button1
$Input1=GUICtrlRead($Input1)
[color=#FF0000]_test()[/color]
$Input2 = GUICtrlCreateInput($Res, 399, 23, 200, 100)


EndSwitch

ce que j'aı mıs en rouge remplace les call

[timano]

D'accord merci pour l'astuce ,, et pour le problème ?

[mikell]

2 choses

Code : Tout sélectionner

[color=#FF0000]$Input1[/color]=GUICtrlRead([color=#FF0000]$Input1[/color])

ça c'est pas bon, les 2 variables identiques, essaie $Input0=GUICtrlRead($Input1)

Ensuite faut réinitialiser ta variable de sortie

Code : Tout sélectionner

Func _atoq()
[color=#FF0000]$Res=""[/color]
For $j = 1 To StringLen($Input0)
...etc

[moi]

Code : Tout sélectionner

$Input1=GUICtrlRead($Input1)

je comprend pas pourquoi la var input dois se lire lui meme
$Input1 est un variable qui prends en charge un input pas une donnee
et pour le retour a la ligne utilise un edit pas un input
il faudrait mettre

Code : Tout sélectionner

$varrecup=GUICtrlRead($Input1)

edit
oops mikell ma pris de vitesse

[timano]

merci beaucoup pour votre aide , je vous aime