Discussion :

[spootnic22]

Salut,
Pourriez vous me dire comment je peux calculer le nombre d'occurence d'un mot par exemple "test" qui existe dans un fichier file.txt
Merci.

[bidou]

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
Private Sub Command1_Click()
Dim Tampon As String, Position As Integer, NbOccur As Integer
 
    Open "d:\svg\liste.txt" For Binary As #1
    Tampon = Space$(LOF(1))
    Get #1, , Tampon
    Close #1
    Position = InStr(1, Tampon, "test", vbTextCompare)
    Do While Position > 0
        NbOccur = NbOccur + 1
        Position = InStr(Position + 11, Tampon, "test", vbTextCompare)
    Loop
    MsgBox NbOccur
 
End Sub

[mdriesbach]

Code :

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

1
2
3
...
Position = InStr(Position + 11, Tampon, "test", vbTextCompare)
...

Bidou, pourquoi + 11 ? C'est pas plutôt + 4 (ou plus exactement la longueur de la chaîne recherchée) ?

Mathieu D.

[bidou]

non, c'est plus 1 avec mon parkinson

[mqsi]

j'aimerai bien savoir est ce que +4 ou bien +11 ? et prq ?

[Najdar]

Je viens d'essayer ça, c'est marrant comme méthode !

Code :

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

1
2
3
4
5
6
7
  Dim Tableau()                     As String
 
  Tableau = Split("Salut, Pourriez test vous me dire comment je peux calculer le nombre" & _
                  "d'occurence d'un mot par exemple test qui existe dans un fichier file.txt. Merci", _
                  "test")
 
  Debug.Print "Nombre d'occurence : " & UBound(Tableau)

Plus court, cela devient difficle...

[bidou]

c'est + 1 ou +4 comme tu veux

Plus court, cela devient difficle...

Plus lent aussi d'ailleurs, parce que Split pour faire du décompte...

[Najdar]

Plus lent aussi d'ailleurs, parce que Split pour faire du décompte...

J'ai dis que je trouvai ça marrant, pas performant !

C'est a voir, mais je n'ai pas fais l'essai.
Mais je suppose que Split n'est pas écrite en VB et je ne serai pas surpris qu'elle soit plus rapide que le code vb suivant :

Code :

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

1
2
3
4
5
Position = InStr(1, Tampon, "test", vbTextCompare)
    Do While Position > 0
        NbOccur = NbOccur + 1
        Position = InStr(Position + 1, Tampon, "test", vbTextCompare)
    Loop

Maintenant je suis d'accord avec toi, c'est une fois très détournée d'utiliser la fonction Split.

[bidou]

Plus vite il n' y a pas beaucoup de chance, Instr n'est pas écrite en VB non plus
La vitesse sera quasiment égale s'il y a peu d'occurence et nettement moins bonne pour split s'il y en a beaucoup.

[Najdar]

A coder, on peut encore faire plus rapide : en une ligne sans variable intermédiaire. !

Code :

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

MgsBox Ubound(Split(Tampon,"test"))

Allez, Bidou, fait moi plaisir et dis-moi que c'est tout de même pratique

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
Private Sub Command1_Click()
Dim Tampon As String ', Position As Integer, NbOccur As Integer
 
    Open "d:\svg\liste.txt" For Binary As #1
    Tampon = Space$(LOF(1))
    Get #1, , Tampon
    Close #1
    'Position = InStr(1, Tampon, "test", vbTextCompare)
    'Do While Position > 0
    '    NbOccur = NbOccur + 1
    '    Position = InStr(Position + 11, Tampon, "test", vbTextCompare)
    'Loop
    'MsgBox NbOccur
 
    MgsBox ubound(Split(Tampon,"test"))
End Sub

Au moins spootnic22 tu as le choix !

[bidou]

Allez, Bidou, fait moi plaisir et dis-moi que c'est tout de même pratique

Disons que c'est plus court à coder, je te l'accorde bien volontiers

[Najdar]