加入收藏 | 设为首页 | 会员中心 | 我要投稿 李大同 （https://www.lidatong.com.cn/）- 科技、建站、经验、云计算、5G、大数据,站长网!
当前位置： 首页 > 百科 > 正文

XML4Config

发布时间：2020-12-16 06:10:58 所属栏目：百科 来源：网络整理
导读：Imports System.Xml Public Class Config Private xdoc As XmlDocument Private Shared cfg As Config Private fileName As String REM 单例模式 Private Sub New() cfg = Me End Sub REM 保存配置 Public Sub Save() xdoc.Save(fileName) End Sub REM 创建一
Imports System.Xml Public Class Config Private xdoc As XmlDocument Private Shared cfg As Config Private fileName As String REM 单例模式 Private Sub New() cfg = Me End Sub REM 保存配置 Public Sub Save() xdoc.Save(fileName) End Sub REM 创建一个配置 Public Shared Function CreateConfig(ByVal filepath As String,Optional ByVal rootName As String = "Root") As Config cfg = New Config() cfg.fileName = filepath cfg.xdoc = New XmlDocument() cfg.xdoc.AppendChild(cfg.xdoc.CreateXmlDeclaration("1.0","utf-8",Nothing)) Dim element As XmlElement = cfg.xdoc.AppendChild(cfg.xdoc.CreateElement(rootName)) cfg.xdoc.Save(filepath) Return cfg End Function REM 载入一个配置 Public Shared Function LoadConfig(ByVal filepath As String) As Config cfg = New Config() cfg.fileName = filepath cfg.xdoc = New XmlDocument() cfg.xdoc.Load(filepath) If cfg.xdoc Is Nothing Then Return Nothing Else Return cfg End If End Function REM 返回XMLDocument对象 Public Function GetXDoc() Return xdoc End Function REM 创建新节点 Public Function CreateNode(ByVal name As String,ByVal parent As XmlNode,Optional ByVal namespaceUri As String = Nothing) As XmlNode Dim result As XmlNode If namespaceUri Is Nothing Then result = xdoc.CreateNode(XmlNodeType.Element,name,parent.NamespaceURI) Else result = xdoc.CreateNode(XmlNodeType.Element,namespaceUri) End If Return result End Function REM 修改节点的属性名 Public Function ModifyAttribName(ByVal node As XmlNode,ByVal oldAttribName As String,ByVal newAttribName As String,Optional ByVal attribValue As String = Nothing) As Boolean If node IsNot Nothing Then Dim element As XmlElement = node If node.Attributes.GetNamedItem(oldAttribName) Is Nothing Then Return False End If Dim tempAttribValue As String = GetValueByNodeAndAtrrib(node.Name,oldAttribName) If attribValue Is Nothing Then attribValue = tempAttribValue End If element.RemoveAttribute(oldAttribName) element.SetAttribute(newAttribName,attribValue) Return True End If Return False End Function REM 修改节点的名字 Public Function ModifyNodeName(ByVal node As XmlNode,ByVal nodeName As String) If node IsNot Nothing Then Dim newNode As XmlNode = xdoc.CreateElement(nodeName) For Each n As XmlNode In node.ChildNodes newNode.AppendChild(n) Next For Each a As XmlAttribute In node.Attributes newNode.Attributes.Append(a) Next Dim parent As XmlNode = node.ParentNode parent.RemoveChild(node) parent.AppendChild(newNode) Return True End If Return False End Function REM 设置节点的属性值 Public Function SetValueOfNodeAttrib(ByVal node As XmlNode,ByVal attribName As String,ByVal attribValue As String) As Boolean If node IsNot Nothing Then If node.Attributes.GetNamedItem(attribName) IsNot Nothing Then node.Attributes(attribName).Value = attribValue Return True End If Return False End If Return False End Function REM 遍历，得到XML的指定节点中某个属性的数据。 Public Function GetValueByNodeAndAtrrib(ByVal nodeName As String,Optional ByVal parent As XmlNode = Nothing) As String If (parent Is Nothing) Then For Each node As XmlNode In xdoc If (node.ChildNodes.Count > 0) Then Dim result As String = GetValueByNodeAndAtrrib(nodeName,attribName,node) If (result <> Nothing) Then Return result End If If (node.Name = nodeName) Then If node.Attributes.GetNamedItem(attribName) IsNot Nothing Then Return node.Attributes.GetNamedItem(attribName).Value End If End If Return Nothing End If Next Else For Each node As XmlNode In parent If (node.ChildNodes.Count > 0) Then Dim result As String = GetValueByNodeAndAtrrib(nodeName,node) If (result <> Nothing) Then Return result End If End If If (node.Name = nodeName) Then If node.Attributes.GetNamedItem(attribName) IsNot Nothing Then Return node.Attributes.GetNamedItem(attribName).Value End If End If Next Return Nothing End If Return Nothing End Function Public Function GetValuesByNodeAndAtrrib(ByVal nodeName As String,Optional ByVal parent As XmlNode = Nothing) As List(Of String) Dim list As New List(Of String) If (parent Is Nothing) Then For Each node As XmlNode In xdoc If (node.ChildNodes.Count > 0) Then Dim result As List(Of String) = GetValuesByNodeAndAtrrib(nodeName,node) If (result IsNot Nothing) Then list.AddRange(result) End If If (node.Name = nodeName) Then If node.Attributes.GetNamedItem(attribName) IsNot Nothing Then list.Add(node.Attributes.GetNamedItem(attribName).Value) End If End If End If Next Return list Else For Each node As XmlNode In parent If (node.ChildNodes.Count > 0) Then Dim result As List(Of String) = GetValuesByNodeAndAtrrib(nodeName,node) If (result IsNot Nothing) Then list.AddRange(result) End If End If If (node.Name = nodeName) Then If node.Attributes.GetNamedItem(attribName) IsNot Nothing Then list.Add(node.Attributes.GetNamedItem(attribName).Value) End If End If Next Return list End If Return list End Function REM 根据节点名字查找节点 Public Function FindNodeByName(ByVal name As String,Optional ByVal parent As XmlNode = Nothing) As XmlNode If parent Is Nothing Then For Each node As XmlNode In xdoc Dim result As XmlNode If node.Name = name Then Return node End If If node.ChildNodes.Count > 0 Then result = FindNodeByName(name,node) If result IsNot Nothing Then Return result End If End If Next Return Nothing Else For Each node As XmlNode In parent Dim result As XmlNode If node.Name = name Then Return node End If If node.ChildNodes.Count > 0 Then result = FindNodeByName(name,node) If result IsNot Nothing Then Return result End If End If Next Return Nothing End If Return Nothing End Function Public Function FindNodesByName(ByVal name As String,Optional ByVal parent As XmlNode = Nothing) As List(Of XmlNode) Dim list As New List(Of XmlNode) If parent Is Nothing Then For Each node As XmlNode In xdoc Dim result As List(Of XmlNode) If node.Name = name Then list.Add(node) End If If node.ChildNodes.Count > 0 Then result = FindNodesByName(name,node) If result IsNot Nothing Then list.AddRange(result) End If End If Next Return list Else For Each node As XmlNode In parent Dim result As List(Of XmlNode) If node.Name = name Then list.Add(node) End If If node.ChildNodes.Count > 0 Then result = FindNodesByName(name,node) If result IsNot Nothing Then list.AddRange(result) End If End If Next Return list End If Return list End Function REM 根据给出的属性名查找节点 Public Function FindNodeByAttribName(ByVal attribName As String,ByVal attribValue As String,Optional ByVal parent As XmlNode = Nothing) As XmlNode If parent Is Nothing Then For Each node As XmlNode In xdoc If node.Attributes.GetNamedItem(attribName) IsNot Nothing Then If node.Attributes.GetNamedItem(attribName).Value = attribValue Then Return node End If End If If node.ChildNodes.Count > 0 Then Dim result As XmlNode = FindNodeByAttribName(attribName,attribValue,node) If result IsNot Nothing Then Return result End If End If Next Return Nothing Else For Each node As XmlNode In parent If node.Attributes.GetNamedItem(attribName) IsNot Nothing Then If node.Attributes.GetNamedItem(attribName).Value = attribValue Then Return node End If End If If node.ChildNodes.Count > 0 Then Dim result As XmlNode = FindNodeByAttribName(attribName,node) If result IsNot Nothing Then Return result End If End If Next Return Nothing End If Return Nothing End Function Public Function FindNodesByAttribName(ByVal attribName As String,Optional ByVal parent As XmlNode = Nothing) As List(Of XmlNode) Dim list As New List(Of XmlNode) If parent Is Nothing Then For Each node As XmlNode In xdoc If node.Attributes.GetNamedItem(attribName) IsNot Nothing Then If node.Attributes.GetNamedItem(attribName).Value = attribValue Then list.Add(node) End If End If If node.ChildNodes.Count > 0 Then Dim result As List(Of XmlNode) = FindNodesByAttribName(attribName,node) If result IsNot Nothing Then list.AddRange(result) End If End If Next Return list Else For Each node As XmlNode In parent If node.Attributes.GetNamedItem(attribName) IsNot Nothing Then If node.Attributes.GetNamedItem(attribName).Value = attribValue Then list.Add(node) End If End If If node.ChildNodes.Count > 0 Then Dim result As List(Of XmlNode) = FindNodesByAttribName(attribName,node) If result IsNot Nothing Then list.AddRange(result) End If End If Next Return list End If Return list End Function End Class

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!
    相关内容
      推荐文章
        站长推荐
        热点阅读

          【免责声明】本站内容转载自互联网，其发布内容言论不代表本站观点，如果其链接、内容的侵犯您的权益，烦请提交相关链接至邮箱bqsm@foxmail.com我们将及时予以处理。

          建议您使用1920×1080分辨率、谷歌浏览器Google Chrome、Microsoft Edge以获得本站的最佳浏览效果

          Copygight © 2008-2022 https://www.lidatong.com.cn/ All Rights Reserved. 李大同