oracle解析xml文本,Oracle存储过程解析XML

CREATE OR REPLACE

PROCEDURE P_AddPartPopedom(partPopedom_xml in clob)

as

------------------=================该存储过程负责存储角色权限================---------------------

--//XML解析器

xmlPar XMLPARSER.parser := XMLPARSER.NEWPARSER;

--//DOM文档对象

doc xmldom.DOMDocument;

len Integer;

personNodes xmldom.DOMNodeList;

chilNodes xmldom.DOMNodeList;

tempNode xmldom.DOMNode;

tempArrMap xmldom.DOMNamedNodeMap;

--================================

--以下变量用于获取XML节点的值

partNum varchar2(50); --角色编号

menuNum varchar2(50); --菜单编号

operateNum varchar2(50); --操作编号

tmp Integer;

--================

BEGIN

xmlPar := xmlparser.newParser;

xmlparser.parseClob(xmlPar,partPopedom_xml);

doc := xmlparser.getDocument(xmlPar);

-- 释放解析器实例

xmlparser.freeParser(xmlPar);

personNodes := xmldom.getElementsByTagName_r(doc, 'PARTPOPEDOM');

len := xmldom.getLength( personNodes );

--遍历所有PERSON元素

FOR i in 0..len-1

LOOP

--获取第i个

tempNode := xmldom.item(personNodes, i);

--所有属性

tempArrMap := xmldom.getAttributes(tempNode);

--获取PERSONID的值

--pid := xmldom.getNodeValue(xmldom.getNamedItem(tempArrMap,'POPEDOM'));

--获取子元素的值

chilNodes := xmldom.getChildNodes(tempNode);

tmp := xmldom.GETLENGTH(chilNodes);

partNum := xmldom.getNodeValue(xmldom.getFirstChild(xmldom.item(chilNodes, 0)));

menuNum := xmldom.getNodeValue(xmldom.getFirstChild(xmldom.item(chilNodes, 1)));

operateNum := xmldom.getNodeValue(xmldom.getFirstChild(xmldom.item(chilNodes, 2)));

--插入数据

INSERT INTO SD_SYS_PARTPOPEDOM VALUES (SEQ_SDSYSPARTPOPEDOM.nextval, partNum, menuNum, operateNum);

COMMIT;

END LOOP;

-- 释放文档对象

xmldom.freeDocument(doc);

EXCEPTION

WHEN OTHERS THEN

DBMS_output.PUT_LINE(SQLERRM);

END P_AddPartPopedom;