Récupérer les noms des éléments d'une structure pour construire un fichier xml

Version imprimable

Bonjour,

Je cherche à récupérer le nom de chaque élément contenu dans une structure faisant parti elle meme d'une structure.
Voici à quoi ressemble ma structure:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Public Structure PARTITION_STRUCT
	Public ZSystem As ZSYS
	Public ZCount As ZCOUNT
End Structure
 
'Structure ZSYS
Public Structure ZSYS
	Public SNB As UInt64	
	Public PID As Byte
	Public KID As String
End Structure
 
'Structure ZCOUNT
Public Structure ZCOUNT
	Public RELOADING1 As String
	Public COUNTER1 As String
End Structure

L'idée étant d'obtenir ce format en xml:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
<SRT512>
  <PARTITIONS>
    <ZSystem>
		<SNB>SNB value<SNB />
		<PID>PID value<PID />
		<KID>KID value<KID />
	    <ZSystem />
    <ZCount>
		<RELOADING1>RELOADING1 value<RELOADING1 />
		<COUNTER1>COUNTER1 value<COUNTER1 />
    <ZCount />
  </PARTITIONS>
</SRT512>

Pour le moment j'arrive à récupérer les noeuds principaux "ZSystem" et "ZCount", mais je n'arrive pas à descendre dans l'arborescence:

Voilà mon code qui fonctionne jusque là:

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
Public function SRT512ToXml(byval pPartition As PARTITION_STRUCT) As XmlDocument
 
'création d'une nouvelle instance du membre xmldocument
Dim XmlDoc As XmlDocument = New XmlDocument()
 
'création du document
XmlDoc.LoadXml("<SRT512><SRT512 />")
 
'Création de la balise <PARTITIONS>
Dim XmlElemPart As XmlElement = XmlDoc.CreateElement("PARTITIONS")
 
'creation des balises incluses dans la balise <PARTITIONS> à partir de la structure PARTITION_STRUCT
For Each ZoneField In pPartition.GetType.GetFields
	Dim XmlElemZone As XmlElement	
	XmlElemZone = XmlDoc.CreateElement(ZoneField.Name)
 
		'creer un noeud pour chaque sous éléments de l'élément Zone
		For Each ..................................... =========================> la je ne sais pas comment faire
		Dim XmlElemSub As XmlElement	
		XmlElemSub = XmlDoc.CreateElement(.......)
 
		Next
'j'ajoute l'element Zone à l'element Partition
XmlElemPart.AppendChild(XmlElemZone)
 
Next
 
'j'joute l'élément Partitions au document
XmlDoc.DocumentElement.AppendChild(XmlElemPart)
 
return XmlDoc

bonjour

Bah tu peux faire ceci:

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
35
36
 
Public Class Form2
 
 
Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
        Dim part As New PARTITION_STRUCT
        part.ZSystem = New ZSYS(14, 255, "KID")
        part.ZCount = New ZCOUNT("alpha", "beta")
        Dim doc As XmlDocument
        doc = SerializeToXmlDocument(part)
        ' Save the document to a file.
        doc.Save("partition.xml")
    End Sub
Public Function SerializeToXmlDocument(input As Object) As XmlDocument
        Dim ser As XmlSerializer = New XmlSerializer(input.GetType(), "http://schemas.yournamespace.com")
 
 
        Dim xd As XmlDocument = Nothing
        Using memStm As MemoryStream = New MemoryStream()
            ser.Serialize(memStm, input)
 
            memStm.Position = 0
 
            Dim settings As New XmlReaderSettings()
 
            settings.IgnoreWhitespace = True
 
            Using xtr As XmlReader = XmlReader.Create(memStm, settings)
                xd = New XmlDocument()
                xd.Load(xtr)
            End Using
        End Using
 
        Return xd
    End Function
End Class

bon code...

08/08/2019, 16h54
yaume91

Merci, je ne connaissais pas cette facon de faire.

Par contre j'ai une erreur lors de l'execution en mode debug

Citation:

System.IO.FileNotFoundException: Could not load file or assembly 'test.XmlSerializers.-

dont j'ai trouvé l'explication ici https://cdiese.fr/exceptions-a-lutil...xmlserializer/

J'avoue ne pas avoir tout compris de l'explication, mais si je comprends bien cette erreur est "normal", en meme temps je ne vois pas du tout comment réussir à la contourner.

Quelle serait la logiqiue d'un "bon" :) developpeur sur un cas comme ca ?