CREATE OR REPLACE PACKAGE zte_fbp_xml_util_pkg IS /* ==========================================================================+ 版权信息：版权所有(c) 2004，中兴通讯股份有限公司 文件名称：zte_fbp_xml_util_pkg 版 本 号：v1.0.0 创 建 者： 创建日期：2004-09-06 16:51:00 内容摘要：网上支付中的xml公用处理包
更改历史： 更改人 更改日期 更改原因 韩荣华 2005-02-20 在write_element_string过程中对xml值中有‘&’‘<>’等这些符号进行处理 +===========================================================================*/
--直接用CLOB处理xml的新接口1：创建xml document，对应write_end_document PROCEDURE write_start_document(p_clob IN OUT NOCOPY CLOB);
--直接用CLOB处理xml的新接口2：关闭xml document，对应write_end_document PROCEDURE write_end_document(p_clob IN OUT NOCOPY CLOB);
--直接用CLOB处理xml的新接口3：创建节点，对应write_end_element PROCEDURE write_start_element(p_clob IN OUT NOCOPY CLOB,p_element_name VARCHAR2);
--直接用CLOB处理xml的新接口4：关闭节点，对应write_start_element PROCEDURE write_end_element(p_clob IN OUT NOCOPY CLOB,p_element_name VARCHAR2);
--直接用CLOB处理xml的新接口5：创建子节点及值，并增加到CLOB中 PROCEDURE write_element_string(p_clob IN OUT NOCOPY CLOB,p_node_name VARCHAR2,p_node_value VARCHAR2); PROCEDURE write_element_string(p_clob IN OUT NOCOPY CLOB,p_node_name VARCHAR2,p_node_value NUMBER);
--直接用CLOB处理xml的新接口6：获取表多行数据增加到CLOB中 PROCEDURE write_multi_lines(p_clob IN OUT NOCOPY CLOB,p_sql VARCHAR2,p_rowset_tag_name VARCHAR2,p_row_tag_name VARCHAR2);
-- 获取 Element 下面的指定节点名称的对应值 -- 值为空时，返回NULL; 不存在此节点名称时, 程序抛错 FUNCTION get_node_value(p_elem xmldom.DOMElement, p_node_name VARCHAR2) RETURN VARCHAR2;
-- 获取 Element 下面的指定节点和属性名称的对应属性值 -- 值为空时，返回NULL; 不存在此节点名称时, 程序抛错; 不存在此属性时返回NULL FUNCTION get_attr_value(p_elem xmldom.DOMElement, p_node_name VARCHAR2, p_attr_name VARCHAR2) RETURN VARCHAR2;
-- 获取 Element 本身属性名称的对应属性值 -- 值为空时，返回NULL; 不存在此属性时返回NULL FUNCTION get_attr_value(p_elem xmldom.DOMElement, p_attr_name VARCHAR2) RETURN VARCHAR2;
-- 在 xmldom 中对象的节点下增加子节点及值 FUNCTION create_son_node(p_doc xmldom.DOMDocument,p_node xmldom.DOMNode,p_node_name VARCHAR2,p_node_value VARCHAR2) RETURN xmldom.DOMNode;
-- 在 xmldom 中对象的节点下增加子节点 FUNCTION create_son_node(p_doc xmldom.DOMDocument,p_node xmldom.DOMNode,p_node_name VARCHAR2) RETURN xmldom.DOMNode;
/*================================================================*/ PROCEDURE import_node ( p_doc xmldom.DOMDocument, -- 声明xmldomc对象 p_parentnode xmldom.DOMNode, -- 声明节点对象(xml需要加在下面) p_xml VARCHAR2 -- 输入xml字符串 ); /*==============================================================-+ 名 称：import_node 内容摘要：将一段xml字符串创建到指定的节点下。
调 用： 被调用 ： 创建者 ： 创建日期：2004-09-14 被访问表： 被更改表： 输 入：
p_doc xmldom.DOMDocument; -- 声明xmldomc对象 p_parentnode xmldom.DOMNode; -- 声明节点对象(xml需要加在下面) p_xml VARCHAR2 -- 输入xml字符串 输 出：
返 回 值： 其 它： 更改历史： 更改日期 更改人 更改说明
+================================================================*/ /*================================================================*/ PROCEDURE import_node ( p_doc xmldom.DOMDocument, -- 声明xmldomc对象 p_parentnode xmldom.DOMNode, -- 声明节点对象(xml需要加在下面) p_xml CLOB -- 输入xml CLOB ); /*==============================================================-+ 名 称：import_node 内容摘要：将一段xml字符串创建到指定的节点下。
调 用： 被调用 ： 创建者 ： 创建日期：2004-10-10 被访问表： 被更改表： 输 入：
p_doc xmldom.DOMDocument; -- 声明xmldomc对象 p_parentnode xmldom.DOMNode; -- 声明节点对象(xml需要加在下面) p_xml CLOB -- 输入xml CLOB 输 出：
返 回 值： 其 它： 更改历史： 更改日期 更改人 更改说明
+================================================================*/
PROCEDURE get_node_xml( p_xml_in VARCHAR2 , -- 输入xml p_node_name VARCHAR2 , -- 声明要要取的节点对象名称 p_xml_out OUT VARCHAR2 -- 输出xml ); /*==============================================================-+ 名 称：get_node_xml 内容摘要：返回p_xml_in字符串中指定的节点名称的下的字符串
调 用： 被调用 ： 创建者 ：zhangxiaoyan 创建日期：2004-09-14 被访问表： 被更改表： 输 入：
p_xml_in CLOB -- 输入xml CLOB p_parentnode VARCHAR2 -- 指定的节点名称 p_xml_out CLOB -- 输出xml CLOB 输 出：
返 回 值： 其 它： 更改历史： 更改日期 更改人 更改说明
+================================================================*/ PROCEDURE get_node_xml( p_xml_in CLOB , -- 输入xml CLOB p_node_name VARCHAR2 , -- 声明要要取的节点对象名称 p_xml_out OUT CLOB -- 输出xml CLOB ); /*==============================================================-+ 名 称：get_node_xml 内容摘要：返回p_xml_in字符串中指定的节点名称的下的字符串
调 用： 被调用 ： 创建者 ：zhangxiaoyan 创建日期：2004-10-11 被访问表： 被更改表： 输 入：
p_xml_in CLOB -- 输入xml CLOB p_parentnode VARCHAR2 -- 指定的节点名称 p_xml_out CLOB -- 输出xml CLOB 输 出：
返 回 值： 其 它： 更改历史： 更改日期 更改人 更改说明
+================================================================*/ END zte_fbp_xml_util_pkg; / CREATE OR REPLACE PACKAGE BODY zte_fbp_xml_util_pkg IS --直接用CLOB处理xml的新接口1：创建xml document，对应write_end_document PROCEDURE write_start_document(p_clob IN OUT NOCOPY CLOB) IS v_node VARCHAR2(50); BEGIN dbms_lob.createtemporary(p_clob,TRUE); v_node := '<?xml version="1.0" encoding="gb2312" ?>'; dbms_lob.writeappend(p_clob,LENGTH(v_node),v_node); END write_start_document;
--直接用CLOB处理xml的新接口2：关闭xml document，对应write_end_document PROCEDURE write_end_document(p_clob IN OUT NOCOPY CLOB) IS BEGIN NULL; END write_end_document;
--直接用CLOB处理xml的新接口3：创建节点，对应write_end_element PROCEDURE write_start_element(p_clob IN OUT NOCOPY CLOB,p_element_name VARCHAR2) IS v_node VARCHAR2(50); BEGIN v_node := '<'||p_element_name||'>'; dbms_lob.writeappend(p_clob,LENGTH(v_node),v_node); END write_start_element;
--直接用CLOB处理xml的新接口4：关闭节点，对应write_start_element PROCEDURE write_end_element(p_clob IN OUT NOCOPY CLOB,p_element_name VARCHAR2) IS v_node VARCHAR2(50); BEGIN v_node := '</'||p_element_name||'>'; dbms_lob.writeappend(p_clob,LENGTH(v_node),v_node); END write_end_element;
--直接用CLOB处理xml的新接口5：创建子节点及值，并增加到CLOB中 --2005-02-20 韩荣华 对xml值中有‘&’‘<>’等这些符号进行处理 PROCEDURE write_element_string(p_clob IN OUT NOCOPY CLOB,p_node_name VARCHAR2,p_node_value VARCHAR2) IS v_node VARCHAR2(3767); -- 节点 l_isfiler NUMBER := 0; -- 是否使用替换后的值 v_new_value VARCHAR2(3767); BEGIN v_new_value := p_node_value; IF INSTR(v_new_value,'&') > 0 THEN v_new_value := REPLACE(v_new_value,'&','&'); l_isfiler := 1; END IF; IF INSTR(v_new_value,'<') > 0 THEN v_new_value := REPLACE(v_new_value,'<','<'); l_isfiler := 1; END IF; IF INSTR(v_new_value,'>') > 0 THEN v_new_value := REPLACE(v_new_value,'>','>'); l_isfiler := 1; END IF; IF l_isfiler=0 THEN v_node := '<'||p_node_name||'>'||p_node_value||'</'||p_node_name||'>'; ELSE v_node := '<'||p_node_name||'>'||v_new_value||'</'||p_node_name||'>'; END IF; dbms_lob.writeappend(p_clob,LENGTH(v_node),v_node); END write_element_string; PROCEDURE write_element_string(p_clob IN OUT NOCOPY CLOB,p_node_name VARCHAR2,p_node_value NUMBER) IS v_node VARCHAR2(3767); -- 节点 BEGIN v_node := '<'||p_node_name||'>'||p_node_value||'</'||p_node_name||'>'; dbms_lob.writeappend(p_clob,LENGTH(v_node),v_node); END write_element_string;
--直接用CLOB处理xml的新接口6：获取表多行数据增加到CLOB中 PROCEDURE write_multi_lines(p_clob IN OUT NOCOPY CLOB,p_sql VARCHAR2,p_rowset_tag_name VARCHAR2,p_row_tag_name VARCHAR2) IS queryCtx dbms_xmlquery.ctxType; -- 使用XML-SQL Utility (XSU) v_subxml CLOB; -- 得到的子xml结果 v_node VARCHAR2(32767); -- 节点 n_length NUMBER; --CLOB的总长度 n_read_size NUMBER := 16000; --一次读取CLOB的大小 n_loop_count NUMBER := 1; --循环读取CLOB的次数 BEGIN queryCtx := dbms_xmlquery.newContext(p_sql); dbms_xmlquery.setRowSetTag(queryCtx,p_rowset_tag_name); -- sets rowset tag name dbms_xmlquery.setRowTag(queryCtx,p_row_tag_name); -- sets the row tag name v_subxml := dbms_xmlquery.getXML(queryCtx); -- get the result dbms_xmlquery.closeContext(queryCtx); -- close the query handle;
--循环读入出参中 n_loop_count := 1; n_length := dbms_lob.GETLENGTH(v_subxml); WHILE n_length > n_read_size*(n_loop_count-1) LOOP IF n_loop_count=1 THEN --去掉<?xml version = '1.0'?>24个长度 v_node := dbms_lob.SUBSTR(v_subxml,n_read_size-23,24); ELSE v_node := dbms_lob.SUBSTR(v_subxml,n_read_size,n_read_size*(n_loop_count-1)+1); END IF; dbms_lob.writeappend(p_clob,LENGTH(v_node),v_node);
n_loop_count := n_loop_count + 1; END LOOP; END write_multi_lines;
-- 获取 Element 下面的指定节点名称的对应值 -- 值为空时，返回NULL; 不存在此节点名称时, 程序抛错 FUNCTION get_node_value(p_elem xmldom.DOMElement, p_node_name VARCHAR2) RETURN VARCHAR2 IS result VARCHAR2(500); ndl xmldom.DOMNodeList; -- 声明节点列表 node xmldom.DOMNode; -- 声明节点对象 BEGIN ndl := xmldom.getElementsByTagName(p_elem,p_node_name); node := xmldom.item(ndl, 0); node := xmldom.getFirstChild(node); IF xmldom.isNull(node) THEN result := NULL; ELSE result := xmldom.getNodeValue(node); END IF; RETURN(result); END get_node_value; -- 获取 Element 下面的指定节点和属性名称的对应属性值 -- 值为空时，返回NULL; 不存在此节点名称时, 程序抛错; 不存在此属性时返回NULL FUNCTION get_attr_value(p_elem xmldom.DOMElement, p_node_name VARCHAR2, p_attr_name VARCHAR2) RETURN VARCHAR2 IS result VARCHAR2(500); ndl xmldom.DOMNodeList; -- 声明节点列表 node xmldom.DOMNode; -- 声明节点对象 elem xmldom.DOMElement; -- 声明Element对象 attr xmldom.DOMAttr; -- 声明Element对象 BEGIN ndl := xmldom.getElementsByTagName(p_elem,p_node_name); node := xmldom.item(ndl, 0); elem := xmldom.makeElement(node); attr := xmldom.getAttributeNode(elem,p_attr_name); IF xmldom.isNull(attr) THEN result := NULL; ELSE result := xmldom.getValue(attr); END IF; RETURN(result); END get_attr_value; -- 获取 Element 本身属性名称的对应属性值 -- 值为空时，返回NULL; 不存在此属性时返回NULL FUNCTION get_attr_value(p_elem xmldom.DOMElement, p_attr_name VARCHAR2) RETURN VARCHAR2 IS result VARCHAR2(500); attr xmldom.DOMAttr; -- 声明Element对象 BEGIN attr := xmldom.getAttributeNode(p_elem,p_attr_name); IF xmldom.isNull(attr) THEN result := NULL; ELSE result := xmldom.getValue(attr); END IF; RETURN(result); END get_attr_value; -- 在 xmldom 中对象的节点下增加子节点及值 FUNCTION create_son_node(p_doc xmldom.DOMDocument,p_node xmldom.DOMNode,p_node_name VARCHAR2,p_node_value VARCHAR2) RETURN xmldom.DOMNode IS elem xmldom.DOMElement; -- 声明Element对象 node xmldom.DOMNode; -- 声明节点对象 text_node xmldom.DOMNode; -- 声明节点对象 text xmldom.DOMText ; -- 声明DOMText对象 BEGIN elem := xmldom.createElement(p_doc,p_node_name); node := xmldom.appendChild(p_node, xmldom.makeNode(elem)); text := xmldom.createTextNode(p_doc,p_node_value); text_node := xmldom.appendChild(node,xmldom.makeNode(text)); RETURN(node); END create_son_node; -- 在 xmldom 中对象的节点下增加子节点 FUNCTION create_son_node(p_doc xmldom.DOMDocument,p_node xmldom.DOMNode,p_node_name VARCHAR2) RETURN xmldom.DOMNode IS elem xmldom.DOMElement; -- 声明Element对象 node xmldom.DOMNode; -- 声明节点对象 BEGIN elem := xmldom.createElement(p_doc,p_node_name); node := xmldom.appendChild(p_node, xmldom.makeNode(elem)); RETURN(node); END create_son_node;
/*递归克隆节点*/ PROCEDURE clone_node_dg(p_destdoc xmldom.DOMDocument, p_sourcenode xmldom.DOMNode, p_destnode xmldom.DOMNode) IS
ndl xmldom.DOMNodeList; -- 声明节点列表 len NUMBER; -- 个数 node xmldom.DOMNode; -- 声明节点对象 v_nodename VARCHAR2(300); --节点名 v_nodeValue VARCHAR2(300); --节点值 elem xmldom.DOMElement; -- 声明Element对象 text_node xmldom.DOMNode; -- 声明节点对象 text xmldom.DOMText ; -- 声明DOMText对象 BEGIN ndl := xmldom.getChildNodes(p_sourcenode); len := xmldom.getLength(ndl); FOR i IN 0..len-1 LOOP v_nodeValue := xmldom.getNodeValue(xmldom.item(ndl, i)); IF v_nodeValue IS NOT NULL THEN text := xmldom.createTextNode(p_destdoc,v_nodeValue); text_node := xmldom.appendChild(p_destnode,xmldom.makeNode(text)); ELSE v_nodename := xmldom.getNodeName(xmldom.item(ndl, i)) ; elem := xmldom.createElement(p_destdoc,v_nodename); node := xmldom.appendChild(p_destnode, xmldom.makeNode(elem));
clone_node_dg(p_destdoc,xmldom.item(ndl, i),node);
END IF;
END LOOP; END clone_node_dg;
/*将一段xml字符串创建到指定的节点下*/ PROCEDURE import_node ( p_doc xmldom.DOMDocument, -- 声明xmldomc对象 p_parentnode xmldom.DOMNode, -- 声明节点对象(xml需要加在下面) p_xml VARCHAR2 -- 输入xml字符串 ) IS
elem xmldom.DOMElement; -- 声明Element对象 node xmldom.DOMNode; -- 声明节点对象 v_nodename VARCHAR2(300); --节点名
insertpar xmlparser.parser; -- 声明xmlparser对象 insertdoc xmldom.DOMDocument; -- 声明xmldomc对象 insertroot xmldom.DOMNode; -- 声明根node对象 insertndl xmldom.DOMNodeList; -- 声明节点列表
BEGIN
insertpar := xmlparser.newParser;
-- 把xml字符串装载进入xmldom对象 xmlparser.parseBuffer(insertpar,p_xml); insertdoc := xmlparser.getDocument(insertpar);
-- 先取根元素 insertndl := xmldom.getElementsByTagName(insertdoc,'*'); insertroot := xmldom.item(insertndl, 0);
--创建一个父节点 v_nodename := xmldom.getNodeName(insertroot) ; elem := xmldom.createElement(p_doc,v_nodename); node := xmldom.appendChild(p_parentnode, xmldom.makeNode(elem));
clone_node_dg(p_doc,insertroot,node);
-- 释放资源 xmldom.freeDocument(insertdoc); xmlparser.freeParser(insertpar); END import_node;
PROCEDURE get_node_xml(p_xml_in VARCHAR2,p_node_name VARCHAR2,p_xml_out OUT VARCHAR2) IS par xmlparser.parser; -- 声明xmlparser对象 doc xmldom.DOMDocument; -- 声明xmldomc对象 elem xmldom.DOMElement; -- 声明Element对象 root xmldom.DOMNode; -- 声明根node对象
ndl xmldom.DOMNodeList; -- 声明节点列表 node xmldom.DOMNode; -- 声明节点对象 par_in xmlparser.parser; -- 声明xmlparser对象 doc_in xmldom.DOMDocument; -- 声明xmldomc对象
ndl_in xmldom.DOMNodeList; -- 声明节点列表 node_in xmldom.DOMNode; -- 声明节点对象 BEGIN -- 创建新xmlparser对象(IN) par_in := xmlparser.newParser; xmlparser.parseBuffer(par_in,p_xml_in); doc_in := xmlparser.getDocument(par_in); ndl := xmldom.getElementsByTagName(doc_in,p_node_name); node_in:= xmldom.item(ndl, 0);
-- 创建新xmlparser对象（out） par := xmlparser.newParser; xmlparser.parseBuffer(par,'<'||p_node_name||'></'||p_node_name||'>'); doc := xmlparser.getDocument(par);
ndl := xmldom.getElementsByTagName(doc,p_node_name); root:= xmldom.item(ndl, 0);
clone_node_dg(doc,node_in,root);
xmldom.writeToBuffer(doc,p_xml_out); -- 释放资源 xmldom.freeDocument(doc); xmldom.freeDocument(doc_in); xmlparser.freeParser(par); xmlparser.freeParser(par_in); END get_node_xml;
/*将一段xml字符串创建到指定的节点下*/ PROCEDURE import_node ( p_doc xmldom.DOMDocument, -- 声明xmldomc对象 p_parentnode xmldom.DOMNode, -- 声明节点对象(xml需要加在下面) p_xml CLOB -- 输入xml字符串 ) IS
elem xmldom.DOMElement; -- 声明Element对象 node xmldom.DOMNode; -- 声明节点对象 v_nodename VARCHAR2(300); --节点名
insertpar xmlparser.parser; -- 声明xmlparser对象 insertdoc xmldom.DOMDocument; -- 声明xmldomc对象 insertroot xmldom.DOMNode; -- 声明根node对象 insertndl xmldom.DOMNodeList; -- 声明节点列表
BEGIN
insertpar := xmlparser.newParser;
-- 把xml字符串装载进入xmldom对象 --xmlparser.parseBuffer(insertpar,p_xml); xmlparser.parseCLOB(insertpar,p_xml); insertdoc := xmlparser.getDocument(insertpar);
-- 先取根元素 insertndl := xmldom.getElementsByTagName(insertdoc,'*'); insertroot := xmldom.item(insertndl, 0);
--创建一个父节点 v_nodename := xmldom.getNodeName(insertroot) ; elem := xmldom.createElement(p_doc,v_nodename); node := xmldom.appendChild(p_parentnode, xmldom.makeNode(elem));
clone_node_dg(p_doc,insertroot,node);
-- 释放资源 xmldom.freeDocument(insertdoc); xmlparser.freeParser(insertpar); END import_node;
PROCEDURE get_node_xml(p_xml_in CLOB,p_node_name VARCHAR2,p_xml_out OUT CLOB) IS par xmlparser.parser; -- 声明xmlparser对象 doc xmldom.DOMDocument; -- 声明xmldomc对象 elem xmldom.DOMElement; -- 声明Element对象 root xmldom.DOMNode; -- 声明根node对象
ndl xmldom.DOMNodeList; -- 声明节点列表 node xmldom.DOMNode; -- 声明节点对象 par_in xmlparser.parser; -- 声明xmlparser对象 doc_in xmldom.DOMDocument; -- 声明xmldomc对象
ndl_in xmldom.DOMNodeList; -- 声明节点列表 node_in xmldom.DOMNode; -- 声明节点对象 BEGIN -- 创建新xmlparser对象(IN) par_in := xmlparser.newParser; --xmlparser.parseBuffer(par_in,p_xml_in); xmlparser.parseClob(par_in,p_xml_in); doc_in := xmlparser.getDocument(par_in); ndl := xmldom.getElementsByTagName(doc_in,p_node_name); node_in:= xmldom.item(ndl, 0);
-- 创建新xmlparser对象（out） par := xmlparser.newParser; xmlparser.parseBuffer(par,'<'||p_node_name||'></'||p_node_name||'>'); doc := xmlparser.getDocument(par);
ndl := xmldom.getElementsByTagName(doc,p_node_name); root:= xmldom.item(ndl, 0);
clone_node_dg(doc,node_in,root);
--xmldom.writeToBuffer(doc,p_xml_out); dbms_lob.createtemporary(p_xml_out, TRUE, dbms_lob.SESSION); xmldom.writeToClob(doc,p_xml_out);
-- 释放资源 xmldom.freeDocument(doc); xmldom.freeDocument(doc_in); xmlparser.freeParser(par); xmlparser.freeParser(par_in);
END get_node_xml; END zte_fbp_xml_util_pkg; /
4708
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
