oracle 解析xml字符串常用脚本

DECLARE

    l_operator VARCHAR2(100);

    l_year     VARCHAR2(10);

    l_month    VARCHAR2(10);

    l_xml_str VARCHAR2(4000); --xml字符串报文

    l_xmltype xmltype;

BEGIN

    --给定XML报文串

    l_xml_str := '<?xml version="1.0" encoding="UTF-8"?>

<XMLMSG>

  <INFO>

    <OPERATOR>SMILE</OPERATOR>

    <YEAR>2019</YEAR>

    <MONTH>12</MONTH> 

  </INFO>

  <STRARRAYS>

   <STRARRAY>

    <ID>1</ID>

    <CODE>CODE1</CODE>

    <NAME>NAME1</NAME>

  </STRARRAY>

  <STRARRAY>

    <ID>2</ID>

    <CODE>CODE2</CODE>

    <NAME>NAME2</NAME>

  </STRARRAY>

  <STRARRAY>

    <ID>3</ID>

    <CODE>CODE3</CODE>

    <NAME>NAME3</NAME>

  </STRARRAY>

  </STRARRAYS>

</XMLMSG>';

    --将XML报文转换成xmltype类型，便于后续解析

    l_xmltype := xmltype.createxml(l_xml_str);

    --普通简单的解析字段值

    SELECT xmlt.operator

          ,xmlt.year

          ,xmlt.month

    INTO   l_operator

          ,l_year

          ,l_month

    FROM   xmltable('$root/XMLMSG/INFO' passing l_xmltype AS "root" columns operator VARCHAR2(500) path 'OPERATOR'

                    ,YEAR VARCHAR2(500) path 'YEAR'

                    ,MONTH VARCHAR2(500) path 'MONTH') AS xmlt;

    dbms_output.put_line('operator:' || l_operator || '--year:' || l_year || '--month:' || l_month);

    --遍历输出二维数组

    FOR rec_list IN (SELECT xmlt.id

                           ,xmlt.code

                           ,xmlt.name

                     INTO   l_operator

                           ,l_year

                           ,l_month

                     FROM   xmltable('$root/XMLMSG/STRARRAYS/STRARRAY' passing l_xmltype AS "root" columns id VARCHAR2(500) path 'ID'

                                     ,code VARCHAR2(500) path 'CODE'

                                     ,NAME VARCHAR2(500) path 'NAME') AS xmlt) LOOP

        dbms_output.put_line(rec_list.id || '--' || rec_list.code || '--' || rec_list.name);

    END LOOP;

EXCEPTION

    WHEN fnd_api.g_exc_error THEN

        dbms_output.put_line('error:' || SQLCODE || '--' || SQLERRM);

    WHEN fnd_api.g_exc_unexpected_error THEN

        dbms_output.put_line('Unexpected_error.' || SQLCODE || '--' || SQLERRM);

    WHEN OTHERS THEN

        dbms_output.put_line('Other error:' || SQLCODE || '--' || SQLERRM);

END;