oracle xmldom转字符串,Oracle xml 转换

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);--文档节点

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

--创建xml解析器实例xmlparser.Parser

xmlPar xmlparser.Parser :=xmlparser.newParser;

--定义DOM文档

xDoc xmldom.DOMDocument;

--定义DATA子节点数目变量

lenItme integer;

--定义节点列表，存放DATA节点们

itemNodes xmldom.DOMNodeList;

--定义节点列表，存放DATA子节点们

childNodes xmldom.DOMNodeList;

--定义节点，存放单个DATA节点

itemNode xmldom.DOMNode;

--定义属性变量，存放节点属性

itemArrMap xmldom.DOMNamedNodeMap;

--定义其他变量，存放子节点的值

name varchar(100);

value varchar(100);

newid NUMBER(10);

--定义clob变量，存放xml字符串para_name

xmlStr clob;

begin

for cur in (select t.xml_data para_name ,t.id from xmldata t where t.id=ID )

--从xmldata表中查询数据，id不是唯一标识，一个id可查出多条数据(XML中多条数据)，故用loop循环

loop

--获取para_name中的xml字符串

xmlStr:=cur.para_name;

xmlPar :=xmlparser.newParser;

--解析xmlStr中xml字符串，并存放到xmlPar中

xmlparser.parseClob(xmlPar, xmlStr);

--将xmlPar中的数据转存到dom文档中

xDoc:=xmlparser.getDocument(xmlPar);

xmlparser.freeParser(xmlPar); --释放解析器实例

--获取所有DATA节点

itemNodes:=xmldom.getElementsByTagName(xDoc,'DATA');

--获取DATA节点的个数

lenItme :=xmldom.getLength(itemNodes);

--遍历所有的DATA节点

for i in 0..lenItme-1

loop

begin

--获取节点列表中的第i个DATA节点

itemNode:=xmldom.item(itemNodes,i);

--获取第i个DATA节点的所有子节点

childNodes:=xmldom.getChildNodes(itemNode);

--获取所有子节点的值

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)));

--将子节点的值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;