Discussion :

[betaphp]

salut tout le monde
j'ai dans mon logiciel un fichier xml qui contient la configuration du logiciel.
police, taille, couleur...
au chargement de mon application je récupére mon fichier xml et applique le contenu à mon application jusque là tout va bien !
je donne maintenant la possibilitée a l'utilisateur de pouvoir modifier sa police, taille, etc ...

j'aimerais donc dans un premier temps pouvoir modifier mon fichier XML avec le nom et la taille de la nouvelle police.
voici mon fichier xml pour le moment

Code :

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

1
2
3
4
5
6
7
 
<?xml version="1.0" encoding="ISO-8859-1"?>
<config>
  <p>Arial</p>
  <t>12</t>
  <c> FF0000 </c>
</config>

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
 
Dim po As String = cbPolice.SelectedItem
Dim ta As Integer = cbTaille.SelectedItem
Dim DocXml As New XmlDocument
Dim Noeud As XmlNode
Dim Noeuds As XmlNodeList
Dim cri As String
    Try
            DocXml.Load("config.xml")
            sCritere = "config"
            Noeud = DocXml.SelectSingleNode(cri)
            Noeuds = Noeud.ChildNodes
 
            For Each Noeud In Noeuds
                Select Case Noeud.Name
                    Case "p"
                        Noeud.InnerText = po
                    Case "t"
                        Noeud.InnerText = ta
                End Select
            Next
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try

rien ne s'affiche, pas d'erreur, pas de modifications non plus d'ailleurs
une idée ? un coup de main ? merci !

[neguib]

As-tu regarder le code source de lecture/ecriture d'un fichier config de Morpheus
http://morpheus.developpez.com/trucs/classes/

[betaphp]

salut ! euhh je comprends pas tout dans son code ... dommage qu'il ne donne pas le fichier xml avec j'aurais peut etre mieux compris ...

[betaphp]

j'ai un peu avancé ...

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
Dim XMLconfig As XmlDocument = New XmlDocument
        XMLconfig.Load("config.xml")
        Dim node As XmlNode = XMLconfig.DocumentElement
        For Each node In node.ChildNodes
            If node.Name = "police" Then
                MessageBox.Show("police")
            ElseIf node.Name = "taille" Then
                MessageBox.Show("taille")
            End If
        Next
        XMLconfig.Save("config.xml")

j'arrive a passer dans la boucle If et afficher police et taille...
il me faut donc maintenant modifier le MessageBox.Show
par l'enregistrement dans mon fichier xml...

[betaphp]

c'est bon c'est trouvé !!

[neguib]

alors (bouton en bas à gauche)