授授i恥XXX授課：授課：XXX如果您需要使用本文檔?請(qǐng)點(diǎn)擊下載按鈕下載!VB.Net中用XML替代INI配置功能的完整教程TOC\o"1-5"\h\z~fq 1二、 內(nèi)容 1第一步：新建一個(gè)項(xiàng)目 1第二步：新建一個(gè)類 1第三步：寫類代碼 1\o"CurrentDocument"第四步：調(diào)用 5\o"CurrentDocument"第五步：測試 6\o"CurrentDocument"三、 尾聲 7\o"CurrentDocument"四、 附：實(shí)例 7一、前言吞所周知，xml文件很強(qiáng)大，從某種程度上說它完全替代ini也不為過，網(wǎng)上也有許多用VB.net從編寫xml文件的實(shí)例，但幾乎找不到一個(gè)完整的xml替代ini的實(shí)例（也許是我太菜？）,于是自己寫了一個(gè)XML替代INI配置功能的完整類（當(dāng)然，也可以改為模塊），通過該類，創(chuàng)建、調(diào)用一個(gè)xml配置文件可以像VB6.0中配萱INI文件一樣簡簡單單，在MicrosoftVisualStudio2012中測試通過,好了，廢話不多說，看文！二、內(nèi)容第一步：新建一個(gè)項(xiàng)目首先，打開VB.Net,新建一個(gè)項(xiàng)目，這不用說了吧I「，咱現(xiàn)在是演示，一切命名都按默認(rèn)的吧。第二步：新建一個(gè)類接著，新建一個(gè)類，還是默認(rèn)命名（注意是類，不是模塊）。第二步：新建一個(gè)類接著，新建一個(gè)類，還是默認(rèn)命名（注意是類，不是模塊）。(LJClas.sl.vb-PX黑決方冥資湧管理器 ▼甲X(LJClas.sl.vb-PX黑決方冥資湧管理器 ▼甲X金?▼芒S創(chuàng)?classlForml.vb［設(shè)鯉輯決方奚資源管理器［Ctrl十;）P-鯉輯決方奚資源管理器［Ctrl十;）P-PublicClassClassi畫WindowsApplicationlEndClassAMyProjectForml.vb第三步：寫類代碼重點(diǎn)的代碼來了，在類中寫入以下代碼:如果您需要使用木文檔.請(qǐng)點(diǎn)擊下載按鈕下栽！==================代碼開始.勿復(fù)制木行============ImportsSystem?10ImportsSystem?XmlPublicClassClassi'*********************************************'材模塊名：XML_操作'**作 用：完整替代ini的xml操作類'**創(chuàng)建人：靈魂的纏綿'**日 期：2013-7-141*******冬********冬*******字*******字冬********冬*******Region"變雖聲明區(qū)少PublicSharedRootAsString=Hy?Application?Info.AssemblyName#EndRegion^Region"XML_創(chuàng)建"〈summary》'''【創(chuàng)建一個(gè)XML文檔】…根據(jù)［XML文件路徑］創(chuàng)建</summary/*'''<paramname=zXmlPath"XML文件路徑</param>'i<remarks></remarks>PublicSharedFunctionXML_Create(ByVaiXmlPathAsString)TryDim XmlWrite As New System.Xml.XmlTextWriter(XmlPath,System?Text?Encoding?GetEncodingCGB2312^))XmlWrite.Formatting=System?Xml.Formatting?Indented'「I動(dòng)縮進(jìn)XmlWrite.WriteStartDocument(True)1開始一個(gè)文檔自動(dòng)編寫版本并具有獨(dú)立屈件的XML聲期XmlWrite.WriteStartElement(Root)'開始根元索XmlWrite.WriteEndElement()、關(guān)閉根元索XmlWrite.WriteEndDocument()'文檔結(jié)束XmlWrite.Flush()'刷新XmlWrite.Close()'關(guān)閉ReturnTrueCatchexAsExceptionReturnFalseMsgBox(Err?Description)EndTryEndFunction#EndRegiontfRegion"XML_讀寫—公共撐〈summary》'''［XML_讀寫—公共】'''根據(jù)［讀寫狀態(tài)］判斷［讀］［寫］操作'''有完整的［父、子節(jié)點(diǎn)］就改寫［子節(jié)點(diǎn)］內(nèi)容'''否則創(chuàng)建，并根據(jù)［節(jié)點(diǎn)預(yù)設(shè)值］寫［子節(jié)點(diǎn)］內(nèi)容如果您需要使用木文檔.請(qǐng)點(diǎn)擊下載按鈕下載！</summary/*八'<paramname="ReadWrite_Condition*>讀寫狀態(tài)</param>'''<paramname二"XmlNodeF"》父節(jié)點(diǎn)<7param><paramname二"XmlNodeZ"》子節(jié)點(diǎn)</$曲血》'''<paramname二"XmlNodeN">節(jié)點(diǎn)內(nèi)容</param>'''<paramname="XmlNodeY">節(jié)點(diǎn)預(yù)設(shè)值</param>*''<paramname=zXmlPath"XML文件路徑</param>'i<remarks></remarks>PublicSharedFunctionXML_ReadWrite^Common(ByVaiReadWrite_ConditionAsBoolean,ByVaiXmlNodeFAsString,ByVaiXmlXodeZAsString,ByVaiXmlXodeNAsString,ByVaiXmlNodeYAsString,ByVaiXmlPathAsString)AsStringTryXML_ReadWrite_Common=NothingIfFile.Exists(XmlPath)=FalseThenCallXML.Create(XmlPath)‘XML文件不存在就創(chuàng)建DimVEAsBoolean=Nothing'設(shè)邏一個(gè)值用于判斷是否|讀取］的情況卞［寫入］DimXmlDocAsNewXml.XmlDocument0XmlDoc?Load(XmlPath)DimNew_RootAsXml?XmlNode=XmlDoc?SelectSingleNode(Root)DimNew_XmlXodeFAsXml.XmlElement=NothingDimNew_XmlXodeZAsXml.XmlElement=NothingIfXmlNodeNIsNothingThenXmlNodeX=XmlXodeYDimNodePathFAsSystem?Xm1?XmlNode=XmlDoc?SelectSingleXode(Root&" &XmlNodeF)IfNodePathFIsNothingThenJ［父i"［］不存在創(chuàng)建一個(gè)從［父節(jié)點(diǎn)］開始的完整的節(jié)點(diǎn)New_XmlNodeF=XmlDoc?CreateElement(XmlNodeF)New_XmlNodeZ=XmlDoc?CreateElement(XmlXodeZ)New.XmlXodeZ.InnerText=XmlNodeNNew.XmlXodeF.AppendChild(New^XmlXodeZ)New_Root.AppendChild(New_XmlNodeF)VE=TrueIfReadWrite_Condition=TrueThenXML_ReadWrite_Common=XmlNodeYElse'［父節(jié)點(diǎn)］存在判斷［子節(jié)點(diǎn)］是否存在DimXodePathZAsSystem.Xml.XmlXode=XmlDoc.SelectSingleNode(Root&7"&XmlNodeF&7少&XmlNodeZ)IfNodePathZIsNothingThen'［子節(jié)點(diǎn)］不存在創(chuàng)建一個(gè)從E子節(jié)點(diǎn)|開始的完整的節(jié)點(diǎn)New^XmlNodeZ=XmlDoc?CreateElement(XmlXodeZ)New.XmlNodeZ.InnerText=XmlNodeNNew_Root?SelectSingleNode(XmlNodeF)?AppendChi1d(New_XmlNodeZ)IfReadWrite_Condition=TrueThenXML_ReadWrite_Common=XmlNodeYElse'［子節(jié)點(diǎn)］存在判斷是讀取還是寫入IfReadWrite_Condition=TrueThen''勺［讀寫狀態(tài)］為［讀］時(shí)IfVE=TrueThen'在［讀］時(shí)［寫］入'讀取的值為預(yù)設(shè)值XML_ReadWrite^Common=XmlNodeY授授i恥XXX授授i恥XXX如果您需要使用木文檔.請(qǐng)點(diǎn)擊下載按鈕下載！Else'讀取的值為［子節(jié)點(diǎn)］的值XML_ReadWrite_Common =New_Root?SelectSingleNode(XmlNodeF)?SelectSingleNode(XmlNodeZ)?InnerTextEndIfElse'當(dāng)［讀寫狀態(tài)］為［寫］時(shí)New_Root?SelectSingleNode(XmlXodeF)?SelectSingleNode(XmlNodeZ)?InnerText =XmlNodeNEndIfEndIfEndIfxmlDoc.Save(XmlPath)'保存CatchexAsExceptionReturnFalseMsgBox(Err?Description)EndTryEndFunctiontfEndRegiontJRegion"XML_讀MT〈summary〉'''【讀取節(jié)點(diǎn)】'''根據(jù)［父節(jié)點(diǎn)］和［子節(jié)點(diǎn)］定位'''如果［子節(jié)點(diǎn)］不存在或無任何內(nèi)容則根據(jù)［節(jié)點(diǎn)預(yù)設(shè)值］創(chuàng)建</summary〉'''<paramname二"XmlNodeF"》父節(jié)點(diǎn)</param><paramname="XmlNodeZ"》子節(jié)點(diǎn)</param>'''<paramname="XmlNodeY節(jié)點(diǎn)預(yù)設(shè)值</param>'''<paramnaiue^XmlPath"XML文件路徑</param><remarks></remarks>PublicSharedFunctionXML_Read(ByVaiXmlNodeFAsString,ByVaiXmlNodeZAsString,ByVaiXmlNodeYAsString,ByVaiXmlPathAsString)AsStringTryXML.Read=XML.ReadWrite.Common(True,XmlXodeF,XmlNodeZ,Nothing,XmlNodeY,XmlPath)CatchexAsExceptionReturnFalseMsgBox(Err?Description)EndTryEndFunction#EndRegion^RegionXML_寫入"〈summary》'''【寫節(jié)點(diǎn)】‘I根據(jù)［父節(jié)點(diǎn)］和［子節(jié)點(diǎn)］定位

如果您需要使用木文檔.請(qǐng)點(diǎn)擊下載按鈕下載！八‘如果［子節(jié)點(diǎn)］不存在或無任何內(nèi)容則很據(jù)［節(jié)?點(diǎn)內(nèi)容］創(chuàng)建，存在則根搖［節(jié)點(diǎn)內(nèi)容］覆蓋原數(shù)據(jù)</summary^'''<paramname二"XmlNodeF"》父節(jié)點(diǎn)<7param><paramname二"XmlNodeZ"》子節(jié)點(diǎn)</$曲血》'''<paramname二"XmlNodeN">節(jié)點(diǎn)內(nèi)容</param>'''<paramname=zXmlPath"XML文件路徑〈/param>'i<remarks></remarks>PublicSharedFunctionXML_Write(ByVaiXmlNodeFAsString,ByVaiXmlXodeZAsString,ByVaiXmlNodeNAsString,ByVaiXmlPathAsString)TryCallXML.ReadWrite.Common(False,XmlNodeF,XmlNodeZ,XmlNodeN,Nothing,XmlPath)ReturnTrueCatchexAsExceptionReturnFalseMsgBox(Err?Description)EndTryEndFunction#EndRegionEndClass=================代碼結(jié)束，勿復(fù)制木行===============好了，這樣類就寫好了，為了便于審閱，單擊左邊的“-”將各功能代碼折疊起來Class-l.vb*占Class-l.vb*占XForml.vb［設(shè)計(jì)］名：名：XML操作用：賓疹看代ini.的xml換作類人：靈逸的纏綿期：2013-7-14ImportsSystem.10ImportsSystem?ELpublicClass#肛_撓作>山古?” atl>elt eliq"ela也el>eli tL*el>alteit 9^al>alt W山山eli?!>ill?<??1??r?*j*?r??j??<??<??(??t??r?■.?*1*?4??1??<??<??<?*r?*t??jr??1??r?*<?*T??<??????4**1*?????■*1??1?■1??1?*1??.?*1*????1?*<??<? ?r??*??4?,**作'**創(chuàng)?日第四步：調(diào)用最后，可以調(diào)用了，調(diào)用前先做下準(zhǔn)備工作:在窗口Forml內(nèi)畫4個(gè)文本框TextBox和2個(gè)按鈕Button,布局如下圖。如果您需要使用本文檔?請(qǐng)點(diǎn)擊下載按鈕下載!Classl.vb*卡XForml.vb［設(shè)計(jì)了刃X在在窗口代碼中寫入如下代碼=================代碼開始，勿復(fù)制木行PublicClassFormlDimXML—路徑AsString=Environment?GetFolderPath(EnvironinErrt?SpecialFolder.Desktop)&"\XML酉丄測試.xmr'PrivateSubButtonl_Click(senderAsObject,eAsEventArgs)HandlesBut