Question

我想为balise xml添加属性。

    set serveroutput on;
    DECLARE
      doc  xmltype := xmltype(
      '<workbook>
         <worksheet sheetName="MySheet1" sheetId="1"/>
         <worksheet sheetName="MySheet2" sheetId="2"/>
         <worksheet sheetName="MySheet3" sheetId="3"/>
       </workbook>');
    BEGIN
    select updatexml(doc,'workbook','<workbook id="1"></workbook>') into                 doc from dual;            
    dbms_output.put_line(doc.getclobval());
    END;

但是如果我添加的话，我将不再具有“工作表”标签。

你能帮我吗？

Answer 1

如果要向现有节点添加属性，而不是添加其他节点，则可以使用insertchildxml：

insertchildxml(doc, '/workbook', '@id', '1')

所以在您的代码中：

DECLARE
  doc  xmltype := xmltype(
  '<workbook>
     <worksheet sheetName="MySheet1" sheetId="1"/>
     <worksheet sheetName="MySheet2" sheetId="2"/>
     <worksheet sheetName="MySheet3" sheetId="3"/>
   </workbook>');
  txt clob;
BEGIN
  select insertchildxml(doc, '/workbook', '@id', '1') into doc from dual;            
  dbms_output.put_line(doc.getclobval());
END;
/

<workbook id="1"><worksheet sheetName="MySheet1" sheetId="1"/><worksheet sheetName="MySheet2" sheetId="2"/><worksheet sheetName="MySheet3" sheetId="3"/></workbook>

PL/SQL procedure successfully completed.

或出于可读性考虑对其进行格式化：

DECLARE
  doc  xmltype := xmltype(
  '<workbook>
     <worksheet sheetName="MySheet1" sheetId="1"/>
     <worksheet sheetName="MySheet2" sheetId="2"/>
     <worksheet sheetName="MySheet3" sheetId="3"/>
   </workbook>');
  txt clob;
BEGIN
  select insertchildxml(doc, '/workbook', '@id', '1') into doc from dual;            
  select xmlserialize(document doc indent size=2) into txt from dual;            
  dbms_output.put_line(txt);
END;
/

<workbook id="1">
  <worksheet sheetName="MySheet1" sheetId="1"/>
  <worksheet sheetName="MySheet2" sheetId="2"/>
  <worksheet sheetName="MySheet3" sheetId="3"/>
</workbook>


PL/SQL procedure successfully completed.

但是insertchildxml is deprecated（和appendchildxml一样），因此您可以使用XMLQuery代替：

xmlquery('copy $out := $in modify
    ( insert node attribute id {"1"} into $out/workbook )
    return $out'
  passing doc as "in" returning content)

再次输入代码并设置格式以供显示：

DECLARE
  doc  xmltype := xmltype(
  '<workbook>
     <worksheet sheetName="MySheet1" sheetId="1"/>
     <worksheet sheetName="MySheet2" sheetId="2"/>
     <worksheet sheetName="MySheet3" sheetId="3"/>
   </workbook>');
  txt clob;
BEGIN
  select xmlquery('copy $out := $in modify
      ( insert node attribute id {"1"} into $out/workbook )
      return $out'
    passing doc as "in" returning content)
  into doc from dual;            
  select xmlserialize(document doc indent size=2) into txt from dual;            
  dbms_output.put_line(txt);
END;
/

<workbook id="1">
  <worksheet sheetName="MySheet1" sheetId="1"/>
  <worksheet sheetName="MySheet2" sheetId="2"/>
  <worksheet sheetName="MySheet3" sheetId="3"/>
</workbook>


PL/SQL procedure successfully completed.

您还可以将属性值传递到XPath：

DECLARE
  doc  xmltype := xmltype(
  '<workbook>
     <worksheet sheetName="MySheet1" sheetId="1"/>
     <worksheet sheetName="MySheet2" sheetId="2"/>
     <worksheet sheetName="MySheet3" sheetId="3"/>
   </workbook>');
  txt clob;
BEGIN
  select xmlquery('copy $out := $in modify
      ( insert node attribute id {$id} into $out/workbook )
      return $out'
    passing doc as "in", 42 as "id" returning content)
  into doc from dual;            
  select xmlserialize(document doc indent size=2) into txt from dual;            
  dbms_output.put_line(txt);
END;
/

<workbook id="42">
  <worksheet sheetName="MySheet1" sheetId="1"/>
  <worksheet sheetName="MySheet2" sheetId="2"/>
  <worksheet sheetName="MySheet3" sheetId="3"/>
</workbook>


PL/SQL procedure successfully completed.

如果要添加名称空间作为属性，可以执行以下操作：

DECLARE
  doc  xmltype := xmltype(
  '<workbook>
     <worksheet sheetName="MySheet1" sheetId="1"/>
     <worksheet sheetName="MySheet2" sheetId="2"/>
     <worksheet sheetName="MySheet3" sheetId="3"/>
   </workbook>');
  txt clob;
BEGIN
  select xmlquery('copy $out := $in modify
      ( insert node attribute {concat("xmlns:", $id)} {$path} into $out/workbook )
      return $out'
    passing doc as "in", 'ns' as "id", 'http://example.com' as "path" returning content)
  into doc from dual;            
  select xmlserialize(document doc indent size=2) into txt from dual;            
  dbms_output.put_line(txt);
END;
/

<workbook xmlns:ns="http://example.com" xmlns:xmlns="http://www.w3.org/2000/xmlns/">
  <worksheet sheetName="MySheet1" sheetId="1"/>
  <worksheet sheetName="MySheet2" sheetId="2"/>
  <worksheet sheetName="MySheet3" sheetId="3"/>
</workbook>


PL/SQL procedure successfully completed.

但是由于您的节点没有看起来毫无意义的命名空间。

将属性添加到元素xml

1 个答案: