我是如何动态编辑App.config的!
2004-09-11 10:20
351 查看
在工作中为了实现临时保存数据的目的,我选择了用App.config
本文假设App.config的预先设置内容如下:
<?xml version="1.0" encoding="utf-8" ?>
<configuration>
<appSettings>
<add key="Copy" value="ABC公司"/>
<add key="Company" value="无锡市ABC信息技术有限公司"/>
<add key="ComUrl" value="http://www.ABC.net.cn"/>
</appSettings>
</configuration>
读取我就不说了,很多人都会的!
引用:Imports System.Configuration名字空间
然后,
TBCopy.Text = ConfigurationSettings.AppSettings("Copy")
TBCompany.Text = ConfigurationSettings.AppSettings("Company")
TBComUrl.Text = ConfigurationSettings.AppSettings("ComUrl")
这样就调用了!
可是怎么样编辑呢?如何编辑它成了难题,首先在CSDN上找了很久,无果,到MSDN上也找了很久,不太适合,看来只有自己动手了! 因为其是个典型的XML文件,于是可以以XML的方法操作它!将下面的过程放到模块中或需要用到的地方!
Public Sub SysConfig(ByVal myValue() As String)
Dim i As Integer
Dim XmlDoc As New XmlDocument
XmlDoc.Load(Application.ExecutablePath & ".config")
Dim XN As XmlNode = XmlDoc.SelectSingleNode("/configuration/appSettings")
For i = 0 To myValue.Length - 1
XN.ChildNodes.Item(i).Attributes.ItemOf(1).Value() = myValue(i)
Next
XmlDoc.Save(AppDomain.CurrentDomain.SetupInformation.ConfigurationFile)
XmlDoc = Nothing
End Sub
我是通过传递一个字符串数组来作参数的!每个值就是Config里的一行!按顺序排好!
Dim tmpStr() As String = {Trim(TBCopy.Text), Trim(TBCompany.Text), Trim(TBComUrl.Text)}
SysConfig(tmpStr)
这样就完成了修改的目的!
还有一种方法:
以Dataset方式读写Config及相关XML文件
Private Sub DealXML()
Dim myDs As New DataSet
myDs.ReadXml(AppDomain.CurrentDomain.SetupInformation.ConfigurationFile)
TBCopy.Text = myDs.Tables(1).Rows(0)(1)
TBCompany.Text = myDs.Tables(1).Rows(1)(1)
TBComUrl.Text = myDs.Tables(1).Rows(2)(1)
'------------------------------------------
myDs.Tables(1).Rows(0)(1) = TBCopy.Text
myDs.Tables(1).Rows(1)(1) = TBCompany.Text
myDs.Tables(1).Rows(2)(1) = TBComUrl.Text
'------------------------------------------
myDs.AcceptChanges()
myDs.WriteXml(AppDomain.CurrentDomain.SetupInformation.ConfigurationFile)
myDs.Clear()
myDs.Dispose()
End Sub
至于喜欢用哪种都行!呵呵,完!有问题请联系我!liujiayu10@hotmail.com
本文假设App.config的预先设置内容如下:
<?xml version="1.0" encoding="utf-8" ?>
<configuration>
<appSettings>
<add key="Copy" value="ABC公司"/>
<add key="Company" value="无锡市ABC信息技术有限公司"/>
<add key="ComUrl" value="http://www.ABC.net.cn"/>
</appSettings>
</configuration>
读取我就不说了,很多人都会的!
引用:Imports System.Configuration名字空间
然后,
TBCopy.Text = ConfigurationSettings.AppSettings("Copy")
TBCompany.Text = ConfigurationSettings.AppSettings("Company")
TBComUrl.Text = ConfigurationSettings.AppSettings("ComUrl")
这样就调用了!
可是怎么样编辑呢?如何编辑它成了难题,首先在CSDN上找了很久,无果,到MSDN上也找了很久,不太适合,看来只有自己动手了! 因为其是个典型的XML文件,于是可以以XML的方法操作它!将下面的过程放到模块中或需要用到的地方!
Public Sub SysConfig(ByVal myValue() As String)
Dim i As Integer
Dim XmlDoc As New XmlDocument
XmlDoc.Load(Application.ExecutablePath & ".config")
Dim XN As XmlNode = XmlDoc.SelectSingleNode("/configuration/appSettings")
For i = 0 To myValue.Length - 1
XN.ChildNodes.Item(i).Attributes.ItemOf(1).Value() = myValue(i)
Next
XmlDoc.Save(AppDomain.CurrentDomain.SetupInformation.ConfigurationFile)
XmlDoc = Nothing
End Sub
我是通过传递一个字符串数组来作参数的!每个值就是Config里的一行!按顺序排好!
Dim tmpStr() As String = {Trim(TBCopy.Text), Trim(TBCompany.Text), Trim(TBComUrl.Text)}
SysConfig(tmpStr)
这样就完成了修改的目的!
还有一种方法:
以Dataset方式读写Config及相关XML文件
Private Sub DealXML()
Dim myDs As New DataSet
myDs.ReadXml(AppDomain.CurrentDomain.SetupInformation.ConfigurationFile)
TBCopy.Text = myDs.Tables(1).Rows(0)(1)
TBCompany.Text = myDs.Tables(1).Rows(1)(1)
TBComUrl.Text = myDs.Tables(1).Rows(2)(1)
'------------------------------------------
myDs.Tables(1).Rows(0)(1) = TBCopy.Text
myDs.Tables(1).Rows(1)(1) = TBCompany.Text
myDs.Tables(1).Rows(2)(1) = TBComUrl.Text
'------------------------------------------
myDs.AcceptChanges()
myDs.WriteXml(AppDomain.CurrentDomain.SetupInformation.ConfigurationFile)
myDs.Clear()
myDs.Dispose()
End Sub
至于喜欢用哪种都行!呵呵,完!有问题请联系我!liujiayu10@hotmail.com
相关文章推荐
- 我是如何动态编辑App.config的
- 我是如何动态编辑App.config的!
- C#.Net 如何动态加载与卸载程序集(.dll或者.exe)4-----Net下的AppDomain编程 [摘录]
- 如何读写 app.config
- 如何用jbpm做出一个状态可视化动态可编辑的工作流平台-1
- App系列------如何动态申请权限
- 如何读写 app.config 2
- 如何动态设置全局theme,及在web.config中读取pages节点的内容。
- 如何做到像百度云或者网易公开课一样动态更换APP启动图
- ios发布的时候,如何编辑APP的兼容性信息?
- VSTS中如何ignore一个app.config之类的文件
- iOS新特性: iOS10.3教你如何动态更换APP图标?(后台切换) 韩俊强的博客
- 如何动态编辑fragment的高度,宽度和margin?
- 如何配置及读取App.config文件
- android 如何动态的加载类----app插件技术
- 类库如何读取配置文件(app.config)?
- AppDomain应用及 如何改变web.config / App.config位置
- 如何读取app.config里的connectionstring节.
- C#.Net 如何动态加载与卸载程序集(.dll或者.exe)0-------通过应用程序域AppDomain加载和卸载程序集
- 如何更优雅的实现ExtJS的前端MVC模式下一个App多个Controller的动态加载