[R] Utilisation de StringRegExReplace

[Adenadels]

Peux-t-on remplacer le code ci-dessous par une seule ligne en utilisant StringRegExReplace ? (j'avoue ne pas trop comprendre encore le fonctionnement des regex).
Mon tableau (au départ une ligne texte) fait plus de 40 caractères, donc la boucle se ferait 40 fois...

Le but étant de taper un texte, et de le transformer pour donner les touches équivalentes pour un clavier qwerty...
par exemple un mot de passe bios, alors que le clavier est encore en qwerty... un mot de passe azure donnerait qwure
(à taper sur son clavier azerty)

Code : Tout sélectionner

For $i = 1 To $Array[0][0]
   $Qwerty = StringReplace($Texte, $Array[$i][0], $Array[$i][1])
Next

Merci

[Tlem]

StringRegExpReplace comme sont nom l'indique au début, traite une chaine et non un tableau. Donc en la circonstance il ne vous amènera rien de plus car il faudra d'une manière ou d'une autre lire le tableau.

[Adenadels]

Comme je le disais, mal exprimé peut-être, je n'ai pas de tableau au départ, mais deux chaînes de caractère :
Soit
$Azerty = "AZERTYUIOP.....,;:..."
$Qwerty = "QWERTYUIOP....,Mm..."

Et le texte à modifier : $Texte = "quel texte a modifier"

Ce que je voudrais réalier, et je me suis rendu compte que mon script ne fonctionnerait pas (un A serait transformé en Q, mais par la suite le Q serait à nouveau transformé en A !!).

Et je me demandais si StringRegExReplace pouvait faire un truc genre
$Result = StringRegExReplace($Texte, $Azerty, $Qwerty)

$Result devrait être égal à "auel texte q ,odifier"

Remplacer dans la chaîne texte tous les éléments de $Azerty par ceux de $Qwerty (tous les A en Q, tous les Z en W etc..), et en une seule passe (pas de A en Q pour revenir de Q en A ensuite comme avec StringReplace et un tableau).

Donc, ma question à un spécialiste des expressions régulières (que je ne maîtrise pas du tout), est : est-ce que RegEx sait faire ça ?

Merci

[Tlem]

Comme je vous l'ai dit, StringRegExReplace() ne peut vous aider dans ce cas, car cette fonction remplace une expression et non de multiples expressions ...

Si on s'en tient aux lettres, voici une solution :

Code : Tout sélectionner

$String = "AzERTYUIOPm"

$Azerty = "aAzZqQmMwW,,"
$Qwerty = "qQwWaA;;zZmM"
$aAzerty = StringSplit($Azerty, "")
$aQwerty = StringSplit($Qwerty, "")

For $i = 1 To $aAzerty[0]
    $String = StringReplace($String, $aAzerty[$i], $aQwerty[$i], default, 1)
Next

MsgBox(0, '', $String)

Si vous en voulez plus, alors complétez avec les autres caractères.

[Adenadels]

Dans votre exemple, le résultat n'est pas bon... seule la lettre m est changée, les autres sont revenues à leur état initial, parce que changées deux fois... comme chez moi.
Il va falloir traiter le string d'entrée en tant que tableau également !!

Voilà ce que ça donne :

► Afficher le texte

Code : Tout sélectionner

#Include <Array.au3>

$String = "gaapzlaf"
$Azerty = "aAzZqQmMwW,,"
$Qwerty = "qQwWaA;;zZmM"
$aString = StringSplit($String, "")
$aAzerty = StringSplit($Azerty, "")
$aQwerty = StringSplit($Qwerty, "")
Dim $bString[$aString[0] + 1]

For $j = 1 TO $aString[0]
  For $i = 1 To $aAzerty[0]
    $bString[$j] = StringReplace($aString[$j], $aAzerty[$i], $aQwerty[$i], default, 1)
    [i]; on quitte la boucle au premier changement[/i]
    If $aString[$j] <> $bString[$j] Then ExitLoop
  Next
Next

MsgBox(0, '', _ArrayToString($bString, "", 1))

Dommage pour les expressions régulières (que je vais quand même tâcher d'étudier si je trouve un bon tuto).

Merci pour vos réponses

[Tlem]

Effectivement, j'avais oublié l'histoire du chien qui ce mord la queue ...
Donc me revoici avec une nouvelle version bien plus logique.

► Afficher le texte

Code : Tout sélectionner

; AZERTY To QWERTY
$String = "gaApzlaf"
$Res = ""

$Azerty = "aAzZqQmMwW,,"
$Qwerty = "qQwWaA;;zZmM"
$aAzerty = StringSplit($Azerty, "")
$aQwerty = StringSplit($Qwerty, "")

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

MsgBox(0, '', $Res)

En effet, il faut impérativement traiter la chaine caractère par caractère, ce qui évite de modifier une lettre qui l'à déjà été ...

[Adenadels]

Dans votre dernier exemple, qui évite l'usage des Array et le StringReplace, ce qui le rend certainemement plus rapide, il suffit de remplacer la ligne
If $Char = $aAzerty[$i] Then
par
If $Char == $aAzerty[$i] Then
Pour obtenir la différenciation majuscules/minuscules, et le tour est joué.

En plus, dans ce programme, il sufft de ne nommer que les caractères différents entre azerty et qwerty.

Merci pour toutes vos réponses et suggestions.

Et voilà le résultat : (édité pour tenir compte de la fonction de Tlem et la possibilité de traduire dans les deux sens)

► Afficher le texte

Code : Tout sélectionner

; includes
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <KeybConv.au3>

$StrAzerty = "aAmMqQwWzZ;:,.!/?%*$&'-@+=<>[]{}"
$StrQwerty = "qQ,?aAzZwWmM;:!&§(_'èù)é+=./^$¨£"

; construction du GUI (avec Koda)
$Fazqwerty = GUICreate("QwerZyty", 633, 385, 192, 114)
$Etraduire = GUICtrlCreateEdit("", 136, 128, 481, 89)
GUICtrlSetData(-1, "")
$Btraduire = GUICtrlCreateButton("Traduire", 136, 336, 158, 33)
GUICtrlSetFont(-1, 14, 800, 0, "MS Sans Serif")
$LTitre = GUICtrlCreateLabel("AZERTY <=> QWERTY", 8, 8, 617, 33, $SS_CENTER)
GUICtrlSetFont(-1, 14, 800, 0, "MS Sans Serif")
$Lsource = GUICtrlCreateLabel("Caractères Sources", 8, 48, 123, 20)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
$Lcible = GUICtrlCreateLabel("Caractères Cibles", 8, 88, 111, 20)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
$Isource = GUICtrlCreateInput($StrAzerty, 136, 48, 481, 24)
GUICtrlSetFont(-1, 12, 800, 0, "Lucida Console")
$Icible = GUICtrlCreateInput($StrQwerty, 136, 80, 481, 24)
GUICtrlSetFont(-1, 12, 800, 0, "Lucida Console")
$Ltrad = GUICtrlCreateLabel("Texte à traduire", 8, 128, 97, 20)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
$Ltraduit = GUICtrlCreateLabel("Texte traduit", 8, 232, 77, 20)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
$Etraduit = GUICtrlCreateEdit("", 136, 232, 481, 89) ; en lecture seule
GUICtrlSetData(-1, "")
$Bquitter = GUICtrlCreateButton("Quitter", 460, 336, 158, 33, $WS_GROUP)
GUICtrlSetFont(-1, 14, 800, 0, "MS Sans Serif")
$BEffacer = GUICtrlCreateButton("Effacer", 298, 336, 158, 33, $WS_GROUP)
GUICtrlSetFont(-1, 14, 800, 0, "MS Sans Serif")
GUISetState(@SW_SHOW)

; boucle du GUI
While 1
  $nMsg = GUIGetMsg()
  Switch $nMsg
    ; fermeture fenêtre
    Case $GUI_EVENT_CLOSE
      Exit
      ; boutton quitter
    Case $Bquitter
      Exit
      ; boutton effacer
    Case $BEffacer
      GUICtrlSetData($Etraduit, "")
      GUICtrlSetData($Etraduire, "")
      ; boutton traduire
    Case $Btraduire
      $Azerty = GUICtrlRead($Isource)
      $Qwerty = GUICtrlRead($Icible)
      Select
        Case GUICtrlRead($Etraduire) <> ""
          $Traduction = _KeybConvert(GUICtrlRead($Etraduire), 1, $Azerty, $Qwerty)
          GUICtrlSetData($Etraduit, $Traduction)
        Case GUICtrlRead($Etraduit) <> ""
          $Traduction = _KeybConvert(GUICtrlRead($Etraduit), 2, $Azerty, $Qwerty)
          GUICtrlSetData($Etraduire, $Traduction)
      EndSelect
  EndSwitch
WEnd

; Fin du programme
Exit

[Tlem]

Oui, je connais l'utilisation de '==', mais dans votre cas, il faut comparer tous les caractères 1 par 1 et le changer par l'équivalent dans l'autre 'table'.

Si vous voulez gagner quelques micro-secondes, vous pouvez vérifier que le caractère à contrôler se trouve dans la chaine $Azerty, auquel cas on fait le traitement.
Mais je doute que vous votre chaine à convertir soit très longue.

Edit : Voilà quelque chose qui va mieux.
http://www.autoitscript.fr/forum/viewto ... =21&t=4688