How do I dynamically edit app.config!

xiaoxiao2021-03-06  50

In order to achieve the purpose of temporary storage data, I chose app.config.

This article assumes that the pre-set content of app.config is as follows:

I don't say it, many people will!

Quote: Imports System.configuration Name Space

then,

Tbcopy.text = configurationSettings.appsettings ("copy") TBCompany.text = configurationSettings.appsettings ("Company") TBComurl.Text = ConfigurationSettings.AppSettings ("Comurl")

This is called!

But how can I edit? How to edit it into a problem, first find a long time on 9CBS, no fruit, I have been looking for it for a long time to MSDN, not suitable, it seems that I have to do it! Because it is a typical XML file, it can operate it with XML! Place the following process in the module or where you need it!

===

VB.NET

===

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

===

C # .NET

===

Public void sysconfig (String MyValue ())

{Xmldocument xmldoc = new xmldocument ();

XMLDoc.Load (Application.executablePath & ".config"); XMLNode XN = New XMLNode (); xn.selectsinglenode ("/ configuration / appsettings"); for (int i = 0; i <= myValue.length - 1; i )

{Xn.childnodes.Item (i) .attributes.Itemof (1) .value () = MyValue (i);

} Xmldoc.save (appdomain.currentdomain.setupinformation.configurationfile); xmldoc.dispose ();

}

I am using a string array to make parameters! Each value is a line in config! Route it in order!

DIM TMPSTR () AS String = {Trim (Tbcopy.Text), Trim (TBCompany.Text), Trim (TBComurl.Text)} Sysconfig (Tmpstr)

This completes the purpose of the revision!

There is also a method:

Read Write CONFIG and related XML files in DataSet, 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

As for which kind of way you like! Oh, finished! If you have any questions, please contact the author! Liujiayu10@hotmail.com

转载请注明原文地址:https://www.9cbs.com/read-117508.html

New Post(0)