如何在没有命名空间的情况下将类导出到 xml？答案

【问题标题】：How to export class to xml without namespace?如何在没有命名空间的情况下将类导出到 xml？
【发布时间】：2021-10-15 22:15:26
【问题描述】：

我正在使用 IRIS（Intersystems）并尝试将类导出到 xml 并从母类中删除标签“xmlns”。这些是我创建 XML 的类。

班级测试：

Class Class.Test Extends (%RegisteredObject, %XML.Adaptor)
{ 
Parameter NAMESPACE = "http://mynamespace.com/test"; 
Property Person As Class.Person; Property Address As Class.Address; 
}

类人：

Class Class.Person Extends (%RegisteredObject, %XML.Adaptor)
{ 
Parameter NAMESPACE = "http://mynamespace.com/test"; 
Property name As %String; Property age As %String; 
}

上课地址：

Class Class.Address Extends (%RegisteredObject, %XML.Adaptor)
{ 
Parameter NAMESPACE = "http://mynamespace.com/test"; 
Property location As %String; 
}

这是我导出 XML 的功能：

set writer=##class(%XML.Writer).%New()
set writer.Indent=1
set writer.Charset="ISO-8859-1"
set status=writer.OutputToString()
set status=writer.RootObject(objectTest)
set xml=writer.GetXMLString()

这是生成的 xml：

<?xml version="1.0" encoding="ISO-8859-1"?>
<Test xmlns="http://mynamespace.com/test">
<Person>
    <name>John</name>
    <age>22</age>
</Person>
<Address>
    <location>New York NY 10036</location>
</Address>
</Test>

当我从 Class.Test 中删除参数 NAMESPACE 时，我的 xml 会发生这种情况。

<?xml version="1.0" encoding="ISO-8859-1"?>
<Test>
<Person xmlns:s01="http://mynamespace.com/test">
    <s01:name>1</s01:name>
</Person>
<ResultadoCultura xmlns:s01="http://mynamespace.com/test">
    <s01:location>New York NY 10036</s01:location>
</ResultadoCultura>
</Test>

有人可以帮助我吗？我想创建这个 XML：

<?xml version="1.0" encoding="ISO-8859-1"?>
<Test>
<Person>
    <name>John</name>
    <age>22</age>
</Person>
<Address>
    <location>New York NY 10036</location>
</Address>
</Test>

最好的问候。

【问题讨论】：

标签： xml intersystems-cache intersystems-iris

【解决方案1】：

你已经在你的类中扩展了%XML.Adaptor，所以，你可以直接导出对象

  Set status = objectTest.XMLExportToString(.xml)
  Write xml

将输出

<Test><Person><name>John</name><age>22</age></Person><Address><location>New York NY 10036</location></Address></Test>

【讨论】：