Bonjour,
J'ai un fichier XML qui représente un fichier tnsnames.ora (ORACLE) pour ceux qui connaissent, voici comment il est présenté :
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
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>
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
Partager