rechercher n'importe quelle chaine dans nom de fichier

Version imprimable

11/07/2012, 10h44
mr.choum

rechercher n'importe quelle chaine dans nom de fichier

Salut,

Alors voilà mon petit soucis. Je voudrais pouvoir chercher un fichier sous la forme: mon_fichier_********.txt. Les étoiles doivent pouvoir être remplacées par n'importe quel caractère et la taille de la chaine peut être variable.

En fait il s'agit des wildcard sous linux/unix ...

Quelqu'un a une idée?

Merci d'avance!

Salut !
Voici pour t'aider :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Dim FileExt, FileStart, Folder, LongName, System
 
FileExt = LCase("txt") 'Extension recherchée
FileStart = LCase("mon_fichier_") 'Début du nom des fichiers recherchés
Folder = "C:\temp\" 'Répertoire de recherche
 
LongName = Len(FileStart) 'Longueur du champ de recherche
 
Set System = CreateObject("Scripting.FileSystemObject")
For Each File In System.GetFolder(Folder).Files 'On parcourt les fichiers du répertoire
 
	'Si les 3 derniers caractères correspondent à l'extension et si le début du nom du fichier correspond ...
        If Right(LCase(File.Name), 3) = FileExt And Left(LCase(File.Name), LongName) = FileStart Then
	MsgBox(File.Name) 'On affiche le nom du fichier
        End If
Next

:salut:
Bon voici une autre idée en utilisant les expressions régulières Regex
Donc à tester ce code chez vous et dis-moi ce qu'il donne comme résultat ;)

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Const ForReading = 1
Const ForWriting = 2
Titre = "Rechercher dans les noms des fichiers"
Set ws = CreateObject("wscript.shell")
Set FSO = CreateObject("Scripting.FileSystemObject")
Cmd = "cmd /c Color 90 & Title Veuillez Patienter La Recherche est en cours ........ & Dir c:\*.txt /s /b > c:\rechFichTxt.txt"
Execution = ws.run(Cmd,1,True)
Set f = FSO.OpenTextFile("c:\rechFichTxt.txt",ForReading)
Set objFiles = FSO.OpenTextFile("c:\AffineRecherche.txt",ForWriting,True)
sResults = f.ReadAll
Set objRegex = new RegExp
objRegex.Pattern = "(.w*)*\mon_fichier_(.w*)*\.txt"
objRegex.Global = True
objRegex.IgnoreCase = True
Set Matches = objRegex.Execute(sResults)
For Each Match in Matches   
    objFiles.Writeline Match.value
Next
MsgBox " La Recherche est terminé !",64,Titre
ws.Run "c:\AffineRecherche.txt",1,False

:salut:
Voici un autre script mais plus généralisé et interactif :mouarf:

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
Const ForReading = 1
Const ForWriting = 2
Titre = "Rechercher dans les noms des fichiers"
Ext = InputBox("Saisissez l'extension du fichier à rechercher Exemple ""vbs"" ou bien ""txt"" ou bien ""xls"" sans les guillemets",Titre,"txt")
If Ext = "" Then wscript.Quit
DebutMot = InputBox("Saisissez la chaîne de caractères qui débute avec le nom du fichier à rechercher :",Titre,"mon_fichier_")
If DebutMot = "" Then wscript.Quit
Set ws = CreateObject("wscript.shell")
Set FSO = CreateObject("Scripting.FileSystemObject")
Cmd = "cmd /c mode con cols=100 lines=2 & Color 90 & Title Veuillez Patientez... La Recherche du Mot """&DebutMot&""" dans les noms des fichiers de Type """&Ext&""" est en cours .............. & Dir c:\*."& Ext &" /s /b > c:\RechFich.txt"
Execution = ws.run(Cmd,1,True)
Set f = FSO.OpenTextFile("c:\RechFich.txt",ForReading)
sResults = sResults & f.ReadALL
sResults = Replace(sResults,"‚","é") 'Correction de l'ouput
Set fCorrection = FSO.OpenTextFile("c:\RechFich.txt",ForWriting,True)
fCorrection.Writeline sResults
fCorrection.close
Set objFiles = FSO.OpenTextFile("c:\FiltrerRechFich.txt",ForWriting,True)
Set objRegex = new RegExp
objRegex.Pattern = "(.w*)*"& DebutMot &"(.w*)*\."& Ext
objRegex.Global = True
objRegex.IgnoreCase = True
Set Matches = objRegex.Execute(sResults)
For Each Match in Matches   
    objFiles.Writeline Match.value
Next
MsgBox "La Recherche du Mot """&DebutMot&""" dans les noms des fichiers de Type """&Ext&""" est Terminé !",64,Titre
ws.Run "c:\FiltrerRechFich.txt",1,False

18/07/2012, 12h05
Cachlab

Merci pour ce script Hackhoofr !
En fait il fait plus qu'une recherche des fichiers "commençant par", il recherche les fichiers "dont le nom contient" ...
18/07/2012, 12h17
ProgElecT

Salut

Je ne connais pratiquement rien en expressions régulières Regex , mais je pense que tu peux essayer ce

Code:

objRegex.Pattern = DebutMot &"(.w*)*\."& Ext

ligne 20
18/07/2012, 12h21
Cachlab

Merci ProgElecT, mais ce n'était pas une question ! :P

En fait j'ai testé le script de HackHoofr et il trouve aussi bien des fichiers "recherche***.ext" que "***recherche***.ext" que "***recherche.ext"

C'était une constatation et je trouve cela trés pratique ! ;)
Merci quand même ! :mrgreen: ++