Bonjour ,

Je travaille actuellement sur un Scripts Vbs qui me permets de récupérer des information .
voici le fichier txt :

Code html : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
<TD headers=DivisionName colSpan=3>Publique</TD></TR>
<TD headers=Total>2708</TD>
<TD headers=LargeSize>15</TD>
<TD headers=PrintLimit>0</TD></TR>
<TD headers=DivisionName colSpan=3>5210</TD></TR>
<TD headers=Total>86</TD>
<TD headers=LargeSize>2</TD>
<TD headers=PrintLimit>0</TD></TR>
<TD headers=DivisionName colSpan=3>5220</TD></TR>
<TD headers=Total>5</TD>
<TD headers=LargeSize>0</TD>
<TD headers=PrintLimit>0</TD></TR>
Voici mon code :

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
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
Set FSO=CreateObject("Scripting.FileSystemObject")
Set Fic_in_bis=FSO.OpenTextFile(Chemin_Fic_in_bis,1)
Do While Fic_in_bis.AtEndOfStream <> true 
		Ligne1=Fic_in_bis.Readline
		IF NOT Instr (Ligne1,Code )= 0 THEN 
				RechercherDans = Ligne1
				BaliseDebut = "DivisionName colSpan=3>"
				BaliseFin = "</TD></TR>"
				DebutOu = 1
				DebutOu = InStr(DebutOu, RechercherDans, BaliseDebut)
				DebutOu = DebutOu + Len(BaliseDebut)
				FinOu = DebutOu
				FinOu = InStr(FinOu, RechercherDans, BaliseFin)
				User= Mid(RechercherDans, DebutOu, FinOu - DebutOu)
				Wscript.echo User
		END IF
		BaliseDebut=0
		DebutOu=0
		FinOu=0		
		IF NOT Instr (Ligne1,CPT )= 0 THEN
				RechercherDans = Ligne1
				BaliseDebut = "Total>"
				BaliseFin = "</TD>"
				DebutOu = 1
				DebutOu = InStr(DebutOu, RechercherDans, BaliseDebut)
				DebutOu = DebutOu + Len(BaliseDebut)
				FinOu = DebutOu
				FinOu = InStr(FinOu, RechercherDans, BaliseFin)
				TotalImpression=Mid(RechercherDans, DebutOu, FinOu - DebutOu)
				Wscript.echo TotalImpression
		END IF
		BaliseDebut=0
		DebutOu=0
		FinOu=0		
		IF NOT Instr (Ligne1,GF )= 0 THEN
				RechercherDans = Ligne1
				BaliseDebut ="LargeSize>"
				BaliseFin = "</TD>"
				DebutOu = 1
				DebutOu = InStr(DebutOu, RechercherDans, BaliseDebut)
				DebutOu = DebutOu + Len(BaliseDebut)
				FinOu = DebutOu
				FinOu = InStr(FinOu, RechercherDans, BaliseFin)
				Format=Mid(RechercherDans, DebutOu, FinOu - DebutOu)
				Wscript.echo Format
		END IF
loop
Je voudrais créer une ligne contenant les champs User Total Impression et Format

En fait il faudrait que je créé un compteur de ligne en faisant controle sur Compteur = 4 ou un multiple de 4 alors je créé la ligne

Merci d'avance pour votre aide