Oui
en m'inspirant de ton algo, j'ai pensé a ça (en VB.net):
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23 | For hg As Integer = 1 To 10 'pour voir les 10 premiers
Dim arr(99) As Integer 'vu qu'on est sur deux chiffres max, pas besoin d'aller plus haut^^
For n As Integer = 10 To 99 Step +1
arr(n) = CompterMot(i, n)
Next
Dim max As Integer = 0
Dim nb As Integer = 0
For n As Integer = 10 To 99 Step +1
If nb < arr(n) Then
nb = arr(n)
max = n
End If
Next
i = Replace(i, max, "")
t = Replace(t, max, le(hg - 1))
TextBox1.Text = TextBox1.Text & max & " : " & nb & vbNewLine
Next
|
La fonction CompterMot retourne le nombre d'occurence d'une chaine dans un texte :
| Public Function CompterMot(strPhrase, strMot) As Integer
Dim strTab = Split(strPhrase, strMot)
CompterMot = UBound(strTab)
End Function
|
et après en modifiant les valeurs des boucles, on peut chercher que des nombres a 3 chiffres
Et ça marche super
Merci de ton aide !