class= " lineNumbers " de
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 :
|
class= de
résumé " de " codeSnippet831979 d'id= " de On de class= après
« Changer les trois prochaines lignes »
Const FOLDER_TO_SEARCH = « S:\scrimac »
Const FILES_TO_FIND = « *.sas »
Const TEXT_TO_FIND = « s:\ »
Faible objFSO, objFolder, objFile, objTextStream, objReport, objRegex, colMatches, strRoot, strExtension, varBuffer, arrFTF
Obscurcir lngFilesChecked, lngFilesMatched, des lngHits
l'arrFTF = s'est dédoublé (FILES_TO_FIND, « .")
Placer l'objFSO = le CreateObject (« Scripting.FileSystemObject »)
« Changer le nom de fichier de rendement sur la prochaine ligne »
Placer l'objReport = l'objFSO.CreateTextFile (« documents de C:\Documents and Settings\eza9507\My \ FileSearch.txt »)
chemise d'objReport.WriteLine « à rechercher : » Et FOLDER_TO_SEARCH
dossiers d'objReport.WriteLine « à rechercher : » Et FILES_TO_FIND
texte d'objReport.WriteLine « à trouver : » Et TEXT_TO_FIND
"" d'objReport.WriteLine
Placer l'objRegex = le CreateObject (« VBscript.RegExp »)
Avec l'objRegex
.IgnoreCase = rectifient
. Modèle = TEXT_TO_FIND
. Global = rectifier
Finir avec
Placer l'objFolder = l'objFSO.GetFolder (FOLDER_TO_SEARCH)
Pour chacun objFile dans objFolder.Files
strRoot = objFSO.GetBaseName (objFile.Name)
strExtension = objFSO.GetExtensionName (objFile.Name)
Si (strRoot = arrFTF (0)) Ou (arrFTF (0) = « *") alors
Si (strExtension = arrFTF (1)) ou (arrFTF (1) = « *") alors
+ 1 lngFilesChecked = lngFilesChecked
Placer l'objTextStream = l'objFSO.OpenTextFile (objFile.Path)
varBuffer = objTextStream.ReadAll
Placer les colMatches = l'objRegex.Execute (le varBuffer)
Si colMatches.count > 0 puis
+ 1 lngFilesMatched = lngFilesMatched
lngHits = lngHits + colMatches.count
dossier d'objReport.WriteLine « : » et objFile.Path et « allumettes : » et colMatches.count
Finir si
objTextStream.Close
Finir si
Finir si
Après
"" d'objReport.WriteLine
dossiers d'objReport.WriteLine « vérifiés : » et lngFilesChecked
dossiers d'objReport.WriteLine « avec le texte : » et lngFilesMatched
allumettes totales d'objReport.WriteLine « : » et lngHits
objReport.Close
Placer l'objFSO = rien
Placer l'objFolder = rien
Placer objFile = rien
Placer l'objTextStream = rien
Placer l'objReport = rien
Placer l'objRegex = rien
Placer les colMatches = rien
WScript.Echo « recherche complète »
WScript.Quit
|
