Discussion :

[ludojojo]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[ludojojo]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 !!"