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 |
Partager