Problème de lecture d'un fichier XML

Version imprimable

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:

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:

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

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

Code:

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

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

Code:

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

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

Code:

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

Citation:
Envoyé par 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:

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.

Citation:
Envoyé par chrismonoye
Et encore plus simple avec le code du départ :
Code:

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 ?

11/08/2010, 15h25
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.
11/08/2010, 15h29
Cyborg289
EN fait le fichier XML est composée d'une multitude d'entrées comme celle de mon premier poste
Pour chaque base de données il y a un entrée de type SERVICE, pour chacune d'entre elles, je doit récupérer l'alias et le port de la base de données donc le contenu des entrées suivantes :
Code:

1 2 <SERVICE alias="ALIAS_DB"> <PORT>1521</PORT>
Merci de ton aide
11/08/2010, 15h35
Bluedeep

Citation:

Envoyé par 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 le cas contraire, il me semble que le "Load" plante.

EN effet voilà la structure globale :

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
<TNSNAMES xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xsi:noNamespaceSchemaLocation="tns.xsd">
	<SERVICE alias="ALIASDB">
		<DESCRIPTION_LIST>
			<DESCRIPTION>
				<ADDRESS_LIST>
					<ADDRESS>
						<PROTOCOL>TCP</PROTOCOL> 
						<HOST>HOSTNAME</HOST> 
						<PORT>1521</PORT> 
					</ADDRESS>
				</ADDRESS_LIST>
				<CONNECT_DATA>
					<SID>DBNAME</SID> 
				</CONNECT_DATA>
			</DESCRIPTION>
		</DESCRIPTION_LIST>
	</SERVICE>
	<SERVICE alias="ALIASDB">
		<DESCRIPTION_LIST>
			<DESCRIPTION>
				<ADDRESS_LIST>
					<ADDRESS>
						<PROTOCOL>TCP</PROTOCOL> 
						<HOST>HOSTNAME</HOST> 
						<PORT>1521</PORT> 
					</ADDRESS>
				</ADDRESS_LIST>
				<CONNECT_DATA>
					<SID>DBNAME</SID> 
				</CONNECT_DATA>
			</DESCRIPTION>
		</DESCRIPTION_LIST>
	</SERVICE>
</TNSNAMES>

Ce n'est pas propre.
Faire un for each sur une seule valeur ...
Mais c'est une base qui fonctionne.

Code:

1
2
3
4
5
6
7
8
9
        Dim root As XmlElement = XmlDoc.DocumentElement
        For i As Integer = 0 To root.ChildNodes.Count - 1
            Dim noeud As XmlElement = CType(root.ChildNodes.Item(i), XmlElement)
            Dim element As XmlNodeList
            element = noeud.GetElementsByTagName("PORT")
            For Each Val As XmlNode In element
                MessageBox.Show(noeud.GetAttribute("alias") & ", " & Val.InnerText)
            Next
        Next

A retravailler.

Citation:

Envoyé par chrismonoye

Ce n'est pas propre.
Faire un for each sur une seule valeur ...
Mais c'est une base qui fonctionne.

Code:

1
2
3
4
5
6
7
8
9
        Dim root As XmlElement = XmlDoc.DocumentElement
        For i As Integer = 0 To root.ChildNodes.Count - 1
            Dim noeud As XmlElement = CType(root.ChildNodes.Item(i), XmlElement)
            Dim element As XmlNodeList
            element = noeud.GetElementsByTagName("PORT")
            For Each Val As XmlNode In element
                MessageBox.Show(noeud.GetAttribute("alias") & ", " & Val.InnerText)
            Next
        Next

A retravailler.

Merci beaucoup, ça marche, je vais essayer de faire mieux :ccool: