Dim xmlDocument As XmlDocument = New XmlDocument() xmlDocument.Load(Server.MapPath("txtintro.xml")) ' Crée un nouvel élement <noeud1> et l'ajoute à la racine Dim noeudParent As XmlElement = xmlDocument.CreateElement("intro") ' Définit le nom et la valeur de l'attribut noeudParent.SetAttribute("ID", txtID.Text) xmlDocument.DocumentElement.PrependChild(noeudParent) ' Crée les noeuds requis Dim noeudTitre As XmlElement = xmlDocument.CreateElement("titre") Dim noeudAuteur As XmlElement = xmlDocument.CreateElement("Auteur") Dim titreContenuText As XmlText = xmlDocument.CreateTextNode(txtTitre.Text) Dim auteurContenuText As XmlText = xmlDocument.CreateTextNode(txtAuteur.Text) ' Affecte les noeuds au noeudParent sans la valeur noeudParent.AppendChild(noeudTitre) noeudParent.AppendChild(noeudAuteur) ' La valeur des noeuds noeudTitre.AppendChild(titreContenuText) noeudAuteur.AppendChild(auteurContenuText) ' On sauvegarde dans le fichier XML Dim listeNoeuds As XmlNodeList = xmlDocument.SelectNodes("/introductions/intro[@ID=" & txtID.Text & "]") xmlDocument.Save(Server.MapPath("txtintro.xml")) lblEtat.Text = "Données enregistrées"
<?xml version="1.0" encoding="utf-8"?> <titre>Test n°2</titre> Mathieu <noeud1 ID="1"> <titre>Test</titre> <noeudAuteur>Mathieu</noeudAuteur> </noeud1>
<titre>Test</titre> Mathieu
Imports System.Xml
<%@ Import Namespace="System.Xml" %>
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question