Discussion :

[steph78630]

Bonjour,

j'ai besoin de créer un script en VBS permettant de vérifier l'intégrité d'un fichier balisé de plusieurs centaines / milliers de lignes et je ne sais pas trop comment m'y prendre...

A l'exécution de ce script, celui-ci doit ouvrir un fichier TXT ou XML et en lire chaque ligne :

- Identifier une balise d'ouverture (par ex. : <Mon_exemple>)
- Mettre en mémoire le nom de cette balise ainsi que la ligne ou elle se trouve
- Continuer à lire le fichier et identifier une balise de fermeture (par ex. : </Mon_exemple>)
- Si le nom des balises d'ouverture et de fermeture est identique, supprimer le nom de la balise (Mon_exemple) en mémoire ainsi que la ligne ou elle se trouve

En fin de lecture du fichier, afficher le nom des balises "orphelines" (qu'elles soient d'ouverture ou de fermeture) ainsi que les lignes ou elle se trouvent.

Dans cet exemple, les balises "Info_2" - ligne 3 et "Info_4" - ligne 5 sont orphelines :

Code :

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

1
2
3
4
5
6
7
8
<Balise_1>
<Info_1>Mon info 1</Info_1>
<Info_2>Mon info 2
<Info_3>Mon info 3</Info_3>
Mon info 4</Info_4>
<Info_5>Mon info 5</Info_5>
</Balise_1>
<Balise_1>Mon info 6</Balise_1>

Note : Une balise du même nom peut être déclarée plusieurs fois dans le fichier à condition qu'elle soit refermée avant qu'elle soit ouverte de nouveau (lignes 1, 7 et 8)

SVP, avez-vous des pistes / idées à me proposer ?

[steph78630]

Personne que cela inspire ? Ma demande n'est pas assez claire ?

[omen999]

bonjour,

Ma demande n'est pas assez claire ?

très claire au contraire mais j'ai besoin encore d'un peu de temps
pour te proposer quelque chose car je suis assez occupé
et la gestion des lignes complique pas mal l'algo

[steph78630]

Super, merci...

[ProgElecT]

Salut

Moi j'en suis là, mais je pense que algorithme n'est pas très solide, il faudrait plus de ligne pour améliorer et peut être passer par un RegExp avec Pattern = "(<[A-Za-z0-9_]*>)" 'pour trouver toutes les balises d'ouverture et Pattern = "(</[A-Za-z0-9_]*>)" 'pour trouver toutes les balises de fermeture.
En attendant ...

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
Dim LeFichier 'pour simuler le contenu du fichier
LeFichier = "<Balise_1>" & vbnewline _
& "<Info_1>Mon info 1</Info_1>" & vbnewline _
& "<Info_2>Mon info 2" & vbnewline _
& "<Info_3>Mon info 3</Info_3>" & vbnewline _
& "Mon info 4</Info_4>" & vbnewline _
& "<Info_5>Mon info 5</Info_5>" & vbnewline _
& "</Balise_1>" & vbnewline _
& "<Balise_1>Mon info 6</Balise_1>"
 
Dim Memo
Call(Trier)
MsgBox "Balise(s) orpheline(s) " & vbnewline & vbnewline & Memo
 
'*******************************************************************************
Sub Trier()
Dim Cpt, PosDeb, PosFin, PoS
Dim TblLg, TblCol, BaliseDeb, BaliseFin
 
TblLg = split(LeFichier,vbnewline)
For Cpt = 0 to Ubound(TblLg)
        PosDeb = Instr(1,TblLg(Cpt),"<",0)+ 1
        PosFin = Instr(PosDeb,TblLg(Cpt),">",0)
        BaliseDeb = Mid(TblLg(Cpt),PosDeb,PosFin-PosDeb)
        'MsgBox "BaliseDeb = " & BaliseDeb,,"première recherche"
        If Left(BaliseDeb,1) ="/" Then
                'MsgBox "balise fermente: " & BaliseDeb
                BaliseFin = "<" & BaliseDeb & ">"
                BaliseDeb = "<" & replace(BaliseDeb,"/","") & ">"
                Pos = InStrRev(LeFichier,BaliseDeb,PosFin,0)
                If Pos=0 Then
                        Memo = Memo & "ligne " & Cpt+1 & ": " & BaliseFin & vbnewline
                End If
                Else
                'MsgBox "balise ouvrente: " & BaliseDeb
                BaliseFin = "</" & BaliseDeb & ">"
                BaliseDeb = "<" & BaliseDeb & ">"
                Pos = Instr(PosFin,LeFichier,BaliseFin,0)
                If Pos=0 Then
                        Memo = Memo & "ligne " & Cpt+1 & ": " & BaliseDeb & vbnewline
                End If
        End If
Next
End Sub
'*******************************************************************************

[steph78630]

@ProgElecT, pour un premier jet, c'est déjà super...

ça correspond tout à fait à mon besoin :-) :-)