[FAQ] compter les occurences d'une chaîne dans un fichier [Fait]

[cafeine]

C'est faisable grâce aux RegExp, penser à ajouter la référence Microsoft Regular Expressions 5.5 :

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
Function CountMatches(ByVal strFic As String, ByVal strSearch As String) As Long

    Dim reg As VBScript_RegExp_55.RegExp
    Dim Matches As VBScript_RegExp_55.MatchCollection
    Dim Fic As Integer
    Dim strBuff As String * 20000
    Dim strBorder As String
    
    ' instanciation

    Set reg = New VBScript_RegExp_55.RegExp
    
    reg.Global = True
    reg.IgnoreCase = True
    reg.Multiline = True
    reg.Pattern = "(" & strSearch & ")"

    ' gestion fichier

    Reset
    Fic = FreeFile
    Open strFic For Binary Access Read As #Fic
    
    Do While Not EOF(Fic)
        strBorder = Right(strBuff, Len(strSearch) - 1)
        Get #Fic, , strBuff
        strBorder = strBorder & strBuff
        Set Matches = reg.Execute(strBorder)
        CountMatches = CountMatches + Matches.Count
    Loop
    Close #Fic
        
    ' libération

    Set reg = Nothing
    Set Matches = Nothing

End Function

un exemple d'utilisation

Code :

1
2
?countmatches("c:\temp\long.txt"," ")
 7500

[Tofalu]

Avec l'utilisation de FreeFile pour le nom de fichier, on serait sûr de ne pas lever d'erreur en cas de lecture d'un autre fichier entre temps

Sinon question, les regexp sont vraiment plus rapide que InStr dans ce cas ?

[cafeine]

Envoyé par Tofalu

Avec l'utilisation de FreeFile pour le nom de fichier, on serait sûr de ne pas lever d'erreur en cas de lecture d'un autre fichier entre temps

Sinon question, les regexp sont vraiment plus rapide que InStr dans ce cas ?

Hello,

J'ai corrigé en mettant FreeFile, judicieuse remarque.

j'ai testé les performances, pour que Instr soit intéressant il faut réduire fortement la taille du buffer.

Fichier = 1.3 Mo
Instr = 0,304 s (avec buffer à 100 car.)
RegEx = 0,179 s

Fichier = 2.7 Mo
Instr = 0,601 s (avec buffer à 100 car.)
RegEx = 0,347 s

Fichier = 16 Mo
Instr = 3.715 s
RegEx = 2.094 s (buffer à 2500 car.)

En gros les RegEx sont deux fois plus rapides avec des possibilités de recherches nettement plus étendues !

[Tofalu]

Cool