AppConfig读写类

1. Imports System.Configuration
2. Imports System.Xml
3. Public Class AppConfig
4.     ''' <summary>
5.     ''' 依据连接串名字connectionName返回数据连接字符串
6.     ''' </summary>
7.     ''' <param name="connectionName"></param>
8.     ''' <returns></returns>
9.     ''' <remarks></remarks>
10.     Shared Function GetConnectionStringsConfig(ByVal connectionName As String) As String
11.         Dim connectionString As String = ConfigurationManager.ConnectionStrings(connectionName).ConnectionString.ToString()
12.         Return connectionString
13.     End Function
14.     ''' <summary>
15.     ''' 更新连接字符串
16.     ''' </summary>
17.     ''' <param name="newName">连接字符串名称</param>
18.     ''' <param name="newConString">连接字符串内容</param>
19.     ''' <param name="newProviderName">数据提供程序名称</param>
20.     ''' <remarks></remarks>
21.     Shared Sub UpdateConnectionStringsConfig(ByVal newName As String, ByVal newConString As String, ByVal newProviderName As String)
22.         '记录该连接串是否已经存在 
23.         Dim isModified As Boolean = False
25.         '如果要更改的连接串已经存在 
26.         If (ConfigurationManager.ConnectionStrings(newName) IsNot Nothing) Then
27.             isModified = True
28.         End If
30.         '新建一个连接字符串实例 
31.         Dim mySettings As ConnectionStringSettings = _
32.             New ConnectionStringSettings(newName, newConString, newProviderName)
33.         ' 打开可执行的配置文件*.exe.config 
34.         Dim config As Configuration = _
35.         ConfigurationManager.OpenExeConfiguration(ConfigurationUserLevel.None)
37.         ' 如果连接串已存在，首先删除它 
38.         If (isModified) Then
40.             config.ConnectionStrings.ConnectionStrings.Remove(newName)
41.         End If
43.         ' 将新的连接串添加到配置文件中. 
44.         config.ConnectionStrings.ConnectionStrings.Add(mySettings)
45.         ' 保存对配置文件所作的更改 
46.         config.Save(ConfigurationSaveMode.Modified)
47.         ' 强制重新载入配置文件的ConnectionStrings配置节 
48.         ConfigurationManager.RefreshSection("ConnectionStrings")
50.     End Sub
51.     ''' <summary>
52.     ''' 返回＊.exe.config文件中appSettings配置节的value项
53.     ''' </summary>
54.     ''' <param name="strKey"></param>
55.     ''' <returns></returns>
56.     ''' <remarks></remarks>
57.     Shared Function GetAppConfig(ByVal strKey As String) As String
58.         For Each key As String In ConfigurationManager.AppSettings
59.             If (key = strKey) Then
60.                 Return ConfigurationManager.AppSettings(strKey)
61.             End If
62.         Next
63.         Return Nothing
64.     End Function
65.     ''' <summary>
66.     ''' 在＊.exe.config文件中appSettings配置节增加一对键、值对 
67.     ''' </summary>
68.     ''' <param name="newKey"></param>
69.     ''' <param name="newValue"></param>
70.     ''' <remarks></remarks>
71.     Shared Sub UpdateAppConfig(ByVal newKey As String, ByVal newValue As String)
72.         Dim isModified As Boolean = False
73.         For Each key As String In ConfigurationManager.AppSettings
74.             If (key = newKey) Then
75.                 isModified = True
76.             End If
77.         Next
79.         '打开 可执行文件的 App.Config  
80.         Dim config As Configuration = _
81.              ConfigurationManager.OpenExeConfiguration(ConfigurationUserLevel.None)
82.         '在你替换它之前你需要移除旧的设定对象 
83.         If (isModified) Then
84.             config.AppSettings.Settings.Remove(newKey)
85.         End If
86.         ' 添加一个应用程序设定
87.         config.AppSettings.Settings.Add(newKey, newValue)
88.         ' 将修改保存到 App.config 文件
89.         config.Save(ConfigurationSaveMode.Modified)
90.         '强制重新载入配置文件的ConnectionStrings配置节 
91.         ConfigurationManager.RefreshSection("appSettings")
92.     End Sub
93.     Public Shared Sub SaveConfig(ByVal Key As String, ByVal Value As String)
94.         Dim doc As New XmlDocument()
95.         '获得配置文件的全路径 
96.         Dim strFileName As String = AppDomain.CurrentDomain.BaseDirectory.ToString() & "App.config"
97.         doc.Load(strFileName)
98.         '找出名称为“add”的所有元素 
99.         Dim nodes As XmlNodeList = doc.GetElementsByTagName("add")
100.         For i As Integer = 0 To nodes.Count - 1
101.             '获得将当前元素的key属性 
102.             Dim att As XmlAttribute = nodes(i).Attributes("key")
103.             '根据元素的第一个属性来判断当前的元素是不是目标元素 
104.             If att.Value = Key Then
105.                 '对目标元素中的第二个属性赋值 
106.                 att = nodes(i).Attributes("value")
108.                 att.Value = Value
109.                 Exit For
110.             End If
111.         Next
112.         '保存上面的修改 
113.         doc.Save(strFileName)
115.     End Sub
117. End Class