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

[Cybercope]

Bonjour,

Tout d' abord je tiens à m' excuser pour mon temps de réponse,

Je vous remercie beaucoup de vos réponses qui m' on beaucoup aidé , je met mon code solution pour ceux qui aurait le même problème :

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
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
 
Public Class Form3
    Dim dicochange As New Dictionary(Of Char, Char)
    Dim translated As String = ""
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
 
        dicochange.Add("a", "@")
        dicochange.Add("b", "8")
        dicochange.Add("c", "©")
        dicochange.Add("d", "|)")
        dicochange.Add("e", "€")
        dicochange.Add("f", "£")
        dicochange.Add("g", "G")
        dicochange.Add("h", "|-|")
        dicochange.Add("i", "!")
        dicochange.Add("j", "J")
        dicochange.Add("k", "|<")
        dicochange.Add("l", "1")
        dicochange.Add("m", "|V|")
        dicochange.Add("n", "N")
        dicochange.Add("o", "0")
        dicochange.Add("p", "|°")
        dicochange.Add("q", "Q")
        dicochange.Add("r", "|2")
        dicochange.Add("s", "$")
        dicochange.Add("t", "T")
        dicochange.Add("u", "µ")
        dicochange.Add("v", "V")
        dicochange.Add("w", "VV")
        dicochange.Add("x", "><")
        dicochange.Add("y", "Ψ")
        dicochange.Add("z", "Z")
        dicochange.Add(" ", " ")
        For Each elt As Char In TextBox1.Text
            translated += dicochange(elt)
        Next
            TextBox2.Text = translated
    End Sub
End Class

Cepandant, j' ai encore un petit probleme :
je ne peut pas mettre de retour à la ligne.
J' ai essayer de rajouter

Code :

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

dicochange.Add("{ENTRER} ", "{ENTRER}")

et même

Code :

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

dicochange.Add(Chr(13),Chr(13))

mais ca ne marche pas

Merci d' avance

Ind6x

[Sehnsucht]

Déjà tu devrais initialiser ton dictionnaire en dehors de ton bouton.Click sinon à chaque clic tu vas tenter de rajouter les mêmes machins dedans encore et encore (à mon avis ça plantera surtout parce que tu essayeras d'ajouter une clef déjà existante )
Sinon la logique à utiliser serait du type (en "pseudo-code" à toi de chercher comment faire )

Code text :

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

1
2
3
4
5
6
7
Pour chaque caractere dans source
    si le dico a cette clef
        ajouter valeur correspondante à la sortie
    sinon
        ajouter le caractere tel quel à la sortie
    fin si
fin pour

[Cybercope]

Bonjour, je vois a peu près ce que vous voulez dire mais où puis-je déclarer mon dico autrement que dans un Sub ?

J' avouerai que je suis un peu perdu

[Sehnsucht]

Dans ta/ton Structure/Class/Module

[Cybercope]

Oui mais si je met :

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
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
 
Public Class Form3
    Dim dicochange1 As New Dictionary(Of Char, Char)
    Dim translated As String = ""
 
        dicochange1.Add("a", "@")
        dicochange1.Add("b", "8")
        dicochange1.Add("c", "©")
        dicochange1.Add("d", "|)")
        dicochange1.Add("e", "€")
        dicochange1.Add("f", "£")
        dicochange1.Add("g", "G")
        dicochange1.Add("h", "|-|")
        dicochange1.Add("i", "!")
        dicochange1.Add("j", "J")
        dicochange1.Add("k", "|<")
        dicochange1.Add("l", "1")
        dicochange1.Add("m", "|V|")
        dicochange1.Add("n", "N")
        dicochange1.Add("o", "0")
        dicochange1.Add("p", "|°")
        dicochange1.Add("q", "Q")
        dicochange1.Add("r", "|2")
        dicochange1.Add("s", "$")
        dicochange1.Add("t", "T")
        dicochange1.Add("u", "µ")
        dicochange1.Add("v", "V")
        dicochange1.Add("w", "VV")
        dicochange1.Add("x", "><")
        dicochange1.Add("y", "Ψ")
        dicochange1.Add("z", "Z")
        dicochange1.Add(" ", " ")
        dicochange1.Add("!", "!")
        dicochange1.Add("?", "?")
        dicochange1.Add(".", ".")
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
 
        Try
            For Each elt As Char In TextBox1.Text
                translated += dicochange1(elt)
            Next
            TextBox2.Text = translated
        Catch ex As Exception
            MsgBox("Echec de translation", MsgBoxStyle.Information)
        End Try
    End Sub

Ca ne marche pas car il me souligne comme quoi la place des dicochange1 n' est pas ici !!

[Sehnsucht]

Reprenons ;
Ton erreur survient parce que tu as des instructions en dehors d'une méthode. La seule chose qu'on peut mettre au niveau de la classe (à part les méthodes bien entendu) ce sont des déclarations. À noter que ces déclarations peuvent être des initialisations si elles se font en même temps que la déclaration.

Code :

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

1
2
3
4
5
Class UneClasse
    Dim unChamp As UnType ' ceci est une déclaration
    Dim unChamp As New UnType ' ceci est une déclaration avec initialisation (par appel du constructeur)
    Dim unChamp As UnType = quelqueChose ' ceci est une autre déclaration avec initialisation (par assignation)
End Class

Là ce qui pose problème dans ton code ce sont les Add qui se baladent en dehors d'une méthode.
J'avais bien dit plus haut :

Déjà tu devrais initialiser ton dictionnaire en dehors de ton bouton.Click

Je n'avais jamais mentionné explicitement de faire ça dans la classe (j'ai répondu cela quand tu as demandé où déclarer ton dico) ; mais je comprends maintenant que pour quelqu'un qui débute la distinction n'était pas forcément aussi claire

