欢迎来到天天文库
浏览记录
ID:6128207
大小:497.63 KB
页数:7页
时间:2018-01-04
《vbnet中用xml替代ini配置功能的完整教程》由会员上传分享,免费在线阅读,更多相关内容在应用文档-天天文库。
1、VB.Net中用XML替代INI配置功能的完整教程一、前言1二、内容1第一步:新建一个项目1第二步:新建一个类1第三步:写类代码1第四步:调用5第五步:测试6三、尾声7四、附:实例7一、前言众所周知,xml文件很强大,从某种程度上说它完全替代ini也不为过,网上也有许多用VB.net编写xml文件的实例,但几乎找不到一个完整的xml替代ini的实例(也许是我太菜?),于是自己写了一个XML替代INI配置功能的完整类(当然,也可以改为模块),通过该类,创建、调用一个xml配置文件可以像VB6.0中配置INI文件一样简简单单,在MicrosoftVisualStudio
2、2012中测试通过,好了,废话不多说,看文!二、内容第一步:新建一个项目首先,打开VB.Net,新建一个项目,这不用说了吧^_^,咱现在是演示,一切命名都按默认的吧。第二步:新建一个类接着,新建一个类,还是默认命名(注意是类,不是模块)。第三步:写类代码重点的代码来了,在类中写入以下代码:7====================代码开始,勿复制本行====================ImportsSystem.IOImportsSystem.XmlPublicClassClass1'***************************************
3、***********'**模块名:XML_操作'**作用:完整替代ini的xml操作类'**创建人:灵魂的缠绵'**日期:2013-7-14'**************************************************#Region"变量声明区"PublicSharedRootAsString=My.Application.Info.AssemblyName#EndRegion#Region"XML_创建"''''''【创建一个XML文档】'''根据[XML文件路径]创建''''''4、="XmlPath">XML文件路径'''PublicSharedFunctionXML_Create(ByValXmlPathAsString)TryDimXmlWriteAsNewSystem.Xml.XmlTextWriter(XmlPath,System.Text.Encoding.GetEncoding("GB2312"))XmlWrite.Formatting=System.Xml.Formatting.Indented'自动缩进XmlWrite.WriteStartDocument(True)'开始5、一个文档自动编写版本并具有独立属性的XML声明XmlWrite.WriteStartElement(Root)'开始根元素XmlWrite.WriteEndElement()'关闭根元素XmlWrite.WriteEndDocument()'文档结束XmlWrite.Flush()'刷新XmlWrite.Close()'关闭ReturnTrueCatchexAsExceptionReturnFalseMsgBox(Err.Description)EndTryEndFunction#EndRegion#Region"XML_读写_公共"''''''【6、XML_读写_公共】'''根据[读写状态]判断[读][写]操作'''有完整的[父、子节点]就改写[子节点]内容'''否则创建,并根据[节点预设值]写[子节点]内容7''''''读写状态'''父节点'''子节点'''节点内容'''节点预设值7、ram>'''XML文件路径'''PublicSharedFunctionXML_ReadWrite_Common(ByValReadWrite_ConditionAsBoolean,ByValXmlNodeFAsString,ByValXmlNodeZAsString,ByValXmlNodeNAsString,ByValXmlNodeYAsString,ByValXmlPathAsString)AsStringTryXML_ReadWrite_Common=Not
4、="XmlPath">XML文件路径'''PublicSharedFunctionXML_Create(ByValXmlPathAsString)TryDimXmlWriteAsNewSystem.Xml.XmlTextWriter(XmlPath,System.Text.Encoding.GetEncoding("GB2312"))XmlWrite.Formatting=System.Xml.Formatting.Indented'自动缩进XmlWrite.WriteStartDocument(True)'开始
5、一个文档自动编写版本并具有独立属性的XML声明XmlWrite.WriteStartElement(Root)'开始根元素XmlWrite.WriteEndElement()'关闭根元素XmlWrite.WriteEndDocument()'文档结束XmlWrite.Flush()'刷新XmlWrite.Close()'关闭ReturnTrueCatchexAsExceptionReturnFalseMsgBox(Err.Description)EndTryEndFunction#EndRegion#Region"XML_读写_公共"''''''【
6、XML_读写_公共】'''根据[读写状态]判断[读][写]操作'''有完整的[父、子节点]就改写[子节点]内容'''否则创建,并根据[节点预设值]写[子节点]内容7''''''读写状态'''父节点'''子节点'''节点内容'''节点预设值7、ram>'''XML文件路径'''PublicSharedFunctionXML_ReadWrite_Common(ByValReadWrite_ConditionAsBoolean,ByValXmlNodeFAsString,ByValXmlNodeZAsString,ByValXmlNodeNAsString,ByValXmlNodeYAsString,ByValXmlPathAsString)AsStringTryXML_ReadWrite_Common=Not
7、ram>'''XML文件路径'''PublicSharedFunctionXML_ReadWrite_Common(ByValReadWrite_ConditionAsBoolean,ByValXmlNodeFAsString,ByValXmlNodeZAsString,ByValXmlNodeNAsString,ByValXmlNodeYAsString,ByValXmlPathAsString)AsStringTryXML_ReadWrite_Common=Not
此文档下载收益归作者所有