XMLDLL操作说明文档（三）

  ''//*创建XMLDLL文档示例
        'Dim m_xmldll As New XMLDLL.XMLDLL()
        ''m_xmldll.CreateXmlFile("d:\test1.xml", "utf-8", "Envelope", "SOAP-ENV", "", "http://schemas.xmlsoap.org/soap/envelope/")
        'm_xmldll.CreateXmlFile("d:\test1.xml", System.Text.Encoding.UTF8, "Envelope", "SOAP-ENV", "", "http://schemas.xmlsoap.org/soap/envelope/")
        ''*//
        Dim m_xmldoc As New System.Xml.XmlDocument
        Dim m_attribute(2) As Xml.XmlAttribute
        m_attribute(0) = m_xmldoc.CreateAttribute("SOAP-ENC")
        m_attribute(0).Value = "http://schemas.xmlsoap.org/soap/encodings/"
        m_attribute(1) = m_xmldoc.CreateAttribute("xmlns:xsi")
        m_attribute(1).Value = "http://www.w4.org/2001/XMLSchema-instance"
        m_attribute(2) = m_xmldoc.CreateAttribute("xsd")
        m_attribute(2).Value = "http://www.w3.org/2001/XMLSchema"
        'Dim m_attribute1(0) As Xml.XmlAttribute
        'm_attribute1(0) = m_xmldoc.CreateAttribute("xmlns:m")
        'm_attribute1(0).Value = "http://webservice.clini.org/"
       
        Dim nt As New Xml.NameTable
        Dim m_xmldll As New mydll("d:\test1.xml")
        Dim nsmgr As New Xml.XmlNamespaceManager(nt)
        nsmgr.AddNamespace("SOAP-ENV", "http://schemas.xmlsoap.org/soap/envelope/")
        nsmgr.AddNamespace("m", "http://webservice.clini.org/")
        'Dim nsmgr1 As New Xml.XmlNamespaceManager(nt)
        'nsmgr.AddNamespace("m", "tttt")
        '//增加节点属性值
        'm_xmldll.Add_XML_Attribute("d:\test1.xml", "SOAP-ENV:Envelope", m_attribute, "", nsmgr)
        '//设置节点属性值
        'm_xmldll.Set_XMLnode_Attrib_Value("d:\test1.xml", "SOAP-ENV:Envelope", "xmlns:SOAP-ENV", "http://schemas.xmlsoap.org/soap/envelope/1", "", nsmgr)
        '//得到节点属性值
        'Dim ss As String = m_xmldll.Get_XMLnode_Attrib_Value("d:\test1.xml", "SOAP-ENV:Envelope", "xmlns:SOAP-ENV", , nsmgr)
        'MessageBox.Show(ss)
        '//删除节点属性
        'm_xmldll.Remove_XMLnode_Attribute("d:\test1.xml", "SOAP-ENV:Envelope", , "xmlns:xsi", nsmgr)
        '元素带前缀的命名空间不允许删除

    
        '//增加节点元素
        'm_xmldll.Add_XML_Element("d:\test1.xml", "SOAP-ENV:Envelope", "Body", , , "", nsmgr)
        'm_xmldll.Add_XML_Element("d:\test1.xml", "Body", "getInHospType", , "m", "http://webservice.clini.org/", nsmgr)
        'm_xmldll.Add_XML_Element("d:\test1.xml", "m:getInHospType", "arg0", , , , nsmgr)
        'm_xmldll.Add_XML_Element("d:\test1.xml", "arg0", "areaId")
        'm_xmldll.Add_XML_Element("d:\test1.xml", "arg0", "inType")
        'm_xmldll.Add_XML_Element("d:\test1.xml", "arg0", "Remark1", "备注1")
        'm_xmldll.Add_XML_Element("d:\test1.xml", "arg0", "Remark2", "备注2")
        'XML规范：有前缀，必须有命名空间；无前缀，可以有命名空间，但无法使用
        '//删除节点元素
        'm_xmldll.Remove_XMLnode("d:\test1.xml", "Remark2", "arg0")
        'm_xmldll.Remove_XMLnode("d:\test1.xml", "m:getInHospType", , nsmgr)
        'm_xmldll.Remove_XMLnode("d:\test1.xml", "Body", , nsmgr)
        '//得到节点元素值
        'Dim sss As String = m_xmldll.Get_XMLnode_Value("d:\test1.xml", "Remark1", "arg0")
        'MessageBox.Show(sss)
        '//设置节点元素值
        'm_xmldll.Set_XMLnode_Value("d:\test1.xml", "Remark1", "备注me1")


        'm_xmldll.Add_XML_Element("d:\test1.xml", "Body", "m", "getInHospType", , Nothing, nsmgr)

        'm_xmldll.Remove_XMLnode_Attribute("d:\test1.xml", "m:getInHospType", "Body", , nsmgr)

        'm_xmldll.Remove_XMLnode_namespace("d:\test1.xml", "m:getInHospType", "Body", , nsmgr)

        'm_xmldll.Add_XML_Attribute("d:\test1.xml", "SOAP-ENV:Envelope", my_attribute.Name, "ccc")

        'm_xmldll.Add_XML_Attribute("d:\test1.xml", "body", Nothing, "", nsmgr)

        'm_xmldll.Add_XML_Element("d:\test1.xml", "SOAP-ENV:Envelope", "Body", "SOAP-ENV", "", Nothing, nsmgr)
        'm_xmldll.Add_XML_Element("d:\test1.xml", "SOAP-ENV:Body", "getInHospType", "m", "", "http://webservice.clini.org/", Nothing, nsmgr)