Torna al Thread
Dim user_config_file As New Xml.XmlDocument
' file è il file user.config aperto con una openfiledialog
user_config_file.Load(file)
' indico il percorso del nodo da leggere per ottenere il nome del programma che ha generato il file user.config
Dim nome_programma_nodo As Xml.XmlNode = user_config_file.SelectSingleNode("/configuration/configSections/sectionGroup")
' variabile che conterrà il nome del programma
Dim nome_programma_nodo_testo As String
' ottengo il nome del programma
For a = 0 To nome_programma_nodo.ChildNodes.Count - 1 Step 1
nome_programma_nodo_testo = nome_programma_nodo.ChildNodes(a).Attributes("name").Value
Next
' indico il percorso "user setting" più il nome del programma
Dim node As Xml.XmlNode = user_config_file.SelectSingleNode("/configuration/userSettings/" & nome_programma_nodo_testo)
' variabile che conterrà il nome dell' impostazione
Dim nome_impostazione As String
' variabile che conterrà il valore dell' impostazione
Dim valore_impostazione As String
' leggo il nome del nodo ed il valore
For a = 0 To node.ChildNodes.Count - 1 Step 1
nome_impostazione = node.ChildNodes(a).Attributes("name").Value
valore_impostazione = node.ChildNodes(a).InnerText
'NB: parte da sostituire con un ciclo
'--------------------------------------------------------------
' se il nome del nodo è uguale salvo il valore
If nome_impostazione = "setting1_nome" Then
My.Settings.setting1 = valore_impostazione
End If
If nome_impostazione = "setting2_nome" Then
My.Settings.setting2 = valore_impostazione
End If
If nome_impostazione = "setting3_nome" Then
My.Settings.setting3 = valore_impostazione
End If
'--------------------------------------------------------------
Next