select * from pdpla_approve_proj;
create or replace procedure proj_xml(st_id varchar2)
is
pro_rows pdpla_approve_proj%rowtype;--行游標
tempsql varchar2(100) :='select * from pdpla_approve_proj where st_id='''||st_id||'''';--
type cur is ref cursor;--自定義游標
proj_cur cur ;--自定義游標實例
doc xmldom.domdocument := xmldom.newdomdocument;--文檔對象
doc_node xmldom.domnode := xmldom.makenode(doc);--文檔節(jié)點
root_ele xmldom.domelement := xmldom.createelement(doc,'root');--文檔根元素
st_pro_ele xmldom.domelement;
project_ele xmldom.domelement;
st_pro_node xmldom.domnode;
root_node xmldom.domnode;
project_node xmldom.domnode;
t_node xmldom.domnode;
cnt number :=1;
buf varchar2(1000);
begin
dbms_output.put_line('tempsql'||tempsql);
root_node := xmldom.appendchild(doc_node,xmldom.makenode(root_ele));
xmldom.setattribute(root_ele,'id',st_id);
open proj_cur for tempsql;--打開游標
loop
fetch proj_cur into pro_rows;
exit when proj_cur%notfound;
project_ele := xmldom.createelement(doc,'project');
project_node := xmldom.appendchild(root_node,xmldom.makenode(project_ele));
st_pro_ele := xmldom.createelement(doc,'st_pro_id');
st_pro_node := xmldom.appendchild(project_node,xmldom.makenode(st_pro_ele));
t_node := xmldom.appendchild(st_pro_node,xmldom.makenode(xmldom.createtextnode(doc,pro_rows.st_project_id)));
st_pro_ele := xmldom.createelement(doc,'st_info_type');
st_pro_node := xmldom.appendchild(project_node,xmldom.makenode(st_pro_ele));
t_node := xmldom.appendchild(st_pro_node,xmldom.makenode(xmldom.createtextnode(doc,pro_rows.st_info_type)));
cnt :=cnt+1;
end loop;
close proj_cur;
xmldom.writetobuffer(doc,buf);
xmldom.freedocument(doc);
dbms_output.put_line('cnt'||cnt);
dbms_output.put_line('doc'||buf);
exception
when others then
dbms_output.put_line('sqlerrm'||sqlerrm);
end;
create or replace procedure p_parse (id in varchar2) is--創(chuàng)建xml解析器實例xmlparser.parserxmlpar xmlparser.parser :=xmlparser.newparser;--定義dom文檔xdoc xmldom.domdocument;--定義data子節(jié)點數(shù)目變量lenitme integer;--定義節(jié)點列表，存放data節(jié)點們itemnodes xmldom.domnodelist;--定義節(jié)點列表，存放data子節(jié)點們childnodes xmldom.domnodelist;--定義節(jié)點，存放單個data節(jié)點itemnode xmldom.domnode;--定義屬性變量，存放節(jié)點屬性itemarrmap xmldom.domnamednodemap;--定義其他變量，存放子節(jié)點的值name varchar(100);value varchar(100);newid number(10);--定義clob變量，存放xml字符串para_namexmlstr clob;begin for cur in (select t.xml_data para_name ,t.id from xmldata t where t.id=id ) --從xmldata表中查詢數(shù)據(jù)，id不是唯一標識，一個id可查出多條數(shù)據(jù)(xml中多條數(shù)據(jù))，故用loop循環(huán) loop --獲取para_name中的xml字符串 xmlstr:=cur.para_name; xmlpar :=xmlparser.newparser; --解析xmlstr中xml字符串，并存放到xmlpar中 xmlparser.parseclob(xmlpar, xmlstr); --將xmlpar中的數(shù)據(jù)轉(zhuǎn)存到dom文檔中 xdoc:=xmlparser.getdocument(xmlpar); xmlparser.freeparser(xmlpar); --釋放解析器實例 --獲取所有data節(jié)點 itemnodes:=xmldom.getelementsbytagname(xdoc,'data'); --獲取data節(jié)點的個數(shù) lenitme :=xmldom.getlength(itemnodes); --遍歷所有的data節(jié)點 for i in 0..lenitme-1 loop begin --獲取節(jié)點列表中的第i個data節(jié)點 itemnode:=xmldom.item(itemnodes,i); --獲取第i個data節(jié)點的所有子節(jié)點 childnodes:=xmldom.getchildnodes(itemnode); --獲取所有子節(jié)點的值 newid:=xmldom.getnodevalue(xmldom.getfirstchild(xmldom.item(childnodes,0))); name:=xmldom.getnodevalue(xmldom.getfirstchild(xmldom.item(childnodes,1))); value:=xmldom.getnodevalue(xmldom.getfirstchild(xmldom.item(childnodes,2))); --將子節(jié)點的值newid,name,value存放到xmltest insert into xmltest values(newid,name,value); commit; end; end loop; end loop; --是否dom文檔 xmldom.freedocument(xdoc); --異常和錯誤處理 exception when others then dbms_output.put_line(sqlerrm);end p_parse;