fichier .xml pour remplacer les My.setting
Bonsoir
Actuellement mon programme utilise l'extension my.settings pour sauvegarde le contenu de mes variables.
Mais je souhaite pouvoir sauvegarder mes variables dans un de mes fichiers .xml propre à moi, afin que par la suite je puisse modifier moi meme les valeurs dans le fichiers .xml directement en l'ouvrant.
Ainsi j'ai crée ces deux fonctions sorte de get et set, et j'aurais aimez avoir votre avis sur chacune d'elle ?
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
|
Imports System.Xml
Module settingXML
'###########################################################################
'###########################################################################
'rajouter le controle de la présence du fichier xml sinon on quitte l'application
'adresse du fichier XML
Dim adresse_file_xml As String = "C:\Users\Stevie_Wonder\Documents\log\parametres.xml"
'###########################################################################
' modification du noeud passé en paramétre
'###########################################################################
Public Sub mod_setting(ByVal noeud As String, ByVal valeur As String)
Try
Dim XMLconfig As XmlDocument = New XmlDocument 'declaration d'un fichier xml
XMLconfig.Load(adresse_file_xml) 'je charge le fichier xml
Dim node As XmlNode = XMLconfig.DocumentElement
For Each node In node.ChildNodes 'je parcours chaque noeuds
If node.Name = noeud Then
node.InnerText = valeur 'affectation
End If
Next
XMLconfig.Save(adresse_file_xml) 'enregistrement
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
End Sub
'###########################################################################
' lecture du noeud
'###########################################################################
Public Function lire_setting(ByVal noeud As String) As String
Dim valeur As String = String.Empty
Try
Dim XMLconfig As XmlDocument = New XmlDocument 'declaration d'un fichier xml
XMLconfig.Load(adresse_file_xml)
Dim node As XmlNode = XMLconfig.DocumentElement 'le noeud du xml
For Each node In node.ChildNodes 'je parcours chaque noeuds
If node.Name = noeud Then
valeur = node.InnerText 'lecture
End If
Next
Catch ex As Exception
MessageBox.Show(ex.Message)
Return "error"
End Try
Return valeur
End Function
End Module |
je les utilise et ça fonctionne bien, certes un peu moins pratique que de faire my.settings.mavar = "azerty"
Est ce que c'est aussi votre façon de faire ? ou existe t'il plus simple ?
