Recherche graduée dans un fichier txt

Bonjour,
J'ai un fichier .txt dans lequel je souhaiterais récupérer des valeurs bien précises.
J'ai trouvé une fonction qui me permet de rechercher le nombre de récurrences d'une chaine dans mon fichier :

Code:

---

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

mot_cherche = "EQUIPE" compteur = 0   fichier_lecture_1 = "D:\Mes Documents\monfichier.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 wscript.echo chaine end if loop fichier_lecture_2.close set fichier_lecture_2 = nothing set fso = nothing   wscript.echo mot_cherche & " trouvé " & compteur & " fois !!"

---

Ce que je souhaiterais pouvoir faire c'est trouvé la chaine de caractère "Nombre" entre chaque récurrence de la chaine de caractère "EQUIPE".
En gros pour exemple si j'ai dans mon fichier :
EQUIPE 1

• Nombre = 20
• Nombre = 22
• Nombre = 12

EQUIPE 2

• Nombre = 10
• Nombre = 15

Je souhaiterais afficher EQUIPE 1 : Nombre 20
puis EQUIPE 1 Nombre 22
etc...

Merci par avance.

J'ai trouvé la solution en faite toute simple, à moins que quelqu'un trouve une autre solution plus performante : :ccool:

Code:

---

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

mot_cherche = "EQUIPE" compteur = 0   fichier_lecture_1 = "D:\Mes Documents\Scripts\monfichier.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 wscript.echo chaine Equipe = chaine elseif instr(1, chaine, "Nombre") > 0 then wscript.echo Equipe & " : " & chaine end if loop fichier_lecture_2.close set fichier_lecture_2 = nothing set fso = nothing   wscript.echo mot_cherche & " trouvé " & compteur & " fois !!"

---