如果读取Oracle数据库xml节点值

如果读取Oracle数据库xml节点值

需求描述

表单信息是以xml格式的字符串存储在clob类型的字段中，如何获取呢？
写一个function(函数)，参数有xml格式字符串(dataxml值)和指定节点(nodeName)，返回指定节点的值(nodeValue)。

编码实现：

--get_xml_nodeValue实现 start
CREATE OR REPLACE FUNCTION get_xml_nodeValue(xmlStr CLOB, nodeName VARCHAR2) RETURN VARCHAR2 IS
  --创建xml解析器实例xmlparser.Parser
  xmlPar xmlparser.Parser := xmlparser.newParser;
  --定义DOM文档
  xDoc xmldom.DOMDocument;
  --定义item子节点数目变量
  lenItme INTEGER;
  --定义节点列表，存放item节点们
  itemNodes xmldom.DOMNodeList;
  --定义节点，存放单个item节点
  itemNode xmldom.DOMNode;
  valueReturn VARCHAR2 (100);
BEGIN
  --解析xmlStr中xml字符串，并存放到xmlPar中
  xmlparser.parseClob(xmlPar, xmlStr);
  --将xmlPar中的数据转存到dom文档中
  xDoc := xmlparser.getDocument(xmlPar);
  --释放解析器实例
  xmlparser.freeParser(xmlPar);
  --获取所有item节点
  itemNodes := xmldom.getElementsByTagName(xDoc, nodeName);
  --获取item节点的个数
  lenItme := xmldom.getLength(itemNodes);
  --如果无该标签，则返回EMPTY
  IF lenItme = 0 THEN
    valueReturn := '';
  ELSE
    --获取节点列表中的第1个item节点
    itemNode := xmldom.item (itemNodes, 0);
    --获取所有子节点的值
    valueReturn := xmldom.getNodeValue(xmldom.getFirstChild (itemNode));
  END IF;
  --释放dom
  xmldom.freeDocument(xDoc);
  RETURN valueReturn;
END get_xml_nodeValue;

--get_xml_nodeValue实现 end

调用测试：

-- 创建测试表
create table t1(
	id int，
	data clob
);

-- 写入测试数据
insert into t1(id,data)
values(1,'<doc>
	<name>张飞</name>
	<idcard>123456780000</idcard>
</doc>');

commit;

-- 查询数据
select id,data
       ,get_xml_nodeValue(data,'name') as name
       ,get_xml_nodeValue(data,'idcard') as idcard
from t1;

输出结果：