Discussion :

[newcodeur]

Bonjour a tous j'ai un probleme avec mon parseur xml
il fonctionne correctement sauf lorsque j'arrive à une balise vide il me créer un erreur car normalement je dois récuperer les infos se trouvant entre les balises dans un tableau de type string or arrivé à la balise ou il n'y a pas d'infos le tableau ne récupère rien il me créer object not set .
j'ai essayé d'y remedié avec une condition si "" alors on fait cela mais rien a faire est-ce qu'il y aurait une methode pour régler ce pbm.
Merci.

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
 
 
If Enfants_de_mv.nodeName = "moid" Then
 
'ActiveSheet.Cells(intL, 3).Value = Enfants_de_mv.nodeTypedValue
 'intL = intL + 1
 
 ReDim Preserve tab_moid(1 To i_moid)
 
 
' *********cas ou on est dans les balise ou il n'y a pas de tetxe            
 
   If Enfants_de_mv.nodeTypedValue = "" Then
 
                tab_moid(i_moid) = ""
                  i_moid = i_moid + 1
 
   End If
 '*****************************************                                                
 
 tab_moid(i_moid) = Enfants_de_mv.nodeTypedValue
 
   i_moid = i_moid + 1
 
   'End If
 
    End If
 
 
 
 
intL = 7
 
                    For i_moid = LBound(tab_moid) To UBound(tab_moid)
                    ActiveSheet.Cells(intL, 3).Value = tab_moid(i_moid)
 
                    intL = intL + 1
 
                    Next i_moid
 
                    Erase tab_moid

[Laestic]

Mmm personnellement j'utilise le DOM MS Xml 3.0. Principalement les objets document, élément et liste de noeud (DOMDocument, IXMDOMElement, IXMLDOMNodeList)

La méthode getElementsByTagName("moid") de l'objet document renvoie une liste de noeuds itérable par For Each. Le "texte" d'un noeud est dans la propriété Text. Pour savoir si un élément a des fils, méthode HasChildNodes. Pour vérifier le type je me sers de la propiété BaseName de l'élément.

Enfin, le DOM implémente les requête XPath qui sont bien pratiques.

[newcodeur]

si j'ai bien compris je dois utiliser la méthode getelement by tag name
et à quoi sert le Xpath car je suis débutant en la matière.
Merci de ta réponse.

[Laestic]

XPath permet d'écrire des requêtes pour parcourir un document XML. C'est un langage avec une syntaxe pas compliquée, plus d'infos là :
http://www.dil.univ-mrs.fr/~massat/ens/xml/4-xpath.html

Petit guide très bien fait.

[newcodeur]

Salut Laestic j'ai lu la doc sur le xpath par contre je ne comprend pas comment le coder en vba excel par rapport à mon code.

Le probleme est que actuellement j'utilise un tableau pour optimiser le temps de traitement seulement lorsque j'arrive à un noeud qui ne contientpas de texte mon tableau ne peut pas se remplir j'ai cherché partout mais je n'y arrive tj pas.


est-ce qu'il saurait possible que j'arrive à remplir mon tableu de type string meme si une balise n'a pas de texte?????

[newcodeur]

Je viens de revérifier mon doc xml au fait le pb n'est pas que la balise moid est vide mais plutot qu'il y en a pas.
je te montre la structure du doc:

Code xml :

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
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
<mi>
<mts>20080528001500Z</mts>
<gp>900</gp>
<mt>pmBwErrBlocks</mt>
<mt>pmBwLostCells</mt>
<mt>pmBwMissinsCells</mt>
<mt>pmFwErrBlocks</mt>
<mt>pmFwLostCells</mt>
<mt>pmFwMissinsCells</mt>
<mt>pmLostBrCells</mt>
<mt>pmLostFpmCells</mt>
<mv>
<moid>ManagedElement=1,TransportNetwork=1,Aal2PathVccTp=MOD1-22-1-Vp2-Vc342</moid>
<r>0</r>
<r>0</r>
<r>0</r>
<r>0</r>
<r>0</r>
<r>0</r>
<r>0</r>
<r>0</r>
</mv>
<mv>
<moid>ManagedElement=1,TransportNetwork=1,Aal2PathVccTp=MOD1-22-1-Vp2-Vc340</moid>
<r>0</r>
<r>0</r>
<r>0</r>
<r>0</r>
<r>0</r>
<r>0</r>
<r>0</r>
<r>0</r>
</mv>
</mi>
</md>
<md>
<neid>
<neun></neun>
<nedn>SubNetwork=ONRM_RootMo,MeContext=MGPO1</nedn>
<nesw>CXP9012221/2_R2B02</nesw>
</neid>
<mi>
<mts>20080528001500Z</mts>
<gp>900</gp>
<mt>pmBwErrBlocks</mt>
<mt>pmBwLostCells</mt>
<mt>pmBwMissinsCells</mt>
<mt>pmFwErrBlocks</mt>
<mt>pmFwLostCells</mt>
<mt>pmFwMissinsCells</mt>
<mt>pmLostBrCells</mt>
<mt>pmLostFpmCells</mt>
</mi>
</md>
<md>
<neid>
<neun></neun>
<nedn>SubNetwork=ONRM_RootMo,MeContext=MGPO1</nedn>
<nesw>CXP9012221/2_R2B02</nesw>
</neid>
<mi>
<mts>20080528001500Z</mts>
<gp>900</gp>
<mt>pmBwErrBlocks</mt>
<mt>pmBwLostCells</mt>
<mt>pmBwMissinsCells</mt>
<mt>pmFwErrBlocks</mt>
<mt>pmFwLostCells</mt>
<mt>pmFwMissinsCells</mt>
<mt>pmLostBrCells</mt>
<mt>pmLostFpmCells</mt>
<mv>
<moid>ManagedElement=1,TransportNetwork=1,Aal2PathVccTp=MOD2-22-1-Vp2-Vc342</moid>
<r>0</r>
<r>0</r>
<r>0</r>
<r>0</r>
<r>0</r>
<r>0</r>
<r>0</r>
<r>0</r>
</mv>
<mv>
<moid>ManagedElement=1,TransportNetwork=1,Aal2PathVccTp=MOD2-22-1-Vp2-Vc340</moid>
<r>0</r>
<r>0</r>
<r>0</r>
<r>0</r>
<r>0</r>
<r>0</r>
<r>0</r>
<r>0</r>

