Modification d'un fichier XML - La sauvegarde modifie l'Encoding

Bonsoir,

Je souhaite réaliser la modification d'un fichier Xml existant.

Voici le fichier XML :

Code:

---

1 2 3 4 5 6 7 8 9 10 11

<?xml version="1.0" encoding="ISO-8859-1"?> <stream> <configuration> <number>a1-b2-c3-d4-c5</number> <host></host> <ip>192.168.1.10</ip> <plus> <port>8083</port> </plus> </configuration> </stream>

---

Mon code ci-dessous va renseigné une valeur sur Host et supprimer la valeur ip.
La modification s'effectue correctement. Par contre l'enregistrement du fichier XML modifie la valeur encoding.
J'obtiens : <?xml version="1.0" encoding="utf-8"?>
L'application tiers du coup supprime le contenu de number lors du lancement et n'arrive pas à lire le fichier xml.

Mon code :

Code:

---

1 2 3 4 5 6 7 8 9 10

Dim xEle As XElement = XElement.Load("test.xml") Dim ip = xEle.Elements("configuration").Elements("ip").ToList() Dim host = xEle.Elements("configuration").Elements("host").ToList() For Each IPXml As XElement In ip IPXml.ReplaceNodes("") Next IPXml For Each HOSTXml As XElement In host HOSTXml.ReplaceNodes("serveur") Next HOSTXml xEle.Save("test.xml")

---

Je remercie ceux ou celle qui pourront m'apporter leur aide par avance.
Mike

Salut,

Essaies de charger ton document à partir de la classe XDocument et non XElement comme suit :

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Dim doc as XDocument = XDocument.Load("test.xml") Dim ip = doc.Root.Elements("configuration").Elements("ip").ToList() Dim host = doc.Root.Elements("configuration").Elements("host").ToList() For Each IPXml As XElement In ip IPXml.ReplaceNodes("") Next IPXml For Each HOSTXml As XElement In host HOSTXml.ReplaceNodes("serveur") Next HOSTXml   doc.Save("test.xml")

---

Si ça ne marche toujours pas alors avant l'exécution de la ligne doc.Save("test.xml") tu ajoutes l'instruction suivante doc.Document.Declaration.Encoding = "ISO-8859-1" pour forcer l'encodage.

Merci ça fonctionne.

ça faisait trois semaines que j'essayais en vain de trouver une réponse sur internet.

J'ai n'ai pas eu besoin d'utiliser le code suivant :

Code:

---

doc.Document.Declaration.Encoding = "ISO-8859-1"

---

Mais je l'ai conservé en la désactivant.