VB.Net 保存设置到XML文件代码如下:
''' <summary> ''' 保存设置 ''' </summary> ''' <remarks></remarks> Public Sub SaveSetting() 'Save Settings Dim FPath As String = Application.StartupPath & IIf(Strings.Right(Application.StartupPath, 1) = "\", "Setting.xml", "\Setting.xml") Try If File.Exists(FPath) = True Then File.Delete(FPath) Dim XWriter As New Xml.XmlTextWriter(FPath, System.Text.Encoding.GetEncoding("UTF-8")) XWriter.Formatting = Xml.Formatting.Indented XWriter.WriteRaw("<?xml version=""1.0"" encoding=""utf-8"" ?>") XWriter.WriteStartElement("Settings") XWriter.WriteElementString("TimeSP", TimeSP) XWriter.WriteElementString("StartTime", StartTime.ToString("yyyy/MM/dd HH:mm:ss")) XWriter.WriteElementString("ShowTip", ShowTip) XWriter.WriteElementString("CreateExcel", CreateExcel) XWriter.WriteElementString("SourceServerName", SDB.ServerName) XWriter.WriteElementString("SourceDBName", SDB.DBName) XWriter.WriteElementString("SourceLoginUser", SDB.LoginUser) XWriter.WriteElementString("SourcePWD", SDB.LoginPWD) XWriter.WriteElementString("TargetServerName", TDB.ServerName) XWriter.WriteElementString("TargetDBName", TDB.DBName) XWriter.WriteElementString("TargetLoginUser", TDB.LoginUser) XWriter.WriteElementString("TargetPWD", TDB.LoginPWD) XWriter.WriteElementString("ExcelPath", ExcelPath) XWriter.WriteEndElement() XWriter.Close() Catch ex As Exception MsgBox("保存失败!" & vbCrLf & "原因: " & ex.Message, MsgBoxStyle.Information, "提示") End Try 'Save Table Name List FPath = Application.StartupPath & IIf(Strings.Right(Application.StartupPath, 1) = "\", "DataTableList.xml", "\DataTableList.xml") Try If File.Exists(FPath) = True Then File.Delete(FPath) Dim XWriter As New Xml.XmlTextWriter(FPath, System.Text.Encoding.GetEncoding("UTF-8")) XWriter.Formatting = Xml.Formatting.Indented XWriter.WriteRaw("<?xml version=""1.0"" encoding=""utf-8"" ?>") XWriter.WriteStartElement("DataTableNameList") For i As Integer = 1 To TBList.Count XWriter.WriteElementString("DataTableName", TBList(i).ToString) Next XWriter.WriteEndElement() XWriter.Close() Catch ex As Exception MsgBox("保存失败!" & vbCrLf & "原因: " & ex.Message, MsgBoxStyle.Information, "提示") End Try End Sub
从XML文件中读取设置的代码如下:
''' <summary> ''' 加载设置 ''' </summary> ''' <remarks></remarks> Public Sub LoadSetting() 'Load Settings Dim FPath As String = Application.StartupPath & IIf(Strings.Right(Application.StartupPath, 1) = "\", "Setting.xml", "\Setting.xml") Dim txtReader As StreamReader = Nothing If File.Exists(FPath) = True Then Try Dim XDoc As New Xml.XmlDocument XDoc.Load(FPath) Dim XReader As New Xml.XmlNodeReader(XDoc) Dim ParaName As String = "" While XReader.Read Select Case XReader.NodeType Case Xml.XmlNodeType.Element ParaName = XReader.Name Case Xml.XmlNodeType.Text Select Case ParaName Case "TimeSP" : TimeSP = XReader.Value Case "StartTime" : StartTime = CDate(XReader.Value) Case "ShowTip" : ShowTip = XReader.Value Case "CreateExcel" : CreateExcel = XReader.Value Case "SourceServerName" : SDB.ServerName = XReader.Value Case "SourceDBName" : SDB.DBName = XReader.Value Case "SourceLoginUser" : SDB.LoginUser = XReader.Value Case "SourcePWD" : SDB.LoginPWD = XReader.Value Case "TargetServerName" : TDB.ServerName = XReader.Value Case "TargetDBName" : TDB.DBName = XReader.Value Case "TargetLoginUser" : TDB.LoginUser = XReader.Value Case "TargetPWD" : TDB.LoginPWD = XReader.Value Case "ExcelPath" : ExcelPath = XReader.Value End Select End Select End While Catch ex As Exception TimeSP = 30 StartTime = Now ShowTip = True CreateExcel = True SDB.ServerName = "" SDB.DBName = "" SDB.LoginUser = "" SDB.LoginPWD = "" TDB.ServerName = "" TDB.DBName = "" TDB.LoginUser = "" TDB.LoginPWD = "" If txtReader IsNot Nothing Then txtReader.Close() File.Delete(FPath) End Try End If 'Load Table Name List FPath = Application.StartupPath & IIf(Strings.Right(Application.StartupPath, 1) = "\", "DataTableList.xml", "\DataTableList.xml") txtReader = Nothing TBList.Clear() If File.Exists(FPath) = True Then Try Dim XDoc As New Xml.XmlDocument XDoc.Load(FPath) Dim XReader As New Xml.XmlNodeReader(XDoc) Dim ParaName As String = "" While XReader.Read Select Case XReader.NodeType Case Xml.XmlNodeType.Element ParaName = XReader.Name Case Xml.XmlNodeType.Text Select Case ParaName Case "DataTableName" : TBList.Add(XReader.Value.ToString.Trim) End Select End Select End While Catch ex As Exception TBList.Clear() If txtReader IsNot Nothing Then txtReader.Close() File.Delete(FPath) End Try End If End Sub
相关推荐
VB.net读取XML标签值,两种方法,一是加载XML字符串,一是加载XML文件,然后再从节点路径中读TAG第一个匹配值
调试环境vs2005 关于vb.net的xml创建,修改,读取全部子节点,读取全部,全部本人亲自调试。有需要的可以下下来看看
vb.net操作XML文件,读取编辑删除添加XML文件操作
VB.Net读取ini文件的例子,和读取xml文件的例子。两种方法的比较。建议还是用Xml比较好。System.Xml
在VB.net环境下实现如何读取一个xml文件的例程。
主要是今天又有网友问类似的xml文件读取问题。...找不到源代码和xml文件和读取后的界面。重新写一个,于是上传到这里来了。主要看form2.vb。 或者查看:http://blog.csdn.net/linjimu/archive/2009/08/19/4463713.aspx
收集的一个VB.NET 读取写入XML文件的类,做了一些修改,希望能对大家有所帮助!
VB.NET XML文件的读取,把XML读入DataGrid中,并把数据写入XML文件中
vb.net读取XML源代码,使用XmlDocument读取XML内容(递归法),节点中插入一个节点,修改节点,删除 节点的genre属性,删除 节点。
NeMoReadIniFileVB.Net程序设计:读取ini文件和读取xml文件的例子,程序首先演示了如何读取ini文件到ComboBox中,然后演示读取XmL文件到ComboBox中,VS.net内置对xml的操作可以参考: System.Xml 和 System.Xml.Xml...
此为一个VB.NET环境的XML文件操作示例,演示了两个基本的XML操作功能,读取和写入,在读取后,并对XML数据进行格式化处理,并将其显示在DataGridView控件中。同时还配合数据库,实现了XML数据对数据库数据的对应操作...
VB读取XML文件的操作实例,演示读取XML各个定义键的值。程序是一个专一读取XML文件的VB类,并没有使用微软的XML.DLL。因此比较有参考价值,很不错。
读取写入XML文件及文本加密,VB.NET对读取写入XML文件操作以及XML配置文本加密,解密。
VB XML文件读取并操作类 ^_^ E动天下—VB专业源码网 (http:/www.2e3.org) 本站是一个免费的基于VB,VB.NET源代码交流的平台,为大家提供优质的专业的源代码,如果您有需要,本站可以帮助在业余时间里给您寻找代码。...
本文实例讲述了C#保存与读取DataTable信息到XML格式的方法。分享给大家供大家参考。具体如下: 这里主要实现: 1.将DataTable中的信息保存到XML中 2.将以上述格式在XML中保存的信息读取到DataTable内 一、将...
常用程序集合,程序说明:http://blog.csdn.net/linjimu/archive/2008/02/19/2105387.aspx 用到的知识点: XML文件的读写操作。 文件的拖放操作。 ListView的应用、操作。 IconExtractor读取任何文件的图标。
实现C#和VB.net之间的相互转换 深入剖析ASP.NET组件设计]一书第三章关于ASP.NET运行原理讲述的补白 asp.net 运行机制初探(httpModule加载) 利用反射来查看对象中的私有变量 关于反射中创建类型实例的两种方法 ASP...
常用程序集合,程序说明:http://blog.csdn.net/linjimu/archive/2008/02/19/2105387.aspx 源代码地址:...XML文件的读写操作。 文件的拖放操作。 ListView的应用、操作。 IconExtractor读取任何文件的图标。
XML读取表格控件源码 树形结构读取XML 可编辑 可拖拽
xml文件编写 代码如下:<?xml version=”1.0″ encoding=”gb2312″ ?> <BookType> <parameter> 商务管理</name> <value>0</value> </parameter> <parameter> 金融管理</name> <value>1</value> </parameter> ...