Snaky
Admin
Nombre de messages : 538
Localisation : Lyon, France
Date d'inscription : 26/01/2008
 | Sujet: Chercheur de Shader  Jeu 17 Avr - 20:00 | |
| Bonsoir à vous ! Voici un petit programme assez utile pour chercher un shader précise (par exemple, beamshader) dans les fichiers shader d'un dossier. Ce programme permet également de trouver un mot, une phrase ou une suite de caractère DANS le contenu des fichiers d'un dossier. Une boite d'information vous indique les chemins des fichiers où le programme a pu trouver la chaine de caractères recherchée. Lien: Code source: - Code:
-
msgbox "Shader Find" & chr(10) & "Programme de recherche d'un paragraphe Shader dans un dossier contenant les *.shader" & chr(10) & "Cherche aussi dans les fichiers autre que *.shader xD" & chr(10) & "Par Snaky" & chr(10) & "Pour Prof Party", 64, "Shader Find"
dim FSO, WSS, BatFile, Self, SelfBat, Suppression
set WSS = Wscript.CreateObject("WScript.Shell")
set FSO = CreateObject("Scripting.FileSystemObject")
set Self = FSO.GetFile(WScript.ScriptFullName)
dim LocalFolder
set LocalFolder = FSO.GetFolder(Self.ParentFolder)
dim Files, File, Exp, F, Cont, R
set Files = LocalFolder.Files
set Exp = New RegExp
Exp.Pattern = inputbox("Indiquez le nom à chercher:", "Nom à chercher", "")
Exp.IgnoreCase = TRUE
Exp.Global = TRUE
for each File in Files
set F = FSO.OpenTextFile(LocalFolder.Path & "/" & File.Name)
Cont = F.ReadAll
set R = Exp.Execute(Cont)
if (R.Count >= 1) Then
msgbox ("Itération trouvée dans " & (LocalFolder.Path & "/" & File.Name)), 64, "Trouvé!"
End If
Next
WScript.Quit
Vous pouvez copier-coller le code source dans un fichier vide de votre choix, qui devra être au format *.vbs. | |
|
