Fonction recherche contenu de windows

**boubas53** · 17/12/2013, 21h01

bonjour,

J'ai un dossier "essai" dans le dossier "essaibis" avec dix fichiers de type.rtf dedans. Je veux faire une recherche de contenu avec windows 7 sans avoir à ouvrir chaque fichier. Je veux rechercher le montant de 43,22 et quand je me positionne sur le dossier "essai" et que je met le montant dans la zone de recherche windows en haut à droite, j'ai le message suivant: "aucun élément ne correspond à votre recherche. Et lorsque j'ouvre le fichier en question et que je fait un contrôle "F" dessus, il trouve bien le montant de 43,22. Donc comment svp faire une recherche avec windows, dans un dossier sans avoir à ouvrir tous les fichiers. Merci.

**hackoofr** · 18/12/2013, 06h52

Tu peux passer par un Vbscript que j'ai un peu modifié pour toi

Alors, tu fais copier et coller ce code ci-dessous dans ton notepad et enregistrer-le sous le nom par exemple Moteur_Rech.vbs

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
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
dim tabl()
dim tablold()
redim tabl(1)
tabl(0)="jetpack"
num=1
nbtot=0
nboct=0
nbssrep=0
Titre = "Recherche du contenu de fichiers"
On Error Resume next
Set fs = CreateObject("Scripting.FileSystemObject")
'choix du répertoire
nomrep=inputbox("nom du répertoire",Titre,"c:\essaibis")
'choix du mot recherché
mot_cherch=inputbox("mot recherché ?",Titre,"43,22")