Donc de deux choses l'une soit tu sais initialiser ton dictionnaire dès la déclaration avec toutes tes données (c'est faisable mais je doute que tu connaisses ) soit il te faut juste le déclarer (et l'initialisation avec le constructeur) au niveau de la classe puis le remplir dans une méthode où ça ne sera fait qu'une seule fois (parce que le problème de le faire dans le Click c'est juste ça ; que ce sera refait à chaque click)
Une telle méthode est par exemple le constructeur de ton formulaire (ou à défaut, le Form_Load que les débutants aiment beaucoup )

Une autre façon de faire serait de déclarer ton dico directement dans le Click en le recréant à chaque fois (mais c'est un peu idiot de toujours recréer le même dico à chaque click qui sera détruit en fin de méthode)

[Cybercope]

Bonjour,

Je comprend un peu mieux mais j' ai encore du mal, je n' ai jamais utiliser de dictionnaire.

Grâce à ce cours, je comprend mieux !

du coup si j' utilise :

Code :

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

1
2
3
 
Dim Dictinary1 = New Dictionary(Of Char, Char) From
    {{"a", "@"}, {"b", "8"}}

J' imagine que c' est de cette façon dont vous parliez ?
Et après on utilise une instruction conditionnelle :

Code :

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

1
2
3
4
5
6
 
If Not Dic.ContainsKey("a") Then
 
         Dic.Add("a", "@")
 
    End If

Merci

[Sehnsucht]

Euh oui pour la première partie, concernant l'initialisation ; mais non (enfin pas exactement) pour le reste, utiliser une instruction conditionnelle à un moment, oui ça ça semble judicieux ; mais pas pour ajouter encore une fois tes couples/clefs valeurs tu l'as initialisé ton dico une fois remplis t'as plus besoin d'y ajouter (ou d'y enlever a priori) quoi que ce soit

[Cybercope]

Donc en gros je supprime tout mes dico.add("a","@") etc...

et je met dans ma zone de déclaration :

Code :

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

1
2
3
 
Dim Dictinary1 = New Dictionary(Of Char, Char) From
    {{"a", "@"}, {"b", "8"}}

Merci