Oracle XML处理

拼接XML

function ApplyDocToXML(docNo in varchar2) return clob is 
  CURSOR c1(dN varchar2) IS 
    SELECT ITEM_ID as DOCUMENT_ID, 
           DOC_NAME as FILE_NAME, 
           DOCUMENT_NAME, 
           DOC_FILE as FILE_CONTENT 
      FROM SupApplyDoc 
     WHERE DOC_NO = dN; 
  docItem  c1%rowtype; 
  fileClob clob; 
  tempClob clob; 
  resClob  clob; 
begin 
  dbms_lob.createtemporary(tempClob, FALSE, dbms_lob.call); 
  dbms_lob.append(tempClob, 
                  '<?xml version="1.0" encoding="GBK"?><DOCUMENTDATA>');  
  open c1(docNo); 
  loop 
    fetch c1 
      into docItem; 
    exit when c1%notfound; 
    dbms_lob.append(tempClob, 
                    '<DOCUMENT><DOCUMENT_ID>' || docItem.document_id || 
                    '</DOCUMENT_ID><DOCUMENT_NAME>' || 
                    docItem.document_name || '</DOCUMENT_NAME><FILE_NAME>' || 
                    docItem.file_name || 
                    '</FILE_NAME><FILE_CONTENT><![CDATA['); -- CDATA 子集一定要这样写 
    if docItem.file_content is not null then 
      fileClob := Centit_LOB.BlobToBase64(docItem.file_content); 
      dbms_lob.append(tempClob, fileClob); 
      --insert into tmp_lob (n,vn,cv,bv) values(nc.nextval,docItem.file_name,fileClob,docItem.file_content); 
    end if; 
    dbms_lob.append(tempClob, ']]></FILE_CONTENT></DOCUMENT>'); --  
  end loop; 
  if c1%isopen then 
    close c1; 
  end if; 
  dbms_lob.append(tempClob, '</DOCUMENTDATA>'); 
  --write_clob_to_file(result,'testApp.xml'); 
  --9i 无法将Clob写入文件，用一个临时表测试，这个表用后删除，见表语句如下 
  /* 
  create table tmp_lob (n number(10) not null primary key,vn varchar2(250), cv clob, bv blob); 
   create sequence nc ; 
  */ 
  --insert into tmp_lob (n,cv) values(nc.nextval,result); 
  dbms_output.put_line('执行完成'); 
  resClob := tempClob; 
  dbms_lob.freetemporary(tempClob); 
  return resClob; 
end; 

解析XML

procedure XMLToApplyDoc(docNo in varchar2, xmlFile in clob) is 
  theXmlDoc   xmldom.DOMDocument; 
  theDocElt   xmldom.DOMElement; 
  docNodeList xmldom.DOMNodeList; 
  docItem     xmldom.DOMNode; 
  --tempElt     xmldom.DOMElement;  
  tempNodeList xmldom.DOMNodeList; 
  tempNode     xmldom.DOMNode; 
  i            number; 
  len          number; 
  j            number; 
  clen         number; 
  fileNode     xmldom.DOMNode; 
  fileCon      clob; 
  fileClob     clob; 
  parser       xmlparser.Parser; 
  docRec       SupApplyDoc%rowtype; 
  nodeName     varchar2(256); 
  XMLParseError EXCEPTION; 
  --PRAGMA EXCEPTION_INIT( XMLParseError, -20100 ); 
begin 
  parser := xmlparser.newParser; 
  --dbms_output.put_line('初始化成功'); 
  xmlparser.parseClob(parser, xmlFile); 
  --dbms_output.put_line('解释XML成功'); 
  theXmlDoc := xmlparser.getDocument(parser); 
  xmlparser.freeParser(parser); 
  if xmldom.IsNull(theXmlDoc) then 
    return; 
  end if; 
  theDocElt   := xmldom.getDocumentElement(theXmlDoc); 
  docNodeList := xmldom.GETELEMENTSBYTAGNAME(theDocElt, 'DOCUMENT'); -- '*' 表示所有元素，包括根元素  
  len         := xmldom.getLength(docNodeList); 
  -- 遍历所有元素  
  for i in 0 .. len - 1 loop 
    docItem := xmldom.item(docNodeList, i); 
    --tempElt := xmldom.makeElement(docItem);  
    tempNodeList  := xmldom.getChildNodes(docItem); 
    docRec.Doc_No := docNo; 
    clen          := xmldom.getLength(tempNodeList); 
    for j in 0 .. clen - 1 loop 
      tempNode := xmldom.item(tempNodeList, j); 
      nodeName := xmldom.getNodeName(tempNode); 
      --情况结构中的内容 
      docRec.Doc_File := null; 
      --dbms_output.put_line(nodeName); 
      --这儿录入字段对应关系 
      CASE nodeName 
        WHEN 'DOCUMENT_ID' THEN 
          -- 必需要加一个xmldom.getFirstChild，Oracle中的DOM将Value作为Node的一个子Node  
          docRec.Item_Id := xmldom.getNodeValue(xmldom.getFirstChild(tempNode)); 
          --dbms_output.put_line(docRec.Item_Id); 
        WHEN 'DOCUMENT_NAME' THEN 
          docRec.Document_Name := xmldom.getNodeValue(xmldom.getFirstChild(tempNode)); 
          --dbms_output.put_line(docRec.Document_Name); 
        WHEN 'FILE_NAME' THEN 
          docRec.Doc_Name := xmldom.getNodeValue(xmldom.getFirstChild(tempNode)); 
          --dbms_output.put_line(docRec.Doc_Name); 
        WHEN 'FILE_CONTENT' THEN 
          begin 
            fileNode := xmldom.getFirstChild(tempNode); 
            if not xmldom.IsNull(fileNode) then 
              dbms_lob.createtemporary(fileCon, FALSE, dbms_lob.call); 
              xmldom.writeToClob(xmldom.getFirstChild(tempNode), fileCon); 
              fileClob := fileCon; --xmldom.getNodeValue(xmldom.getFirstChild(tempNode)) ;-- fileCon; 
              dbms_lob.freetemporary(fileCon); 
              docRec.Doc_File := Centit_LOB.Base64ToBlob(fileClob); 
              --dbms_output.put_line('Clob len: '||to_char(dbms_lob.getlength(fileClob))||' Blob len: '||to_char(dbms_lob.getlength(docRec.Doc_File )));          
            end if; 
          end; 
      END CASE; end loop; 
    --dbms_lob.write 
    --dbms_output.put_line(docRec.Doc_Name); 
    --write_clob_to_file(fileCon,docRec.Doc_Name);      
    if (docRec.Doc_File is not null) then 
      insert into tmp_lob 
        (n, vn, cv, bv) 
      values 
        (nc.nextval, docRec.Doc_Name, fileClob, docRec.Doc_File); 
    end if; 
   
  -- 将附件插入到数据库中 
  end loop; 
  null; 
  xmlparser.freeParser(parser); 
  dbms_output.put_line('解释XML完成'); 
  --EXCEPTION 
  --WHEN XMLParseError THEN 
  -- xmlparser.freeParser(parser); 
  --dbms_output.put_line('解释XML出错'); 
  --记录XML分析错误 
end;