Bonjour
je n'ai pas calculer le temps d'execution
Private Function FindOccurence() As Dictionary(Of String, Integer)
Dim str1 As String
Dim vect() As String
str1 = "Je découvre le vb.net après avoir passé quelques années à écrire du"
str1 &= "code en vba, c'est donc tout naturellement que j'ai recherché un tuto sur developpez.net. Et je suis tombé sur le tien. Je n'ai pas encore tout lu en détail, mais j'ai parcouru l'ensemble du document. Wow ! quel travail de titan ! Ca semble très complet, j'ai bien l'impression qu'il est parti pour être mon nouveau livre de chevet !"
str1 &= "Merci beaucoup pour tout ce travail et de le partager ainsi ! Il mériterait d'être édité en vrai livre !"
str1 &= "code en vba, c'est donc tout naturellement que j'ai recherché un tuto sur developpez.net. Et je suis tombé sur le tien. Je n'ai pas encore tout lu en détail, mais j'ai parcouru l'ensemble du document. Wow ! quel travail de titan ! Ca semble très complet, j'ai bien l'impression qu'il est parti pour être mon nouveau livre de chevet !"
str1 &= "code en vba, c'est donc tout naturellement que j'ai recherché un tuto sur developpez.net. Et je suis tombé sur le tien. Je n'ai pas encore tout lu en détail, mais j'ai parcouru l'ensemble du document. Wow ! quel travail de titan ! Ca semble très complet, j'ai bien l'impression qu'il est parti pour être mon nouveau livre de chevet !"
str1 &= "Je découvre le vb.net après avoir passé quelques années à écrire du"
str1 &= "code en vba, c'est donc tout naturellement que j'ai recherché un tuto sur developpez.net. Et je suis tombé sur le tien. Je n'ai pas encore tout lu en détail, mais j'ai parcouru l'ensemble du document. Wow ! quel travail de titan ! Ca semble très complet, j'ai bien l'impression qu'il est parti pour être mon nouveau livre de chevet !"
str1 &= "Merci beaucoup pour tout ce travail et de le partager ainsi ! Il mériterait d'être édité en vrai livre !"
str1 &= "code en vba, c'est donc tout naturellement que j'ai recherché un tuto sur developpez.net. Et je suis tombé sur le tien. Je n'ai pas encore tout lu en détail, mais j'ai parcouru l'ensemble du document. Wow ! quel travail de titan ! Ca semble très complet, j'ai bien l'impression qu'il est parti pour être mon nouveau livre de chevet !"
str1 &= "code en vba, c'est donc tout naturellement que j'ai recherché un tuto sur developpez.net. Et je suis tombé sur le tien. Je n'ai pas encore tout lu en détail, mais j'ai parcouru l'ensemble du document. Wow ! quel travail de titan ! Ca semble très complet, j'ai bien l'impression qu'il est parti pour être mon nouveau livre de chevet !"
str1 &= "Je découvre le vb.net après avoir passé quelques années à écrire du"
str1 &= "code en vba, c'est donc tout naturellement que j'ai recherché un tuto sur developpez.net. Et je suis tombé sur le tien. Je n'ai pas encore tout lu en détail, mais j'ai parcouru l'ensemble du document. Wow ! quel travail de titan ! Ca semble très complet, j'ai bien l'impression qu'il est parti pour être mon nouveau livre de chevet !"
str1 &= "Merci beaucoup pour tout ce travail et de le partager ainsi ! Il mériterait d'être édité en vrai livre !"
str1 &= "code en vba, c'est donc tout naturellement que j'ai recherché un tuto sur developpez.net. Et je suis tombé sur le tien. Je n'ai pas encore tout lu en détail, mais j'ai parcouru l'ensemble du document. Wow ! quel travail de titan ! Ca semble très complet, j'ai bien l'impression qu'il est parti pour être mon nouveau livre de chevet !"
str1 &= "code en vba, c'est donc tout naturellement que j'ai recherché un tuto sur developpez.net. Et je suis tombé sur le tien. Je n'ai pas encore tout lu en détail, mais j'ai parcouru l'ensemble du document. Wow ! quel travail de titan ! Ca semble très complet, j'ai bien l'impression qu'il est parti pour être mon nouveau livre de chevet !"
For i = 0 To 3
str1 &= str1
Next
vect = str1.Split(New Char() {}, StringSplitOptions.RemoveEmptyEntries)
Dim list1 As New List(Of String)
Dim dic1 As New Dictionary(Of String, Integer)
list1 = vect.ToList
list1.Sort()
Dim count As Integer
Dim word As String = String.Empty
For Each item In list1
If item <> word Then
If word <> String.Empty Then
dic1.Add(word, count)
End If
word = item
count = 0
End If
count += 1
Next
Return dic1
End Function