[..] Lire une zone de texte et inverser les lettres

[xdavidx]

Bonjour,
J'aimerai bien lire une zone de texte dans une fenêtre et les recopier en inversant les lettres et chiffres; je m'explique
j'ai cette combinaison : 76E8910A12 , je dois avoir au final la première lettre + la dernière ainsi de suite ... [ 7261EA8091 ] et recopier mon résultat dans une autre zone de saisie.
Merci a vous.

[TommyDDR]

Pour la lecture de texte vous avez moultes sujet qui en parlent.
Renverser les lettre d'une chaine de caractère, vous avez la réponse dans l'aide AutoIt, appuyez sur F1 et cherchez s'il vous plait.

[jguinch]

Un truc comme ça ?

► Afficher le texte

Code : Tout sélectionner

$sString = "76E8910A12A"
$sStringOut = ""

For $i = 1 To Floor(StringLen($sString) / 2)
    $sStringOut &= StringMid($sString, $i, 1) & StringMid($sString, StringLen($sString) - $i + 1, 1)
Next
If Mod(StringLen($sString), 2) Then $sStringOut &= StringMid($sString, Ceiling (StringLen($sString) / 2 ), 1)

MsgBox(0, "", $sString & " => " & $sStringOut)

 

Edit:
Mais bien sûr, comme dit Tommy, il faut éplucher la doc et essayer de comprendre comment procéder.
Dans mon cas, j'utilise une boucle qui va de 1 jusqu'à 5 (la moitié de la longueur de la chaîne). J'extrais ensuite les lettre 1 et 10, puis 2 et 9..

[mikell]

Et si la longueur est un chiffre impair ?

Code : Tout sélectionner

$sString = "76E89510A12"
$sStringOut = ""

$tmp = $sString
While $tmp <> ""
    $sStringOut &= StringLeft($tmp, 1) & ((StringLen($tmp) = 1) ? "" : StringRight($tmp, 1))
    $tmp = StringTrimLeft(StringTrimRight($tmp, 1), 1)
Wend
MsgBox(0, "", $sString & " => =" & $sStringOut & "=")
 

@Tommy
Vu le bug de jguinch le bazar n'était pas d'une évidence folle ^^

[jguinch]

[mauvaise foi=ON]mikell, de quel bug tu parles ? [mauvaise foi=OFF]
A vrai dire, j'y avais pensé...

[mikell]

Mais de celui-là évidemment

Code : Tout sélectionner

$sString = "76E89510A12"
$sStringOut = ""

For $i = 1 To StringLen($sString) / 2
    $sStringOut &= StringMid($sString, $i, 1) & StringMid($sString, StringLen($sString) - $i + 1, 1)
Next
MsgBox(0, "", $sString & " => " & $sStringOut)

[Tlem]

Bonsoir.
Comme sur ce forum la pratique n'est pas encore courante, je me permet juste de préciser que dans le code de mikell, il est fait usage de l'opérateur ternaire.

pour plus d'explications, c'est par ici : http://www.autoitscript.fr/wiki/Operateur_Ternaire

[mikell]

Exact Thierry, désolé j'ai oublié de préciser : Autoit 3.3.12.0+ (la dernière release)