Discussion :

[pierrotm777]

Je connaissait ce mode pas à pas mais sans l'avoir utilisé et surtout sans comprendre comment l'utiliser !
En gardent la classe telle quelle , j'ai testé le code suivant!

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
25
26
27
28
29
30
31
32
33
Imports System.IO

Public Class Form1
    Dim PluginSettings As cMySettings
    Dim TempPluginSettings As cMySettings

    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load

        ' Settings
        PluginSettings = New cMySettings(Path.Combine(Application.StartupPath, "SettingsXml"))
        ' read in defaults
        cMySettings.DeseralizeFromXML(PluginSettings)

        ' copy to temp
        TempPluginSettings = New cMySettings(PluginSettings)

        TextBox1.Text = TempPluginSettings.PhoneCountryCodes(1)
        Button1.Enabled = False

    End Sub

    Private Sub TextBox1_TextChanged(sender As System.Object, e As System.EventArgs) Handles TextBox1.TextChanged
        TempPluginSettings.PhoneCountryCodes(1) = TextBox1.Text
        Button1.Enabled = True
    End Sub

    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        If cMySettings.Compare(PluginSettings, TempPluginSettings) = False Then
            cMySettings.Copy(TempPluginSettings, PluginSettings)
            cMySettings.SerializeToXML(PluginSettings)
        End If
    End Sub
End Class

Sur la ligne TextBox1.Text = TempPluginSettings.PhoneCountryCodes(1) je vois toujours 33 quelque soit la valeur dans le fichier xml !

[pierrotm777]

Après divers essais, j'ai constaté que le problème est situé au niveau de la fonction SetDefault qui force la variable à 33 au lieu de lire le fichier xml !

Code :

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

1
2
3
4
5
    Public Shared Sub SetToDefault(ByRef Settings)
        'Settings.PhoneCountryCodes = New List(Of String) From {"0", "33", "00"}
        Settings.PhoneCountryCodes = New List(Of String)
 
    End Sub

La fonction compare fonctionne , la copie aussi !

Le seul problème est que si mon fichier xml n'existe pas , il n'est pas créé par défaut !

Dois je rajouter un test sur l'existance de ce fichier dans la fonction SetDefault ou y a-il une meilleur méthode ?

PS j'ai aussi testé avec des ArrayList avec le même résultat

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
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
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
Option Strict Off
Option Explicit On
 
Imports System.IO
Imports System.Xml
Imports System.Xml.Serialization
Imports System.Text
Imports System.Collections.Generic
 
 
Public Class cMySettings
 
    Public PhoneCountryCodes As ArrayList
 
    Private Shared XMLFilename As String
 
    Public Sub New()
        SetToDefault(Me)
 
    End Sub
 
    Public Sub New(FileName As String)
        XMLFilename = FileName
        If Path.GetExtension(XMLFilename).ToLower() <> "xml" Then XMLFilename = XMLFilename + ".xml"
        If File.Exists(XMLFilename) = False Then SerializeToXML(New cMySettings())
    End Sub
 
    Public Sub New(ByRef Settings As cMySettings)
        Me.PhoneCountryCodes = New ArrayList(Settings.PhoneCountryCodes)
 
    End Sub
 
    Public Shared Sub SerializeToXML(ByRef Settings As cMySettings)
 
        Dim xmlSerializer As New XmlSerializer(GetType(cMySettings))
 
        Using xmlTextWriter As New XmlTextWriter(XMLFilename, Encoding.UTF8)
            xmlTextWriter.Formatting = Formatting.Indented
            xmlSerializer.Serialize(xmlTextWriter, Settings)
            xmlTextWriter.Close()
        End Using
 
 
    End Sub
 
    Public Shared Sub DeseralizeFromXML(ByRef Settings As cMySettings)
 
        Dim fs As FileStream = Nothing
 
        ' do i have settings?
        If File.Exists(XMLFilename) = True Then
            Try
                fs = New FileStream(XMLFilename, FileMode.Open, FileAccess.Read)
                Dim xmlSerializer As New XmlSerializer(GetType(cMySettings))
                Settings = xmlSerializer.Deserialize(fs)
            Catch
                'load error of some sort, or OBJECT deserialize error
                'do we tell anyone?
                Exit Sub
            Finally
                If Not fs Is Nothing Then fs.Close()
                fs = Nothing
            End Try
        End If
 
    End Sub
 
    Public Shared Sub Copy(ByRef SourceSettings As cMySettings, ByRef DestSettings As cMySettings)
 
        'DestSettings.PhoneCountryCodes = SourceSettings.PhoneCountryCodes
        DestSettings.PhoneCountryCodes.Clear()
        For i As Integer = 0 To 2 'avec for next
            DestSettings.PhoneCountryCodes.Add(SourceSettings.PhoneCountryCodes(i))
        Next
 
    End Sub
 
    Public Shared Sub SetToDefault(ByRef Settings)
        Settings.PhoneCountryCodes = New ArrayList() 'From {"0", "33", "00"}
 
    End Sub
 
    Public Shared Function Compare(ByRef Settings1 As cMySettings, ByRef Settings2 As cMySettings) As Boolean
 
        For i As Integer = 0 To 2
            If Not String.Compare(Settings1.PhoneCountryCodes(i), Settings2.PhoneCountryCodes(i)) = 0 Then
                Return False
            End If
        Next
 
        Return True
    End Function
 
