做了一个批改节点的例子,还需要改进,有没大侠有兴趣瞧一瞧

做了一个批改节点的例子,还需要改进,有没大侠有兴趣瞧一瞧 做了一个修改节点的例子,还需要改进,有没大侠有兴趣瞧一瞧 本帖最后由 wuyazhe 于 2012-09-11 22:06:32 编辑 第一个贴子地址 ''' summary ''' 在xml文档指定节点下修改子节点,只修改最先找到的那个节点 ''' /summary ''' param name= XmlPath xml路径 /param ''' param name= Node 节点 /param ''' param name= ChildNode 子节点 /param ''' param name= ChildsNode 子节点的节点 /param ''' param name= ChildesNode 下一子节点 /param ''' param name= Value 新添节点的值 /param Public Shared Function ReadXmlReplaceNode(ByVal Node As String, Optional ByVal Value As String = , Optional ByVal ChildNode As String = , Optional ByVal ChildsNode As String = , Optional ByVal ChildesNode As String = , Optional ByVal XmlPath As String = CKs.xml ) As Integer If Trim(Node) = Then Return 0 Else Node = Node.ToUpper.Trim End If Dim docXml As New XmlDocument() docXml.Load(XmlPath) Value = Value.Trim If docXml.DocumentElement.Name = OneNode Then '查看文件是否正确 Dim v1, v2, v3 As Boolean If Not Trim(ChildNode) = Then v1 = True ChildNode = ChildNode.ToUpper.Trim If Not Trim(ChildsNode) = Then v2 = True ChildsNode = ChildsNode.ToUpper.Trim If Not Trim(ChildesNode) = Then