Discussion :

[MikeGuibs]

Bonsoir,

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

Voici le fichier XML :

Code xml :

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

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

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

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

[Invité]

Salut,

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

Code VB.Net :

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

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.

[MikeGuibs]

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 :

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

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

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