Discussion :

[Danyel]

Bonsoir,

Je cherche une fonction ou un algo qui me permette de melanger les lettres et/ou les chiffres d'une donnee texte.
Par exemple, la donnee.text originale = "1234567890" et apres melange, c'est la meme longueur mais avec un valeur "??????????" ou les ? correspondent à chacune des chiffres mais dans le desordre. (ex: 0573192468)

Merci pour votre aide.

[Kiboumz]

Salut,

Il y aurait plusieurs façon de procéder, en voici une que je viens d'écrire rapidement.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
 
    Private Function Melanger(ByVal tcChaine As String, ByVal tnRandPrecision As Integer) As String
        Dim lcTemp As String
        Dim lcChaineMelanger As New System.Text.StringBuilder
        Dim lnRand1 As Integer
        Dim lnRand2 As Integer
 
        lcChaineMelanger.Append(tcChaine)
        For liChar As Integer = 1 To tnRandPrecision
            ' Générer un nombre aléatoire pour la position dans la chaîne
            ' Entre 0 et la longueur de la chaîne - 1
            lnRand1 = (tcChaine.Length - 1) * Rnd()
            lnRand2 = (tcChaine.Length - 1) * Rnd()
 
            ' Permutation des chaînes
            lcTemp = lcChaineMelanger(lnRand1)
            lcChaineMelanger(lnRand1) = lcChaineMelanger(lnRand2)
            lcChaineMelanger(lnRand2) = lcTemp
        Next
 
        Return lcChaineMelanger.ToString()
    End Function

Ensuite tu appel la fonction comme suit :

ChaineMelanger = Melanger("123456", 10)

Plus le chiffre passé est élevé, plus la chaine est mélangé...

a+

[Danyel]

Merci Kiboumz
Ca à l'air d'etre correct, et je vais tester ton code, voire l'améliorer.

[Danyel]

J'ai corrige juste comme cela pour la generation aleatoire et ca roule nickel.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
Randomize()
lnRand1 = CInt((tcChaine.Length - 1) * Rnd())
Randomize()
lnRand2 = CInt((tcChaine.Length - 1) * Rnd())

[Pol63]

randomize n'est necessaire qu'une fois au debut du programme

sympa la solution d'inversement, moi j'aurais vidé une collection de caractère ...

[Danyel]

randomize n'est necessaire qu'une fois au debut du programme

C'est pour être vraiment sûr que ca randomize bien