Discussion :

[dpie]

Bonjour,

Je voudrai développer un outil qui permetterait de connaitre le nombre d'occurence de la chaine "xyz" contenu dans le fichier texte c:\test\fic1.txt

donc, p.ex...

une boite de dialogue permetant de pointer sur le fichier à analyser...

+ affichage sur le formulaire du nombre de fois que "xyz" de présentes dans le fichier pointé...

si vous voyez ce que je veux dire...

[cafeine]

Hello,

avec les RegExp, on peut rapidement compter le nombre d'occurence d'une chaîne dans un fichier (ici < 64 000 caractères) ...

plus d'infos sur mon tuto :
http://cafeine.developpez.com/access/tutoriel/regexp/

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
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
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 * 64000
    
    ' instanciation

    Set reg = New VBScript_RegExp_55.RegExp
    
    ' gestion fichier

    Reset
    Fic = 1
    Open strFic For Binary Access Read As #Fic
    Get #Fic, , strBuff
    Close #Fic
    
    ' RegExp

    reg.Global = True
    reg.IgnoreCase = True
    reg.Multiline = True
    reg.Pattern = "(" & strSearch & ")"
    Set Matches = reg.Execute(strBuff)
    CountMatches = Matches.Count
        
    ' libération

    Set reg = Nothing
    Set Matches = Nothing

End Function

Il ne te reste plus qu'à créer le formulaire permettant de pointer sur un fichier ...

[dpie]

Super !

Merci bcp, c'est exactement ce que je cherchais...sauf que, mes fichiers texte font plus que 64000 caractères, , et ca ne prends en compte les occurences que dans les 64000 derniers caractères de mon fichier texte...

y a t-il un autre type de variable permettant d'aller plus loin...

fo quand même pas découper le fichier avant de compter ??

[cafeine]

Oui, il faut découper, mais en adaptant un peu, ça passe ...

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
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
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 = 1
    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