XmlWriter & Ajout d'attibuts

:salut:

Tout d'abord bonne année à celles et ceux qui me lisent.

Ce que je veux faire, c'est générer un fichier XML avec des données, j'ai fait un petit test du peu que j'ai déjà écrit mais j'ai un petit problème, voici le code:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 Dim _filename As String = "J:\D2I\Franck\0123456789-SANDRE-2014-EPU136.xml" Dim _writer = XmlWriter.Create(_filename) '* Ajout de l'en-tête XML standard _writer.WriteStartDocument() '* Ajout de l'élément parent _writer.WriteStartElement("DESC_EPR") _writer.WriteAttributeString("xmlns", "http://xml.sandre.eaufrance.fr/exist/sandre/Schemas/scenario/desc_epr/2.2/") _writer.WriteAttributeString("xmlns:xsi", "http://www.w3.org/2001/XMLSchema-instance") '* Ajout de la balise Scenario _writer.WriteStartElement("Scenario") _writer.WriteElementString("CodeScenario", "DESC_EPR") _writer.WriteElementString("VersionScenario", "2.2") _writer.WriteElementString("NomScenario", "Description d'un plan d'épandage") _writer.WriteElementString("DateCreationFichier", Date.Today.ToString(Date.Today.ToString("yyyy-MM-dd"))) _writer.WriteElementString("ReferenceFichierEnvoi", _filename) _writer.WriteEndElement() 'Scenario _writer.WriteEndElement() 'Elément parent _writer.WriteEndDocument() _writer.Close()
Le message:

Citation:

Le préfixe '' ne peut pas être redéfini à partir de '' vers 'http://xml.sandre.eaufrance.fr/exist/sandre/Schemas/scenario/desc_epr/2.2/' au sein de la même balise d'élément de début.

Cela viens de l'ajout des attributs de la balise DESC_EPR qui devrait ressembler à ceci au final:

Code:

<DESC_EPR xmlns="http://xml.sandre.eaufrance.fr/exist/sandre/Schemas/scenario/desc_epr/2.2/" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance">

Si quelqu'un peut me dire comment faire svp

:merci:

Dans le même esprit, lorsque je fait ceci:
Code:

1 2 3 4 5 _writer.WriteStartElement("Emetteur") _writer.WriteElementString("CdIntervenant", "25670115200025") _writer.WriteAttributeString("schemeAgencyID", "SIRET") _writer.WriteElementString("NomIntervenant", "SDEA") _writer.WriteEndElement() 'Emetteur
Dont Emetteur est une balise enfant à Scenario j'ai l'erreur suivante:

Citation:

Le jeton StartAttribute dans l'état Element Content générera un document XML non valide.

Il faut qu'au final j'obtienne le bloc suivant:
Code:

1 2 3 4 <Emetteur> <CdIntervenant schemeAgencyID="SIRET">25670115200025</CdIntervenant> <NomIntervenant>SDEA</NomIntervenant> </Emetteur>

Pour le premier problème, je l'ai résolu à moitié, pour le xmlns j'ai fait comme ceci:

Code:

_writer.WriteStartElement("DESC_EPR", "http://xml.sandre.eaufrance.fr/exist/sandre/Schemas/scenario/desc_epr/2.2/")

Par contre j'arrive pas à ajouter le xmlns:xsi

Pour le second problème, il est résolu de cette manière:
Code:

1 2 3 4 5 6 7 _writer.WriteStartElement("Emetteur") _writer.WriteStartElement("CdIntervenant") _writer.WriteAttributeString("schemeAgencyID", "SIRET") _writer.WriteString("25670115200025") _writer.WriteEndElement() 'CdIntervenant _writer.WriteElementString("NomIntervenant", "SDEA") _writer.WriteEndElement() 'Emetteur

Bonjour,
à tester :

Code:

1
2
3
4
5
6
7
8
9
10
        Dim settings As XmlWriterSettings = New XmlWriterSettings()
        settings.Indent = True
        Dim _writer = XmlWriter.Create(_filename, settings)
 
        '* Ajout de l'en-tête XML standard
        _writer.WriteStartDocument()
 
        '* Ajout de l'élément parent
        _writer.WriteStartElement("DESC_EPR", "http://xml.sandre.eaufrance.fr/exist/sandre/Schemas/scenario/desc_epr/2.2/")
        _writer.WriteAttributeString("xmlns", "xsi", Nothing, "http://www.w3.org/2001/XMLSchema-instance")

Impec :ccool:

:merci: