Création d'un compteur de ligne qui traite une création de ligne dans un autre fichier

Bonjour ,

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

Code:

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:

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