Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Texte Anagramme

Magic_Doctor

XLDnaute Barbatruc
Renvoyer, dans un ordre aléatoire, les lettres d'une chaîne de caractères.
VB:
Function Anagramme(cadena As String) As String
'Renvoie dans un ordre aléatoire les lettres d'une chaîne de caractères
'- cadena : une chaîne de caractères
'Ex : Romina --> mianoR

Dim i%, x%, Temp$

  Application.Volatile

  Anagramme = cadena
  Randomize
  For i = 1 To Len(cadena)
    x = Int(Rnd() * Len(cadena)) + 1
    Temp = Mid(Anagramme, x, 1)
    Anagramme = Left(Anagramme, x - 1) & Mid(Anagramme, i, 1) & Mid(Anagramme, x + 1, 999)
    Anagramme = Left(Anagramme, i - 1) & Temp & Mid(Anagramme, i + 1, 999)
  Next

End Function
 

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…