1. donc du début du fichier jusqu'a la fin il y a bien des balises moid.
2. a un certain moment je n'en est plus et c'est la que mon tableau bloque
je pense qu'il ne peut pas inscrire de valeurs vu qu'il n'y a rien.

3. j'ai encore une balise moid mais je n'arrive pas a atteindre cette étape.

3.

[Laestic]

Pour avoir tous les noeuds Moid et récupérer leur texte :

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
Option Base 0
 
Dim monXml As New DOMDocument
Dim oListeNoeuds As iXMLDOMNodeList
Dim oNdMoid As IXMLDOMElement
Dim tabMoid() As String
 
monXml.Load("mon chemin...")
 
' recherche des balises
set oListeNoeuds = monXml.getElementsByTagName("moid")
If oListeNoeuds.Length > 0
	' dimensionnement du tableau
	ReDim tabMoid(oListeNoeuds.Length)
	iCpt = 0
	' parcours de toutes les balises trouvées
	For Each oNdMoid In oListeNoeuds
		tabMoid(iCpt) = oNdMoid.Text
		iCpt = iCpt + 1
	Next
Endif

[newcodeur]

merci pour ta réponse j'ai trouvé la solution a mon pb il falliat que je rajoute juste un else et puis je met la valeur vide si aucune balise moid est trouvée.

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
48
49
50
51
52
53
54
55
 
 
For Each Enfants_de_mv In ListeEnfants_de_mv
                                             intrr = 7
 
                                            If Enfants_de_mv.nodeName = "moid" Then
                                            'ActiveSheet.Cells(intL, 3).Value = Enfants_de_mv.nodeTypedValue
                                             'intL = intL + 1
 
                                           ReDim Preserve tab_moid(1 To i_moid)
                                            tab_moid(i_moid) = Enfants_de_mv.nodeTypedValue
                                            i_moid = i_moid + 1
 
                                            End If
 
                                            '***********************modif******************
 
                                           If Enfants_de_mv.nodeName = "r" Then
 
                                            'ActiveSheet.Cells(intL -1, intR).Value = Enfants_de_mv.nodeTypedValue
                                            ActiveSheet.Cells(intrr, intR).Value = Enfants_de_mv.nodeTypedValue
                                            intR = intR + 1
 
                                            'ReDim Preserve tabvalue_r(1 To ivalue_r)
                                            'tabvalue_r(ivalue_r) = Enfants_de_mv.nodeTypedValue
                                            'ivalue_r = ivalue_r + 1
 
 
 
                                            End If
 
                                    '**************balise indiquant un fichier faux************
                                    If Enfants_de_mv.nodeName = "sf" Then
 
                                    ActiveSheet.Cells(intL - 1, 2).Value = Enfants_de_mv.nodeTypedValue
                                    Cells(intL - 1, 2).Font.ColorIndex = 3
                                    'Rows(intL).Interior.Color = 3
 
                                    End If
                                    '****************************************************************
 
                                                                ActiveSheet.Columns.AutoFit
                                                                  Next Enfants_de_mv
 
                                    '**********on reset  intR sur la ligne du dessous***********
                                    'intR = 4
                                    '***************************************************************
                            Else
 
                            ReDim Preserve tab_moid(1 To i_moid)
                            tab_moid(i_moid) = "vide"
 
 
 
                                End If