Bonjour,
Je souhaite convertir une pack de balise xml en une pure string.
ci-dessous mon fichier 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
<?xml version="1.0" encoding="utf-8"?>
<root>
  <REST_CFG>
    <entry title="1003" fullressource="http://localhost:8580/element_collection/storage/shows/{912D2589-4707-4DDA-888A-E7C95F710B47}/elements/1003/" ressource="/element_collection/storage/shows/{912D2589-4707-4DDA-888A-E7C95F710B47}/elements/1003" profile="REST_PROFIL">
      <payload_pack>
        <payload xmlns="http://www.vizrt.com/types" model="http://localhost:8580/models/vdf/storage/shows/%7B912D2589-4707-4DDA-888A-E7C95F710B47%7D/mastertemplates/TXTTXT_01">
          <field name="01">
            <value>Page 2000 : Edit and Save page 2000 - New texte...</value>
          </field>
          <field name="02">
            <value>other line...</value>
          </field>
        </payload>
      </payload_pack>
    </entry>
  </REST_CFG>
</root>
ici, le parser en LINQ (simple) :
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
 
    Public Function CFG_Load_Rest(ByVal FileName As String) As DataTable
        Dim Table As New DataTable
 
        ' création de la table
        Table.Columns.Add("title", GetType(String))
        Table.Columns.Add("fullressource", GetType(String))
        Table.Columns.Add("ressource", GetType(String))
        Table.Columns.Add("profile", GetType(String))
        Table.Columns.Add("payload", GetType(String))
        ' Table.Columns.Add("payload", GetType(Xelement))
 
        'load le xml
        Dim xdoc As XDocument = XDocument.Load(FileName)
 
        For Each ele In xdoc.Root.Element("REST_CFG").Elements
            Dim row As DataRow = Table.NewRow
            row(0) = ele.@title
            row(1) = ele.@fullressource
            row(2) = ele.@ressource
            row(3) = ele.@profile
 
            ' tentative de convertir le pack xml en string
            Dim toto As String = ele...<payload_pack>.Descendants.ToString
            'row(4) = toto
            Table.Rows.Add(row)
            row = Nothing
        Next
        xdoc = Nothing
        Return Table
    End Function
Sur toto, j'aimerai avoir le "pur texte" de la balise (+ descendant) : payload et le charger dans une CELL de la row.
Bon, le mieux serai de :
- Directement mettre dans la colonne payload (setée en Xelement), le pack complet xml de payload du fichier xml.
j'espere que je suis assez clair
Voua avez une idée ?

Patrick