Discussion :

[Cybercope]

Bonjour,

Je développe actuellement une application de traduction en Leet Speak.

Le problème c' est que je n' arrive pas à trouver le code a utiliser pour qu' il me remplace la chaine de caractères saisi par l utilisateur dans une textBox.

Par exemple l' utilisateur tape "Bonjour" dans la textbox et ce que je voudrai c' est qu' il affiche dans une autre textbox "8@|V;0|_||2" , ce qui veut dire bonjour en leet speak. En gros tout les a deviennent @, les b deviennent 8...

J' ai pensé a utiliser replace mais s' il faut que je l' écrive pour tout l' alphabet...

Peut faut-il utiliser une boucle ?

Merci d' avance

Ind6x

[jopopmk]

Salut,

il te faudra quoi qu'il arrive faire un rapprochement des alphabets sur toutes les lettres.
Ce que tu peux faire c'est :
- créer un dictionnaire (indexer sur le char normal, majuscule ou minuscule, value sur l'équivalent leet),
- mettre l'entrée toute en majuscule ou tout en minuscule (selon ton dictionnaire),
- parcourir l'entrée lettre par lettre et pour chacune écrire l'équivalent leet trouvé dans ton dico dans une chaine de sortie.

Bon dev.

[Cybercope]

Slt,

Tout d' abord je vous remercie pour votre réponse.

Cependant je suis suis un peu perdu dans le code à utiliser, je pense à créer deux chaines de caractères du style :

Code :

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

1
2
3
4
5
6
 
Dim Chaine1() As String
Dim Chaine2() As String
 
Chaine1 = {"a","b","c","d","e","f"...}
Chaine2 = {"@","8"...}

Ind6x

[jopopmk]

Pour le dico tu peux faire un truc du genre :

Code :

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

1
2
3
4
5
public Dictionary<char, string> alpha2leet = new Dictionary<char, string>() {
	{'a', "4"},
	{'b', "8"}
	// etc ...
};

Pour la transfo :

Code :

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

1
2
3
4
string src = "abbabbaaab";
string dest = "";
foreach (char cur in src)
	dest += alpha2leet[cur];

[Homerzz]

Une autre solution que je trouve plus simple :

Code :

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

1
2
3
4
5
6
7
8
9
 
        dim dicochange As New Dictionary(Of Char, Char)
        dicochange.Add("a", "@")
        dicochange.Add("b", "8")
 
        Dim translated As String = ""
        For Each elt As Char In Tbleet.Text
            translated += dicochange(elt)
        Next

Tu déclares ton dico avec la traduction de chaque lettre. Et ensuite avec un For Each tu parcours chaque caratères entré dans la textbox et on ajoute sa correspondance dans "translated". A la sortie de la boucle translated contient ta traduction.

En gros la même chose que jopopmk mais en vb.net ^^

[jopopmk]

Je fais pas toujours attention au langage utilisé par le demandeur, toutes mes confuses