trouver le mot le plus fréquent

Version imprimable

28/03/2011, 12h30
Messi007

trouver le mot le plus fréquent

Bonjour
Je cherche comment trouver un mot plus fréquent dans une chaine taper dans un ritchtextbox en vb 2010 ?

Auriez vous une piste a me donner ?

Merci de m'aider.
28/03/2011, 12h36
Gurdil le nain

Bonjour,

c'est à dire ? Tu veux savoir si ta chaine contient une séquence de caractère ?
28/03/2011, 12h39
Messi007

bonjour,
voila un exemple
pour un texte taper dans un ritchtextebox:
"java vb java sql java"
le mot le plus fréquent est :"java"
28/03/2011, 12h52
Gurdil le nain

Il ne me semble pas qu'il existe de fonction déjà faite pour ça (sinon je la veux aussi :mrgreen:).

Tu peux regarder du côté de la méthode Contains de la classe String ou bien la fonction Find de la classe RichTextBox.

Après, il faudra jouer avec la chaine de caractère pour retrouver le nombre d'occurrence.
28/03/2011, 12h56
Messi007

merci bien pour votre attention
j'ai commencer a faire trier les mots où par exemple :
pour un texte " b a c a e a"
j'obtient : "a a a b c e"
et là je cherche comment déterminer que "a" est la plus fréquente

En C#:

Code:

1
2
3
var s = "java vb java sql java";
var words = s.Split(' ');
var occurences = words.GroupBy(i => i, (key,elems) => new { Key = key, Count=elems.Count() });

Citation:
Envoyé par Nathanael Marchand
En C#:
Code:

1 2 3 var s = "java vb java sql java"; var words = s.Split(' '); var occurences = words.GroupBy(i => i, (key,elems) => new { Key = key, Count=elems.Count() });
merci monsieur pour votre reponse mais je cherche le code en vb2010
:ccool:

28/03/2011, 13h19
Nathanael Marchand

Citation:

Envoyé par Messi007

merci monsieur pour votre reponse mais je cherche le code en vb2010
:ccool:

Ca se convertit facilement. Il y'a des liens dans la faq, le forum et sur google pour ca :)
28/03/2011, 13h46
Gurdil le nain

Ouais, le split c'est bien mais encore faut il que ta chaîne soit formatée toujours de la même façon (ici séparation des mots par des espaces).
28/03/2011, 13h56
Nathanael Marchand

Citation:

Envoyé par Gurdil le nain

Ouais, le split c'est bien mais encore faut il que ta chaîne soit formatée toujours de la même façon (ici séparation des mots par des espaces).

On peut mettre toute une batterie de délimiteur ou passer par une regex.

moi comme idée j'ai commencé de trier l'ensemble des mots mais je cherche a compter le nombre d’occurrence de chaque mot .

Code:

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
 Function motplusfreq()
        Dim taille, idmot, m, x, i, j As Integer
        Dim TabMot(), mot, ch As String
        taille = RTTEXT1.Text.Split(" ").Length
        TabMot = RTTEXT1.Text.Split(" ")
        j = 0
        x = 0
        m = 0
        Dim verif As Boolean
        Do
            verif = True
            For i = 0 To taille - 2
                If TabMot(i) > TabMot(i + 1) Then
                    mot = TabMot(i)
                    TabMot(i) = TabMot(i + 1)
                    TabMot(i + 1) = mot
                    verif = False
                End If
            Next
 
        Loop Until (verif = True)
        x = 0
        m = 0
        j = 0
        mot = ""
        ch = ""
        While (j < taille - 3)
            For i = 0 To taille - 1
                If ch(i) = ch(j) Then
                    x = x + 1
                    idmot = i
                End If
            Next
            If (x > m) Then
                x = m
                mot = TabMot(idmot)
            End If
            x = 0
            j = j + 1
        End While
        motplusfreq = mot
    End Function

Heureusement que t'écoutes ce que je dis :\

Code:

1
2
3
Dim s = "java vb java sql java"
Dim words = s.Split(" "C)
Dim occurences = words.GroupBy(Function(i) i, Function(key, elems) New With { Key .Key = key, Key .Count = elems.Count() })