[R] Permutation de lettres

[autocoder]

Voila salut. Je suis nouveau et peut êtres que je poste.pas au bon endroit.

Mais je suis a la recherche d'idée de script (une fonction) qui me permettrait de permuter la place des lettres d'un mot au préalable enregistré dans une variable et l'afficher dans un control (label par exemple).

Merci

[sozary]

Mais, par exemple, tu entre l’ordre de permutation en paramètre de ta fonction? Ou elle change les lettre de place d'un certain rang?

[autocoder]

Les lettrz s change de place au hasard. Par exemple : banane peut devenir enabna.

[sozary]

Alors moi j'ai fait comme ça:

► Afficher le texte

Code : Tout sélectionner

#include <array.au3>
$chaine="banane"

MsgBox(64,"",$chaine&" permuté: "&_StringPermute($chaine))


Func _StringPermute($string)
    $mot=_StringToArray($string)
    $newstring=""
    While UBound($mot)>=1; Je génére aléatoirement un nombre entre 0 et la taille du tableau, pour prendre un caractère random a la fois,
        ; et diminue la longueur du tableau à chaque fois.
        Local $rang=Random(0,UBound($mot)-1,1)
        $newstring&=$mot[$rang]
        _ArrayDelete($mot,$rang)
        ;_ArrayDisplay($mot)
    WEnd
    Return $newstring
EndFunc

Func _StringToArray($string); fonction destinée à classer les caractères du mot dans un tableau
    Local $Var[StringLen($string)]
    For $i=0 To StringLen($string)-1
        $Var[$i]=StringTrimLeft(StringTrimRight($chaine,(StringLen($string)-1)-$i),$i); Y a surement BEAUCOUP plus simple!
    Next
    ;_ArrayDisplay($Var)
    Return $Var
EndFunc


 

Je pense néanmoins qu'il y a beaucoup plus simple! Après si tu as compris comment procéder, tu peux faire comme bon te semble!

[jguinch]

Sujet déplacé dans Aide générale.
@autocoder : merci de modifier le titre du sujet afin qu'il respecte les règles de présentation d'un message.

Sinon, il existe une fonction qui est _ArrayShuffle qui permet de mélanger les éléments d'un tableau...

[sozary]

Ah! Merci, je connaissais pas !

[mikell]

Oui mais pas besoin d'array

Code : Tout sélectionner

$mot = "banane"
MsgBox(64,"", $mot & " permuté: " & _StringPermute($mot) )

Func _StringPermute($string)
  Local $new = ""
  While $string <> ""
     $lettre = StringMid($string, Random(0, StringLen($string)-1, 1)+1, 1)
     $new &= $lettre
     $string = StringReplace($string, $lettre, "", 1)
  Wend
  Return $new
EndFunc
 

[autocoder]

Merci beaucoup vraiment...

[jguinch]

@Mikell : rââ, j'avais préparé un peu la même chose... Je m'étais dis que je posterais le code si le titre était modifié...
@autocoder, la consigne reste valable : merci de modifier le titre en [..] pour un nouveau sujet et [R] si le sujet est résolu.

► Afficher le texte

Code : Tout sélectionner

ConsoleWrite( _StringShuffle("Salut c'est moi !") )
 
Func _StringShuffle($sString)
    For $i = StringLen($sString) - 1 To 0 Step -1
        $sString = StringRegExpReplace($sString, "(?s)(.{" & Random(0, $i, 1) & "})(.)(.*)", "$1$3$2")
    Next
    Return $sString
EndFunc
 

[sozary]

Ah! Bah moi je manipule pas encore assez bien ces fonctions pour les employer !