Discussion :

[Franck.H]

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 :

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
        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:

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 :

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

<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

[Franck.H]

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

Code :

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

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:

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 :

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

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

[Franck.H]

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

Code :

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

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

Par contre j'arrive pas à ajouter le xmlnssi

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

Code :

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

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

[chrismonoye]

Bonjour,
à tester :

Code :

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

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")

[Franck.H]

Impec