PL/SQL - XML Clob 错误

Question

我正在尝试测试一个以 xml CLOB 作为参数的 PL/SQL 过程

PROCEDURE example_proc(ex_xml CLOB) IS
BEGIN

/* Find the second < (skip over declaration) */
ln_position := instr(pc_shipment_xml, '<', 1, 2);
/* Find the space after the first tag */
ln_position := instr(pc_shipment_xml, ' ', ln_position, 1);
/* Set the first part of the XML clob */
lc_shipment_xml := substr(pc_shipment_xml, 1, ln_position - 1);
/* Skip the namespace */
ln_position     := instr(pc_shipment_xml, '>', ln_position, 1);
lc_shipment_xml := lc_shipment_xml || substr(pc_shipment_xml, ln_position);

/* Set the XML type */
lx_shipment_xml := xmltype(lc_shipment_xml); --RIGHT HERE IS WHERE IT ERRORS OUT

这是我传入的 xml（作为 ex_xml clob 参数）：

    xml := 
'<Shipment>
  <OrderNumber>00000</OrderNumber>
   <ShipmentLines>
    <ShipmentLine>
      <OrderDetailId>000000</OrderDetailId>
      <LineNumber>0</LineNumber>
      <ItemId>00000</ItemId>
      <UnitId>0000000</UnitId>
      <BaseUom>X</BaseUom>
      <Quantity1>000</Quantity1>
    </ShipmentLine>
  </ShipmentLines>
</Shipment>';

它在最后一行出错：

ORA-19202: Error occurred in XML processing
LPX-002255: end-element tag "ShipmentLines" does not match start-element tag "Shipment"

请原谅我的无知，但这是我第一次在 PL/SQ 中使用 XML，我是否遗漏了格式？据我所见，我正在正确打开和关闭我的标签。任何意见都表示赞赏。

Answer 1

运行你的代码

declare
  pc_shipment_xml CLOB := '<Shipment>
  <OrderNumber>00000</OrderNumber>
   <ShipmentLines>
    <ShipmentLine>
      <OrderDetailId>000000</OrderDetailId>
      <LineNumber>0</LineNumber>
      <ItemId>00000</ItemId>
      <UnitId>0000000</UnitId>
      <BaseUom>X</BaseUom>
      <Quantity1>000</Quantity1>
    </ShipmentLine>
  </ShipmentLines>
</Shipment>';
  lc_shipment_xml varchar2(2000);
  ln_position integer;
BEGIN
  /* Find the second < (skip over declaration) */
  ln_position := instr(pc_shipment_xml, '<', 1, 2);
  /* Find the space after the first tag */
  ln_position := instr(pc_shipment_xml, ' ', ln_position, 1);
  /* Set the first part of the XML clob */
  lc_shipment_xml := substr(pc_shipment_xml, 1, ln_position - 1);
  /* Skip the namespace */
  ln_position     := instr(pc_shipment_xml, '>', ln_position, 1) + 1;
  lc_shipment_xml := lc_shipment_xml || substr(pc_shipment_xml, ln_position);
  dbms_output.put_line(lc_shipment_xml);
end;
/

给出以下输出：

<Shipment>
  <OrderNumber>00000</OrderNumber>

    <ShipmentLine>
      <OrderDetailId>000000</OrderDetailId>
      <LineNumber>0</LineNumber>
      <ItemId>00000</ItemId>
      <UnitId>0000000</UnitId>
      <BaseUom>X</BaseUom>
      <Quantity1>000</Quantity1>
    </ShipmentLine>
  </ShipmentLines>
</Shipment>

所以看起来您正在剥离开始 ShipmentLines 标记，而不是结束标记

如果您知道要删除的标签的名称，则可以更简单地使用

lc_shipment_xml := regexp_replace(pc_shipment_xml, '</?ShipmentLines>');

或按位置获取标签：

l_tag := regexp_substr(pc_shipment_xml, '<(\w+)>',1,3,'i',1);
lc_shipment_xml := regexp_replace(pc_shipment_xml, '</?' || l_tag || '>');

更好的方法是使用 xml 函数，如下所示：

declare
  pc_shipment_xml CLOB := '<Shipment>
  <OrderNumber>00000</OrderNumber>
  <ShipmentLines>
    <ShipmentLine>
      <OrderDetailId>000000</OrderDetailId>
      <LineNumber>0</LineNumber>
      <ItemId>00000</ItemId>
      <UnitId>0000000</UnitId>
      <BaseUom>X</BaseUom>
      <Quantity1>000</Quantity1>
    </ShipmentLine>
  </ShipmentLines>
</Shipment>';
  lx_shipment_xml xmltype := xmltype(pc_shipment_xml);
  lx_shipline_xml xmltype := xmltype(pc_shipment_xml);
  lc_shipment_xml varchar2(2000);
BEGIN
  /* Set the XML type */
    select extract(lx_shipment_xml, '/Shipment/ShipmentLines/ShipmentLine') into lx_shipline_xml from dual;
    select deletexml(lx_shipment_xml, '/Shipment/ShipmentLines') into lx_shipment_xml from dual;
    select insertxmlafter(lx_shipment_xml, '/Shipment/OrderNumber', lx_shipline_xml) into lx_shipment_xml from dual;
    select xmlserialize(content lx_shipment_xml) into lc_shipment_xml from dual;
    dbms_output.put_line(lc_shipment_xml);
end;
/

Answer 2

我解析 xml 的方式需要将 <?xml version="1.0"?> 放在 clob 的开头。解析方法不是我自己的代码，所以改变我做的方式不是一个选择。谢谢