Discussion :

[Cyborg289]

Bonjour,

J'ai un fichier XML qui représente un fichier tnsnames.ora (ORACLE) pour ceux qui connaissent, voici comment il est présenté :

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
 
- <SERVICE alias="ALIAS_DB">
- <DESCRIPTION_LIST>
- <DESCRIPTION>
- <ADDRESS_LIST>
- <ADDRESS>
  <PROTOCOL>TCP</PROTOCOL> 
  <HOST>HOSTNAME</HOST> 
  <PORT>1521</PORT> 
  </ADDRESS>
  </ADDRESS_LIST>
- <CONNECT_DATA>
  <SERVICE_NAME>SERVICE_NAME</SERVICE_NAME> 
  </CONNECT_DATA>
  </DESCRIPTION>
  </DESCRIPTION_LIST>
  </SERVICE>

J'aimerai le parcourir et pour chaque service récupérer l'alias et le port, j'ai regardé un peu la FAQ et fait un essai avec le code suivant qui devrait me renvoyer le port mais ca ne donne rien, si quelqu'un peut m'aider :

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
Public Sub TraiteXml2()
        Dim port As String
        Dim i As Integer = 0
        Dim XmlDoc As XmlDocument = New XmlDocument()
        XmlDoc.Load("D:\Sqlserver\Projects\ListeBaseOracleV2\ListeBaseOracleV2\tnsnames_ep.xml")
        Dim element As XmlNodeList
        element = XmlDoc.DocumentElement.GetElementsByTagName("ADDRESS")
        Dim noeud As XmlNode
 
        For Each noeud In element
            If noeud.LocalName = "PORT" Then
                port = noeud.InnerText
            End If
        Next
 
    End Sub

[Hinault Romaric]

Je crois que GetElementsByTagName() se limite juste aux nœuds parents et n'entre pas dans les sous nœuds Essaye ceci

Code :

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

1
2
3
4
5
6
7
8
9
10
 
Dim element As XmlNodeList
        element = XmlDoc.SelectNodes("ADDRESS_LIST/ADDRESS")
        Dim noeud As XmlNode
 
        For Each noeud In element
            If noeud.LocalName = "PORT" Then
                port = noeud.InnerText
            End If
        Next

[chrismonoye]

Bonjour,
il manque l'arborescence complète pour arriver à ADDRESS, et la propriété childNodes pour analyser ses noeuds enfants :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
        Dim element As XmlNodeList
        element = XmlDoc.SelectNodes("SERVICE/DESCRIPTION_LIST/DESCRIPTION/ADDRESS_LIST/ADDRESS")
        Dim noeud As XmlNode
        Dim childNoeud As XmlNode
 
        For Each noeud In element
            For Each childNoeud In noeud.ChildNodes
                If childNoeud.LocalName = "PORT" Then
                    port = childNoeud.InnerText
                    MessageBox.Show(port)
                End If
            Next
        Next

[chrismonoye]

Et encore plus simple avec le code du départ :

Code :

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

1
2
3
4
5
6
7
        element = XmlDoc.DocumentElement.GetElementsByTagName("PORT")
        Dim noeud As XmlNode
 
        For Each noeud In element
            port = noeud.InnerText
            MessageBox.Show(port)
        Next

[Cyborg289]

Et encore plus simple avec le code du départ :

Code :

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

1
2
3
4
5
6
7
        element = XmlDoc.DocumentElement.GetElementsByTagName("PORT")
        Dim noeud As XmlNode
 
        For Each noeud In element
            port = noeud.InnerText
            MessageBox.Show(port)
        Next

Merci ça fonctionne ! Par contre comment récupérer dans le même temps le nom du service ("ALIAS_DB" dans mon fichier XML) et le port ?

[chrismonoye]

Je ne connais pas du tout Oracle.
Dans le XMl, y a t'il plusieurs noeuds SERVICE ?
Si oui, il doit y avoir un élément racine unique.
Dans ce cas le début du XML serait utile à voir.

[Cyborg289]

Je crois que GetElementsByTagName() se limite juste aux nœuds parents et n'entre pas dans les sous nœuds Essaye ceci

Code :

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

1
2
3
4
5
6
7
8
9
10
 
Dim element As XmlNodeList
        element = XmlDoc.SelectNodes("ADDRESS_LIST/ADDRESS")
        Dim noeud As XmlNode
 
        For Each noeud In element
            If noeud.LocalName = "PORT" Then
                port = noeud.InnerText
            End If
        Next

Malheureusement je n'ai aucun résultat avec cette méthode non plus.
Il semble qu'il ne trouve aucune occurrence dans mon fichier XML, je ne comprends pas pourquoi, surement le XPATH qui ne lui convient pas.