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

Renfield
Messages postés
17287
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
27 septembre 2021
71
4 mai 2009 à 15:30
en .NET c'est un poil plus complexe:
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
Renfield
Messages postés
17287
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
27 septembre 2021
71
4 mai 2009 à 15:01
en VB6:
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