End Class

[mactwist69]

Le seul problème est que si mon fichier xml n'existe pas , il n'est pas créé par défaut !

Bah voilà tout est dit

Dois je rajouter un test sur l'existance de ce fichier dans la fonction SetDefault ou y a-il une meilleur méthode ?

Bah oui c'est bien...

Je pense d'ailleurs que le sujet peut être marqué... N'ayant plus de problème technique.

[pierrotm777]

Tester l'existence du fichier xml me semblait difficile dans la classe, ne voulant pas écrire son nom en dur.
J'ai donc pensé à une autre solution, ajouter une option à la fonction SetDefault(Byref Settings as Object, Optional ResetTrue as Boolean = False)

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
25
26
27
28
29
30
31
    Public Shared Sub SetToDefault(ByRef Settings As Object, Optional ResetTrue As Boolean = False)
        Try
            Settings.PhoneDebugLog = False
            Settings.PhoneMacAddress = "01:02:03:04:05:06"
            Settings.PhoneMacAddress2 = "07:08:09:10:11:12"
            Settings.RunOnStart = True
            Settings.PhoneBookUpdate = True
            Settings.PhoneBookListUpdate = True
            Settings.PhoneBookList = "PB,ICH,OCH,MCH,CCH"
            Settings.PhoneBookUseSIM = False
            Settings.PhoneBookUseVcardSupplement = False
            Settings.SmsServiceCentreAddress = "0102030405"
            Settings.EmergencyNumber = "112"
            Settings.AutoSwapPhone = False
            Settings.PhoneSpeechNumbers = "zero,one,two,three,four,five,six,seven,eight,nine,more,star,sharp,delete,cancel,call,stop call,help call,by name,-,-,-"
            Settings.PhoneSpeechRecognition = False
            'Settings.PhoneCountryCodes = "0,33,00"
            If ResetTrue = True Then Settings.PhoneCountryCodes = New List(Of String) From {"0", "33", "00"}
            If ResetTrue = False Then Settings.PhoneCountryCodes = New List(Of String)
            Settings.PhoneAlarm1 = """01:00""|1|1|""Alarm Text 1""|""1"""
            Settings.PhoneAlarm2 = """02:00""|2|1|""Alarm Text 2""|""1,2"""
            Settings.PhoneAlarm3 = """03:00""|3|1|""Alarm Text 3""|""1,2,3"""
            Settings.PhoneAlarm4 = """04:00""|4|1|""Alarm Text 4""|""1,2,3,4"""
            Settings.PhoneAlarm5 = """05:00""|5|1|""Alarm Text 5""|""1,2,3,4,5"""
            Settings.LockInMotion = True

        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try

    End Sub

En début de mon programme principal, j'ai ajouté un test sur la valeur de la variable TempPluginSettings.PhoneCountryCodes(1)
Au premier démarrage, le fichier .xml est créé mais sans les variables de la List(Of String)
Avec ce test, je force la mise à jour avec l'option ResetTrue = True
C'est pas bien catholique , mais cela fonctionne !!!!

Code :

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

1
2
3
4
5
6
7
' check if PhoneCountryCodes as the good format, if not the file is updated  with the default values ("0","33","00") 
        If TempPluginSettings.PhoneCountryCodes(1) = Nothing Then
            cMySettings.SetToDefault(PluginSettings, True)
            ' copy to temp (skin views temp)
            cMySettings.Copy(PluginSettings, TempPluginSettings)
            cMySettings.SerializeToXML(PluginSettings)
        End If

Merci à tous pour votre aide qui m'a permit d'avancer !