MODIFIER LE FICHIER "SETTINGS.SETTINGS" À PARTIR DU NOM DE L'ATTRIBUT
Renfield
Messages postés
17287
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
27 septembre 2021
-
4 mai 2009 à 15:01
Renfield Messages postés 17287 Date d'inscription mercredi 2 janvier 2002 Statut Modérateur Dernière intervention 27 septembre 2021 - 4 mai 2009 à 15:30
Renfield Messages postés 17287 Date d'inscription mercredi 2 janvier 2002 Statut Modérateur Dernière intervention 27 septembre 2021 - 4 mai 2009 à 15:30
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/49950-modifier-le-fichier-settings-settings-a-partir-du-nom-de-l-attribut
https://codes-sources.commentcamarche.net/source/49950-modifier-le-fichier-settings-settings-a-partir-du-nom-de-l-attribut
4 mai 2009 à 15:30
il faut tenir compte du namespace, définit dans le documentElement
Dim xmlDocument As New Xml.XmlDocument
Dim xmlNode As Xml.XmlNode
xmlDocument.Load("c:\a.xml")
Dim xmlNS As New Xml.XmlNamespaceManager(xmlDocument.NameTable)
xmlNS.AddNamespace("a", "http://schemas.microsoft.com/VisualStudio/2004/01/settings")
xmlNode = xmlDocument.DocumentElement.SelectSingleNode("a:Settings/a:Setting[@Name='nomReseau']/a:Value", xmlNS)
If Not Nothing Is xmlNode Then
MessageBox.Show("ancienne valeur: " & xmlNode.InnerText)
xmlNode.InnerText = "ma nouvelle valeur"
xmlDocument.save("c:\b.xml")
End If
4 mai 2009 à 15:01
Dim xmlDocument As New DOMDocument
Dim xmlNode As IXMLDOMNode
xmlDocument.Load "c:\a.xml"
Set xmlNode = xmlDocument.selectSingleNode("//SettingsFile/Settings/Setting[@Name='nomReseau']/Value")
If Not Nothing Is xmlNode Then
MsgBox "ancienne valeur: " & xmlNode.Text
xmlNode.Text = "nouvelle valeur"
xmlDocument.save "c:\b.xml"
End If