Discussion :

[sygale]

Bonjour je recherche tous les *.sql qui ont dans le corps du text la phrase suivante

Code :

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

CREATE PUBLIC SYNONYM

J'ai donc codé l'exemple suivant :

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
With Application.FileSearch
    .NewSearch
    .LookIn = strPath
    .SearchSubFolders = False
    .FileName = "*.sql"
    .FileType = msoFileTypeAllFiles
    .TextOrProperty = "CREATE*PUBLIC*SYNONYM"
    .MatchTextExactly = False
    If varrtn > 0 Then
        For i = 1 To .FoundFiles.Count
            strRtn = strRtn & ";" & .FoundFiles(i)
        Next
        strRtn = .FoundFiles.Count & " Trouvés ;" & strRtn
    Else
        strRtn = "Execute>0"
    End If
End With

Par contre, il trouve rien.

Cependant si je remplace

Code :

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

    .TextOrProperty = "CREATE*PUBLIC*SYNONYM"

par

Code :

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

    .TextOrProperty = "CREATE*"

Il trouve des résultats.

kk1 sait comment rechercher plusieurs mot séparé par n'importe quelle chaine de caractère ??

Merci d'avance