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
Copyright © dotNetHell.it 2002-2024
Running on Windows Server 2008 R2 Standard, SQL Server 2012 & ASP.NET 3.5