Prof Party - Stread Tek

Musique d'ambiance
 
AccueilFAQRechercherS'enregistrerConnexion

Partagez | 
 

 Chercheur de Shader

Aller en bas 
AuteurMessage
Snaky
Admin
avatar

Nombre de messages : 538
Localisation : Lyon, France
Date d'inscription : 26/01/2008

MessageSujet: 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.

_________________
Snaky, chef du projet 'Prof Party'
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://profparty.forumpro.fr
 
Chercheur de Shader
Revenir en haut 
Page 1 sur 1
 Sujets similaires
-
» Chercheur recherché cherche joueur pour rp
» La Grotte du Chasseur
» Un Haitien sur la Lune
» Joe Python - Civilian - Chercheur d'equipement dans la cohorte
» L'héritière

Permission de ce forum:Vous ne pouvez pas répondre aux sujets dans ce forum
Prof Party - Stread Tek :: Le Jeu :: Améliorations :: Améliorations Techniques-
Sauter vers: