[VBS] Recherche chaine de caractères dans un fichier

J'aimerais savoir comment rechercher une chaine de caractères dans un fichier TXT.
Si vous avez un exemple de script, je suis preneur.
Merci d'avance

Hello,

Ce que tu cherches en gros est ceci :

exemple général :
----------------

Code:

---

1 2 3 4 5 6

chaine = "bonjour tout le monde" mot_cherche = "tout"   if instr(1, chaine, mot_cherche) > 0 then wscript.echo "mot trouvé dans la chaîne" end if

---

-------------------------------------------------------------

un exemple pour le fichier "open.txt" :
----------------------------------

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

mot_cherche = "tout" compteur = 0   fichier_lecture_1 = "open.txt" Set fso = CreateObject("Scripting.FileSystemObject") set fichier_lecture_2 = fso.opentextfile(fichier_lecture_1, 1, true) do until fichier_lecture_2.atendofstream chaine = fichier_lecture_2.readline() if instr(1, chaine, mot_cherche) > 0 then compteur = compteur + 1 end if loop fichier_lecture_2.close set fichier_lecture_2 = nothing set fso = nothing   wscript.echo "mot trouvé " & compteur " fois !!"

---

-------------------------------------------------------------

PS : si tu souhaites plus de détail cherche la fonction "instr"

LUDO96x

[Edit] bbil : Penser à rajouter les balises de codes, utiliser le bouton http://www.developpez.net/forums/images/editor/code.gif