背景:
数据库中存在两个数据表t_xml和t_parse,前者是将xml文档中主要节点以字符串的形式存放到para_name字段中,后者用于将para_name字段中xml字符串进行解析,将子节点提取出来进行存放。
例如:para_name中的xml字符串为<item><cpu_name>name1</cpu_name><value>80%</value></item>,则在t_parset数据表中将分别提取name1和80%进行存放。
t_xml的表结构为<id,para_name>,t_parse的表结构为<id,name,value>,存储的xml字符串结构为<item><cpu_name>name1</cpu_name><value>80%</value></item>。
存储过程:
create or replace procedure p_parse (ID in varchar2) is
--创建xml解析器实例xmlparser.Parser
xmlPar xmlparser.Parser :=xmlparser.newParser;
--定义DOM文档
xDoc xmldom.DOMDocument;
--定义item子节点数目变量
lenItme integer;
--定义节点列表,存放item节点们
itemNodes xmldom.DOMNodeList;
--定义节点列表,存放item子节点们
childNodes xmldom.DOMNodeList;
--定义节点,存放单个item节点
itemNode xmldom.DOMNode;
--定义属性变量,存放节点属性
itemArrMap xmldom.DOMNamedNodeMap;
--定义其他变量,存放子节点的值
name varchar(100);
value varchar(100);
--定义clob变量,存放xml字符串para_name
xmlStr clob;
begin
for cur in (select t.para_name ,t.id from t_xml t where t.id=ID )
--从t_xml表中查询数据,id不是唯一标识,一个id可查出多条数据,故用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); --释放解析器实例
--获取所有item节点
itemNodes:=xmldom.getElementsByTagName(xDoc,'item');
--获取item节点的个数
lenItme :=xmldom.getLength(itemNodes);
--遍历所有的item节点
for i in 0..lenItme-1
loop
begin
--获取节点列表中的第i个item节点
itemNode:=xmldom.item(itemNodes,i);
--获取第i个item节点的所有子节点
childNodes:=xmldom.getChildNodes(itemNode);
--获取所有子节点的值
name:=xmldom.getNodeValue(xmldom.getFirstChild(xmldom.item(childNodes,0)));
value:=xmldom.getNodeValue(xmldom.getFirstChild(xmldom.item(childNodes,1)));
--将子节点的值name1和80%存放到t_parse表中
insert into t_parse values(ID,name,value);
commit;
end;
end loop;
end loop;
--是否dom文档
xmldom.freeDocument(xDoc);
--异常和错误处理
EXCEPTION
WHEN OTHERS THEN
DBMS_output.PUT_LINE(SQLERRM);
end p_parse;
存储过程创建完毕之后,就可以进行测试了,右击存储过程名称,在快捷菜单中点击test进行测试,测试时需要手动输入id值,然后一步一步进行测试即可。