'traiter le cas où nomrep est un disque ou un nom non valide
if not fs.folderexists(nomrep) or ucase(fs.getdrivename(nomrep))=ucase(replace(nomrep,"\","")) then
MsgBox "nom de répertoire non valide"
wscript.quit
end if
tabl(1)=nomrep

'créer le fichier texte et l'ouvrir en appending
fichresult="C:\liste_fichiers.html" 
Set nouv_fich = fs.OpenTextFile(fichresult, 2, true)
nouv_fich.close
Set nouv_fich = fs.OpenTextFile(fichresult, 8, false) 
nouv_fich.writeline("<HTML><BODY>")

'boucler sur les niveaux jusqu'à ce qu'il n'y ait 
'plus de sous répertoires dans le niveau
do while num>0 '------------------------------------
    
'recopie tabl
redim tablold(ubound(tabl))
for n=0 to ubound(tabl)
tablold(n)=tabl(n)
next

'réinitialiser tabl
redim tabl(0)
tabl(0)="zaza"

'explorer le ss répertoire
for n=1 to ubound(tablold)
expl(tablold(n)) 'ajoute ds le tableau tabl les ss rep de tablold(n)
next
loop '----------------------------------------------

nouv_fich.writeline("</BODY></HTML>")
nouv_fich.close
set nouv_fich=nothing
nboct2= int(fs.getfolder(nomrep).size/1024)
set fs=nothing 

'afficher le résultat
'Msgbox nbtot & " fichiers pour " & int(nboct/1024) & " ko dans """ & nomrep & """ et ses " & nbssrep & " sous-répertoires (total " & nboct2 & " ko)",,nomrep

Set sh = WScript.CreateObject("WScript.Shell") 
sh.run "explorer " & fichresult
set sh=nothing

'*************************************************************************
'*************************************************************************
'*************************************************************************

sub expl(nomfich) 
'ajoute dans le tableau tabl() tous les sous répertoires de nomfich
'et ajoute dans le fichier nouv_fich les noms des fichiers et leurs caractéristiques

Set rep=fs.getFolder(nomfich)
num=ubound(tabl)

'parcourir les sous répertoires de nomfich
for each ssrep in rep.subfolders 
num=num+1 
redim preserve tabl(num)
tabl(num)= ssrep.path
nbssrep=nbssrep+1
next 

'parcourir les fichiers de nomfich
for each fich in rep.files 
nbtot=nbtot+1
nboct=nboct+fich.size
'chercher dans le fichier
'nouv_fich.writeline fich.path & " (" & int(fich.size/1024) & " ko, créé " & fich.DateCreated & ", acc " & fich.DateLastAccessed & ")"
if instr(lcase(fich.name),".txt")+instr(lcase(fich.name),".htm")+instr(lcase(fich.name),".asp")+instr(lcase(fich.name),".php")+instr(lcase(fich.name),".rtf")>0 then
Set fich_sce = fs.OpenTextFile(fich.path, 1, false)
txtlu=fich_sce.readall
fich_sce.close
txtlu=tt(txtlu)
pos=instr(lcase(txtlu),lcase(mot_cherch))
if pos>0 then 
nouv_fich.writeline ("<BR><BR><A HREF='file:///" & fich.path & "' target='_blank'>" & fich.name & "</A>")
do while pos>0
nbav=50
if pos-1<nbav then nbav=pos-1
nbapr=50
if len(txtlu)-pos-len(mot_cherch)+1<nbapr then nbapr=len(txtlu)-pos-len(mot_cherch)+1
txx= tt(mid(txtlu,pos-nbav,nbav)) & "<FONT COLOR='red'><B>" & tt(mid(txtlu,pos,len(mot_cherch))) & "</B></FONT>" & mid(txtlu,pos+len(mot_cherch),nbapr)
if nbav=50 then txx="..." & txx
if nbapr=50 then txx=txx & "..."
txx="<BR>&nbsp;&nbsp;&nbsp;" & txx
nouv_fich.writeline txx
txtlu=right(txtlu,len(txtlu)-pos+1-len(mot_cherch))
pos=instr(lcase(txtlu),lcase(mot_cherch))
loop
end if
end if
next 

set rep=nothing 
end sub

function tt(txte)
tt=txte
tt=replace(tt,"<","&lt;")
tt=replace(tt,">","&gt;")
end function

**boubas53** · 18/12/2013, 12h53

Bonjour,

Voici le fichier .rtf zippé en question. Pouvez vous me dire svp qu'est ce qui ne va pas car j'aurais plusieurs recherches à faire sur le même type de fichier

**hackoofr** · 18/12/2013, 14h18

Avez-vous au moins testé le script que j'ai modifié pour vous ? car, j'ai ajouté l'extension .rtf dans ce dernier et par la même occasion, j'ai testé avec votre fichier en pièce-jointe et ça me retourne bien un résultat positif

Testez-le et dis-moi si vous rencontriez un problème dans ce dernier

@+

**boubas53** · 18/12/2013, 14h28

Le problème, c'est que je suis sur le poste de mon travail et je ne peux pas vraiment installer d'application sur ce poste ( je n'ai pas les droits nécessaires). Merci.

**hackoofr** · 18/12/2013, 14h33

Envoyé par boubas53

Le problème, c'est que je suis sur le poste de mon travail et je ne peux pas vraiment installer d'application sur ce poste ( je n'ai pas les droits nécessaires)

Qui as dit installer ?

Juste vous exécuter le Vbscript !
Avez-vous reçu un message d'erreur lors de l'exécution de ce script ?

Si oui poster un "screen shot" càd capture d'écran

**boubas53** · 18/12/2013, 14h40

Ah ok,

En fait, nous sommes en réseaux et le chemin de mes fichiers se trouve en fait sous : "S:\AC\EDITIONS\DECEMBRE 2013".

**chrtophe** · 18/12/2013, 19h56

J'ai testé le vbs au cas ou ça puisse me servir.

Par défaut, il met comme dossier de recherche "c:\mes documents", si je fais annuler, il me dit qu"il ne trouve pas le fichier, je pense que annuler déclenche la même chose que ok.

Ensuite, si je lui demande de chercher dans mon dossier "mes documents", il me dit erreur accès non autorisé ( ligne 25 ). Je présumes que le script ne peux accéder à mon dossier bureau( là ou j'ai placé le script ).

En le déplaçant à la racine c, il me dit qu'il ne trouve pas le répertoire( "c:\" donné comme chemin )

idem avec explorateur exécuté en tant qu'administrateur (UAC )

Dommage, j'aurais bien gardé le script..

**hackoofr** · 19/12/2013, 12h12

Voici la nouvelle version du moteur de recherche en Vbscript.
Il reste juste la gestion d'erreurs qu'on va peut-être la résoudre ensemble

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
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
'**********************************************************************************
'Description du script VBS : Rechercher dans le contenu des fichiers de type texte
'**********************************************************************************
'En balayant les fichiers de type "fichiers texte" (fichiers ".txt",".htm",".asp",".php",".rtf",".html",".htm",".hta",".xml",".doc",".docx",".csv",".vbs" etc...),
'de les ouvrir les uns après les autres pour en extraire la portion de texte contenant le mot recherché.
'Le petit moteur peut toutefois rendre service pour explorer (en local) de petits sites Intranet (sans indexation préalable des pages).
'Code Original ==> http://jacxl.free.fr/cours_xl/vbs/moteur_rech.vbs
'***************************************************************************************************************************************************************
'Description de la mise à jour par Hackoo en 19/12/2013
'- Ajout d'une fonction pour parcourir le dossier à traiter par la fonction BrowseForFolder afin de rendre le script plus convivial et facile à manipuler
'- le résultat de la recherche est dans un fichier de type HTA au lieu dans un fichier de type HTML crée dans le dossier temporaire
'- Ajout de la fonction Explore() intégré dans le HTA pour explorer chaque fichier à part dans l'explorateur Windows
'- Ajout de la fonction HtmlEscape()
'***************************************************************************************************************************************************************
'On Error Resume Next
dim tabl()
dim tablold()
redim tabl(1)
tabl(0)="jetpack"
num=1
nbtot=0
nboct=0
nbssrep=0
Titre = "Recherche dans le contenu des fichiers de type texte"
Set fs = CreateObject("Scripting.FileSystemObject")
'choix du répertoire
nomrep = Parcourir_Dossier()
'choix du mot recherché
mot_cherch=inputbox("mot recherché ?",Titre,"43,22")

'traiter le cas où nomrep est un disque ou un nom non valide
if not fs.folderexists(nomrep) or ucase(fs.getdrivename(nomrep))=ucase(replace(nomrep,"\","")) then
    MsgBox "nom de répertoire non valide"
    wscript.quit
end if
tabl(1)=nomrep

'créer le fichier texte et l'ouvrir en appending
Dim tempFolder : Set tempFolder = fs.GetSpecialFolder(2)
Dim tempfile : tempFile = tempFolder & "\liste_fichiers.hta"
'msgbox tempFile
fichresult = tempFile 
Set nouv_fich = fs.OpenTextFile(fichresult,2,true)
nouv_fich.close
Set nouv_fich = fs.OpenTextFile(fichresult,8,false) 
nouv_fich.writeline("<html><title>"&Titre&"</title><HTA:APPLICATION SCROLL=""yes"" WINDOWSTATE=""Maximize""icon=""verifier.exe"">"&_
"<meta content=""text/html; charset=UTF-8"" http-equiv=""content-type"">"&_
"<body text=white bgcolor=#1234568><style type='text/css'>"&_
"a:link {color: #F19105;}"&_
"a:visited {color: #F19105;}"&_
"a:active {color: #F19105;}"&_
"a:hover {color: #FF9900;background-color: rgb(255, 255, 255);}"&_
"</style>")
nouv_fich.writeline "<SCRIPT LANGUAGE=""VBScript"">"
nouv_fich.writeline "Function Explore(filename)"
nouv_fich.writeline "Set ws=CreateObject(""wscript.Shell"")"
nouv_fich.writeline "ws.run ""Explorer /n,/select,""&filename&"""""
nouv_fich.writeline "End Function"
nouv_fich.writeline "</script>"

'boucler sur les niveaux jusqu'à ce qu'il n'y ait 
'plus de sous répertoires dans le niveau
do while num>0 '------------------------------------
    
'recopie tabl
    redim tablold(ubound(tabl))
    for n=0 to ubound(tabl)
        tablold(n)=tabl(n)
    next
    
'réinitialiser tabl
    redim tabl(0)
    tabl(0)="zaza"
    
'explorer le ss répertoire
    for n=1 to ubound(tablold)
        expl(tablold(n)) 'ajoute ds le tableau tabl les ss rep de tablold(n)
    next
loop '----------------------------------------------

nouv_fich.writeline("</BODY></HTML>")
nouv_fich.close
set nouv_fich=nothing
nboct2= int(fs.getfolder(nomrep).size/1024)
set fs=nothing 

'afficher le résultat dans un MsgBox
Msgbox nbtot & " fichiers pour " & int(nboct/1024) & " ko dans """ & nomrep &_
""" et ses " & nbssrep & " sous-répertoires (total " & nboct2 & " ko)",64,Titre

Set sh = CreateObject("WScript.Shell") 
sh.run "explorer " & fichresult
set sh=nothing
'*************************************************************************
Function Parcourir_Dossier()
    Set objShell = CreateObject("Shell.Application")
    Set objFolder = objShell.BrowseForFolder(0, "Veuillez choisir un dossier pour uploader son contenu",1,"c:\Programs")
    If objFolder Is Nothing Then
        Wscript.Quit
    End If
    NomDossier = objFolder.title
    Parcourir_Dossier = objFolder.self.path
end Function
'*************************************************************************
sub expl(nomfich) 
'ajoute dans le tableau tabl() tous les sous répertoires de nomfich
'et ajoute dans le fichier nouv_fich les noms des fichiers et leurs caractéristiques
    
    Set rep=fs.getFolder(nomfich)
    num=ubound(tabl)
'parcourir les sous répertoires de nomfich
    for each ssrep in rep.subfolders 
        num=num+1 
        redim preserve tabl(num)
        tabl(num)= ssrep.path
        nbssrep=nbssrep+1
    next 
'parcourir les fichiers de nomfich
    for each fich in rep.files 
        nbtot=nbtot+1
        nboct=nboct+fich.size
'**********************************************************************************************************************************************************************************************
'chercher dans le fichier (vous pouvez commenter cette ligne si vous voulez juste afficher les fichiers qui contient seulement le mot à rechercher)
nouv_fich.writeline fich.path & "<br><FONT COLOR=""yellow""><B>(" & int(fich.size/1024) & " ko, cr&eacute;&eacute; " & fich.DateCreated & ", acc " & fich.DateLastAccessed & ")</B></FONT><br>"
'**********************************************************************************************************************************************************************************************
        Dim Ext 
        'ici dans ce tableau vous pouvez ajouter d'autres extensions de type texte
        Ext = Array(".txt",".htm",".asp",".php",".rtf",".html",".htm",".hta",".xml",".doc",".docx",".csv",".vbs",".js",".css",".ini",".inf")
        For i=LBound(Ext) To UBound(Ext)
            if instr(lcase(fich.name),Ext(i)) > 0 Then 
                Set fich_sce = fs.OpenTextFile(fich.path,1,false,-2)
                txtlu=fich_sce.readall
                txtlu = HtmlEscape(txtlu)
                fich_sce.close
                'txtlu=tt(txtlu)
                pos=instr(lcase(txtlu),lcase(mot_cherch))
                if pos>0 then 
                    nouv_fich.writeline ("<BR><BR><A href=""#"" OnClick='Explore("""& fich.Path & """)'>" & fich.name & "</A>")
                    do while pos>0
                        nbav=50
                        if pos-1<nbav then nbav=pos-1
                        nbapr=50
                        if len(txtlu)-pos-len(mot_cherch)+1<nbapr then nbapr=len(txtlu)-pos-len(mot_cherch)+1
                        txx= tt(mid(txtlu,pos-nbav,nbav)) & "<FONT COLOR='Darkorange'><B>" & tt(mid(txtlu,pos,len(mot_cherch))) & "</B></FONT>" & mid(txtlu,pos+len(mot_cherch),nbapr)
                        if nbav=50 then txx="..." & txx
                        if nbapr=50 then txx=txx & "..."
                        txx="<BR>&nbsp;&nbsp;&nbsp;" & txx
                        nouv_fich.writeline txx
                        txtlu=right(txtlu,len(txtlu)-pos+1-len(mot_cherch))
                        pos=instr(lcase(txtlu),lcase(mot_cherch))
                    loop
                end if
            end if
        next 
    next
    set rep=nothing 
end sub
'*************************************************************************
function tt(txte)
    tt=txte
    tt=replace(tt,"<","&lt;")
    tt=replace(tt,">","&gt;")
end function
'*************************************************************************
Function HtmlEscape(strRawData) 
'http://alexandre.alapetite.fr/doc-alex/alx_special.html
Dim strHtmlEscape 
    strHtmlEscape = strRawData
    strHtmlEscape = Replace(strHtmlEscape, "&", "&amp;")
    strHtmlEscape = Replace(strHtmlEscape, "<", "&lt;")
    strHtmlEscape = Replace(strHtmlEscape, ">", "&gt;")
    strHtmlEscape = Replace(strHtmlEscape, """", "&quot;")
    strHtmlEscape = Replace(strHtmlEscape, "à", "&agrave;")
    strHtmlEscape = Replace(strHtmlEscape, "è", "&egrave;")
    strHtmlEscape = Replace(strHtmlEscape, "é", "&eacute;")
    strHtmlEscape = Replace(strHtmlEscape, "©", "&copy;")
    strHtmlEscape = Replace(strHtmlEscape, "ê", "&ecirc;")
    'strHtmlEscape = Replace(strHtmlEscape, vbCrLf, "<br>")
    'strHtmlEscape = Replace(strHtmlEscape, vbCr, "<br>")
    'strHtmlEscape = Replace(strHtmlEscape, vbLf, "<br>")
    'strHtmlEscape = Replace(strHtmlEscape, vbTab, "&nbsp;&nbsp;&nbsp;&nbsp;")
    'strHtmlEscape = Replace(strHtmlEscape, "  ", "&nbsp;&nbsp;")
    HtmlEscape = strHtmlEscape
End Function

**boubas53** · 20/12/2013, 23h38

Bonsoir,

Super, ça marche pour moi. Ca va me gagner du temps et m'être très utile pour rechercher des erreurs dans les masses de fichiers, pour passer derrière des écritures de régularisation en comptabilité. Merci beaucoup.

**hackoofr** · 23/12/2013, 20h16

Remarque : Dans la ligne N° 128
Ici dans ce tableau vous pouvez ajouter d'autres extensions

Code :

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

Ext = Array(".txt",".htm",".asp",".php",".rtf",".html",".htm",".hta",".xml",".doc",".docx",".csv",".vbs",".js",".css",".ini",".inf")

**boubas53** · 28/12/2013, 18h17

Bonsoir,

J'ai rajouté les extensions .xls et .xlsx dans le code vbs. Ensuite, j'ai recherché le mot "druide" et le montant "550,18" mais il ne trouve pas ces données dans mon fichier "erty.xlsx". Pourquoi le programme ne trouve pas ces données ? Merci.

**boubas53** · 29/12/2013, 15h41

Bonjour,
voici la ligne 128 telle que je l'ai modifiée avec les extensions .xls et .xlsx en plus. mais ca ne fonctionne pas sur les fichiers excel.

Ext = Array(".txt",".htm",".xls",".xlsx",".asp",".php",".rtf",".html",".htm",".hta",".xml",".doc",".docx",".csv",".vbs",".js",".css",".ini",".inf")

Nb: au fait, comment fait-on pour modifier le code d'un fichier vbs sans etre obligé de tout recoller dans le bloc-note et de recréer un fichier .vbs, y a t-il un raccourci clavier pour faire apparaître le code ?

**sevyc64** · 29/12/2013, 17h45

tu fais un click droit sur ton fichier .vbs, puis Ouvrir avec ... et tu choisis le Bloc-Note (éventuellement, décocher la case "Toujours ouvrir avec")

**hackoofr** · 03/01/2014, 08h07

Pour la recherche de type Excel par ce vbscript, pour le moment aucune idée, il faut peut-être rechercher une autre solution dans les prochains jours à venir

**dmganges** · 03/01/2014, 10h40

Slt !
Celui-là je le mets de côté, et pas derrière les fagots, bien en vue !
MERCI hackoofr

**boubas53** · 31/03/2014, 11h37

Et pour une recherche exclusivement pour les fichiers de type excel comme ce Vbscript pour les fichiers rtf ou word, est-ce possible ?

**hackoofr** · 31/03/2014, 13h56

Envoyé par boubas53

Et pour une recherche exclusivement pour les fichiers de type excel comme ce Vbscript pour les fichiers rtf ou word, est-ce possible ?

Dans votre cas, je vous recommande alors, d'utiliser le logiciel FileSearchy
FileSearchy est un utilitaire rapide et pratique qui vous permet de trouver des fichiers sur votre ordinateur. Trouvez instantanément des fichiers par nom ou en effectuant une recherche avancée dans le contenu du fichier, par date ou selon la taille. Ce programme prend en charge la plupart des formats de fichiers les plus populaires (y compris les documents PDF et MS Office) et surligne le texte trouvé dans les noms et le contenu des fichiers. Ce logiciel affiche en outre une interface à plusieurs onglets.

Fonctionnalités :

Trouve instantanément les fichiers par noms ;
Surlignage du texte ;
Interface utilisateur à plusieurs onglets ;
Recherche de texte dans le contenu des fichiers ;
Demandes avancées ;
Intégration dans Explorer.

Fonction recherche contenu de windows

Windows 7

Discussions similaires

Partager

Partager