Discussion :

[megamario]

Bonjour à tous,

J'ai pas fait énormément de XML jusqu’à présent et en plus c'etait uniquement en VB.net. et la malgré quelques exemples que j'ai trouvé, je but sur la lecture du XML pour parcourir le fichier.

Le XML est très simple, il va contenir les équipements sur lequel mon logiciel pourra ce connecter (en port COM ou IP), avec la possibilité d'en rajouter bien sur, mais sa j'y arrive.

Un exemple XML:

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
 
<?xml version="1.0" encoding="UTF-16" standalone="no"?>
<equipment Créé_le="05/09/2016">
	<device num="1">
		<ExplicitName>COM1_9600</ExplicitName>
		<UniqueKey>1</UniqueKey>
		<ConnectMode>1</ConnectMode>
		<SlaveAddress>-1</SlaveAddress>
		<TCP>22</TCP>
		<ComPortNumber>1</ComPortNumber>
		<ComPortParam>9600,8,n</ComPortParam>
		<DCBAdditionalCtrl/>
		<TimeOutScale>50</TimeOutScale>
		<LastConnection/>
		<LastStatusUpdate/>
		<Status/>
		<CustomerNotes>essaie1</CustomerNotes>
		<RemoteDescriptor/>
		<InCallToAck/>
		<LevelAccess>1</LevelAccess>
	</device>
	<device num="2">
		<ExplicitName>COM2_38400</ExplicitName>
		<UniqueKey>2</UniqueKey>
		<ConnectMode>1</ConnectMode>
		<SlaveAddress>-1</SlaveAddress>
		<TCP>22</TCP>
		<ComPortNumber>2</ComPortNumber>
		<ComPortParam>38400,8,n</ComPortParam>
		<DCBAdditionalCtrl/>
		<TimeOutScale>20</TimeOutScale>
		<LastConnection/>
		<LastStatusUpdate/>
		<Status/>
		<CustomerNotes/>
		<RemoteDescriptor/>
		<InCallToAck/>
		<LevelAccess>2</LevelAccess>
	</device>
</equipment>

Ce que je voudrais c'est parcourir et lire chaque "device" et récupérer le "num". Ensuite récupérer le "ExplicitName". Afin de remplir un dropbox avec donc le nom des equipements.

Actuellement j'utilise:

Code :

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

1
2
    Dim eqpmDOMDocument As MSXML2.IXMLDOMDocument
    Dim oDeviceEqpm As MSXML2.IXMLDOMElement

Je continu à chercher mais si vous avez des info, merci

PS: J'ai créé ce XML à partir du code donc sa cela va.

[megamario]

Bon ba j'ai réussi à adapter ce que j'ai trouvé:

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
 
Public Sub ShearchAllEquipment()
 
    Dim eqpmDOMDocument As MSXML2.IXMLDOMDocument
    Dim oNoeudDevice As MSXML2.IXMLDOMElement
    Dim oListeNoeuds As MSXML2.IXMLDOMNodeList
    Dim oNoeud As MSXML2.IXMLDOMNode
    Dim Attribut As String
 
    Set eqpmDOMDocument = New MSXML2.DOMDocument
    eqpmDOMDocument.async = False
 
    If eqpmDOMDocument.Load(fileXML) Then
        Set equimentlist = New Collection
        For Each oNoeudDevice In eqpmDOMDocument.getElementsByTagName("device")
            If IsNull(oNoeudDevice.getAttribute("num")) Then
                Attribut = ""
            Else
                Attribut = oNoeudDevice.getAttribute("num")
                Set oListeNoeuds = oNoeudDevice.childNodes
                For Each oNoeud In oListeNoeuds
                    If oNoeud.nodeName = "ExplicitName" Then
                        equimentlist.Add oNoeud.Text, Attribut
                        If CInt(Attribut) >= NumKeyUnique Then
                            NumKeyUnique = CInt(Attribut) + 1
                        End If
                        Exit For
                    End If
                Next
            End If
 
        Next
    Else
        'Error file XML
 
    End If
 
 
    Set oNoeud = Nothing
    Set oListeNoeuds = Nothing
    Set oNoeudDevice = Nothing
    Set eqpmDOMDocument = Nothing
 
 
End Sub