Oracle使用PL/SQL从嵌套的xml节点读取xml数据

你好，汤姆，

我是xml的新手，不懂Java ，不幸的是，我现在没有时间学习它，因为我需要在几天内完成一个小的原型。我做了很多阅读和审查许多OTN参考，但我不能解决我的问题。可能是因为我知道的不够多。我使用的是Oracle 11g。
我还想在PL/SQL中完成这些工作。我的要求是：
1)我在服务器位置“MYDIR”中有一个xml文件（'test.xml'）
2)我要读取xml数据并存储到DB表中
3)我使用'BFILENAME'实用程序将xml数据加载到'BFILE'中，并使用'dbms_xmlparser'实用程序解析xml数据。
4)还使用'dbms_xsl处理器'实用程序来处理xml节点
5)我可以从外部循环中的外部xml节点读取'Personals_Record'详细信息（'Cur_emp'） ，但当我试图从内部循环中的嵌套xml节点读取'Manager_Record'详细信息时（'Cur_mgr'） ，它非常难读取相应的嵌套节点。我的代码在单个迭代中不断读取“Manager_Record”的全部详细信息（从上到下）。
然后控制从内环开始，开始外环的第二次迭代。
6)最终，它在第二次迭代中再次读取了完整的“Manager_Record”详细信息（从上到下）。我相信，是因为节点初始化
“人员记录”的节点初始化-->'/DATA_DS/G_1/G_2/FILE_FRAGS/HCM_Transaction_and_Foundation_Data_to_EBS/人员/人员_Re弦

Manager_Record的节点初始化-->'/DATA_DS/G_1/G_2/FILE_FRAGS/HCM_Transaction_and_Foundation_Data_to_EBS/人员/人员记录/工作分配/工作分配/记录/经理/经理记录'
7)一旦它读取了特定人员的相应的“Manager_Record”，它就必须存在于内部循环中。

我包含了一个XML文档类型的示例和我正在处理的代码。
'test.xml'是

1



Foundation Data

123

Ram

EMP


A123
BC
LINE_MANAGER


LINE_MANAGER_ONE
Line manager one name
Line manager one number




XX_SUPERVISOR_ONE
Supervisor one name
Supervisor one number

124

John

EMP


A124
AC
LINE_MANAGER


LINE_MANAGER_TWO
Line manager two name
Line manager two numb




XX_SUPERVISOR_TWO
Supervisor two name
Supervisor two numb

124

Miller

EMP


A124
IC
LINE_MANAGER


LINE_MANAGER_THREE
Line manager three name
Line manager three numb




XX_SUPERVISOR_THREE
Supervisor three name
Supervisor three numb

125

Rose

EMP


A125
BC
LINE_MANAGER


LINE_MANAGER_FOUR
Line manager four name
Line manager four numb




XX_SUPERVISOR_FOUR
Supervisor four name
Supervisor four numb












代码是

DECLARE
v_bfile BFILE ;
l_clob CLOB;
l_parser dbms_xmlparser.Parser;
l_doc dbms_xmldom.DOMDocument;
l_nl dbms_xmldom.DOMNodeList;
l_n dbms_xmldom.DOMNode;
l_nl1 dbms_xmldom.DOMNodeList;
l_n1 dbms_xmldom.DOMNode;
l_temp_holder1 varchar2(500);
l_temp_holder2 varchar2(500);
l_temp_holder3 varchar2(500);
l_temp_holder4 varchar2(500);
l_temp_holder5 varchar2(500);
l_temp_holder6 varchar2(500);
l_temp_holder7 varchar2(500);
l_truncator number := 0;
l_count number := 0;
l_count1 number := 0;
BEGIN
DBMS_OUTPUT.PUT_LINE ('*Starting*');
v_bfile := BFILENAME( 'MYDIR', 'test.xml' );
dbms_lob.createtemporary(l_clob, cache=>FALSE);
dbms_lob.open(v_bfile, dbms_lob.lob_readonly);
dbms_lob.loadFromFile(dest_lob => l_clob, src_lob => v_bfile, amount => dbms_lob.getLength(v_bfile));
dbms_lob.close(v_bfile);
l_parser := dbms_xmlparser.newParser;
dbms_xmlparser.parseClob(l_parser, l_clob);
l_doc := dbms_xmlparser.getDocument(l_parser);
dbms_lob.freetemporary(l_clob);
dbms_xmlparser.freeParser(l_parser);
l_nl := dbms_xslprocessor.selectNodes(dbms_xmldom.makeNode(l_doc),'/DATA_DS/G_1/G_2/FILE_FRAGMENT/Foundation_Data/Persons/Persons_Record');
FOR cur_emp IN 0 .. dbms_xmldom.getLength(l_nl) - 1
LOOP
l_n := dbms_xmldom.item(l_nl, cur_emp);
DBMS_OUTPUT.PUT_LINE ('*Main LOOP* Itteration - '||l_count1 );
dbms_xslprocessor.valueOf(l_n,'Person_Number/text()',l_temp_holder1);
dbms_xslprocessor.valueOf(l_n,'Person_Type/text()',l_temp_holder2);
dbms_xslprocessor.valueOf(l_n,'Assignments/Assignments_Record/Assignment_Number/text()',l_temp_holder3);
dbms_xslprocessor.valueOf(l_n,'Assignments/Assignments_Record/Assignment_Manager_Type/text()',l_temp_holder4);
l_nl1 := dbms_xslprocessor.selectNodes(dbms_xmldom.makeNode(l_doc),'/DATA_DS/G_1/G_2/FILE_FRAGMENT/Foundation_Data/Persons/Persons_Record/Assignments/Assignments_Record/Managers/Manager_Record');
FOR cur_mgr IN 0 .. dbms_xmldom.getLength(l_nl1) - 1
LOOP
l_n1 := dbms_xmldom.item(l_nl1, cur_mgr);

dbms_xslprocessor.valueOf(l_n1,'Manager_Type/text()',l_temp_holder5);
dbms_xslprocessor.valueOf(l_n1,'Manager_Name/text()',l_temp_holder6);
dbms_xslprocessor.valueOf(l_n1,'Manager_Number/text()',l_temp_holder7);
DBMS_OUTPUT.PUT_LINE (' mgr type- '||l_temp_holder5);
DBMS_OUTPUT.PUT_LINE (' mgr name- '||l_temp_holder6);
DBMS_OUTPUT.PUT_LINE (' mgr numb- '||l_temp_holder7);
l_count := l_count+1;
IF MOD(l_count,2) <> 0 THEN

EXIT;
END IF;
END LOOP;
l_count1 := l_count1+1;
END LOOP;
DBMS_OUTPUT.PUT_LINE ('*Ending*');
EXCEPTION
WHEN OTHERS THEN
DBMS_OUTPUT.PUT_LINE ('Error '||SQLCODE||SQLERRM);
END;
/
SHOW ERR;


什么是实现此目的的好方法? ，我想在PL/SQL中实现此目的。我已经使用了许多实用程序和测试用例（ dbms_xsl处理器、XML TABLE、ExtractValue等，但我一直没有太多运气）.
如有任何帮助，我们将不胜感激。谢谢你。
最诚挚的问候，拉姆