http://space.itpub.net/111631/viewspace-605827

這段時間在客戶現場處理SP處理模版內容替換的技術問題，如果是單點的處理，當然非常簡單，使用replace就可以解決問題，但是需要將關鍵TAG替換成動態行數呢？這就比較麻煩了，下面是處理過程的記錄

首先需要說明一下，其實這樣的功能使用程式來處理會非常簡單，但是處於對技術的追求，還是需要大膽的嘗試一下的，哈哈

先想到的就是使用funcation來進行處理，將內容輸入，替換後輸出多簡單，函式如下：
create or replace function Fun_GetTaFundnav_zj
   ---------------------------------------------------------------------------------------
    -- 版    權： 上海XXXXXXXXXXX有限公司
    -- 版    本：  XXX
    -- 開發人員： yeliang.wang
    -- 建立日期： 20090609
    -- 模組編號： 私有函式
    -- 模組名稱： XXXXXXX動態資料(郵件)
    -- 描    述：
    -- 輸入引數： 過濾前模板內容
    -- 輸出引數： 過濾後模板內容
    ---------------------------------------------------------------------------------------
    -- 修改作者：
    -- 修改日期：
    -- 修改內容：
    ---------------------------------------------------------------------------------------
---------------------------------------------------------------------------------------
(
  --i_content   clob, --過濾前模板內容
  i_fundcode  varchar2, --產品編號
  i_tradedate varchar2  ---服務型別
)
return clob
as
  newClob    clob;
  srcClob    clob;
  v_content  VARCHAR2 (32767);

  vBuffer    VARCHAR2 (32767);
  l_amount   BINARY_INTEGER := 32767;
  l_pos      PLS_INTEGER := 1;
  l_clob_len PLS_INTEGER;

  --對XXXXXX進行定位
  cursor r_cust is select * from XX_XX  t1 where t1.XX = i_XXX and t1.XXX in ('0','9') and t1.date = i_date;
begin
    select DESCRIPTION into srcClob from products where productid = 1;

    v_content := '<TR>';
  --生成HTML程式碼--
    for r in r_cust loop
      v_content := v_content||'<TD class=thtop2 vAlign=center align=middle>'||r.fundcode||'</TD>'
                            ||'<TD class=thtop2 vAlign=center align=middle>'||r.fundname||';</TD>'
                            ||'<TD class=thtop2 vAlign=center align=middle>'||r.updatedate||';</TD>'
                            ||'<TD class=thtop2 vAlign=center align=middle>'||r.fundnav||';</TD>'
                            ||'<TD class=thtop2 vAlign=center align=middle>'||r.totfundnav||';</TD>'
                            ||'<TD class=thtop2_right vAlign=center align=middle>'||r.fundrate||';</TD>';

    end loop;
    v_content := v_content||'</TR>';

    --模板轉換
    --v_result := replace(i_content,'${fund_replace}',v_content);
  return newClob;
end Fun_GetTaFundnav_zj;

執行結果：ORA-03127: 在活動操作結束之前不允許進行操作

暈。。難道是不能使用自定義函式對CLOB進行替換嗎？查了相關資料，也沒有最後的頭緒。。。突發奇想的把問題定位於FUNCTION本身，那麼就使用Procedure來處理吧，並且結合dbms_lob來對clob進行處理

儲存過程如下：

replaceClob_new --處理CLOB替換過程：
CREATE OR REPLACE PROCEDURE replaceClob_new (
srcClob IN CLOB,
replaceStr IN VARCHAR2,
replaceWith IN VARCHAR2,
newClob OUT CLOB
)
IS

vBuffer    VARCHAR2 (32767);
l_amount   BINARY_INTEGER := 32767;
l_pos      PLS_INTEGER := 1;
l_clob_len PLS_INTEGER;


BEGIN
   newClob  := EMPTY_CLOB;
  -- initalize the new clob


 dbms_lob.createtemporary(newClob,TRUE);
 --newClob := EMPTY_CLOB;
 --srcClob := EMPTY_CLOB;
 l_clob_len := dbms_lob.getlength(srcClob);

 WHILE l_pos < l_clob_len
  LOOP
    dbms_lob.read(srcClob, l_amount, l_pos, vBuffer);

    IF vBuffer IS NOT NULL THEN
      -- replace the text
      vBuffer := replace(vBuffer, replaceStr, replaceWith);
      -- write it to the new clob
      dbms_lob.writeappend(newClob, LENGTH(vBuffer), vBuffer);
    END IF;
    l_pos := l_pos + l_amount;
  END LOOP;


EXCEPTION
  WHEN OTHERS THEN
    RAISE;
END;

PR_INSERT --先將自己造的測試資料插入：
create or replace procedure pr_insert
 is
 
begin

        insert into tmp_XXX_info1
         (
               ..相關欄位
           )
          select      seq_XXXX.nextval as id   ,
                      c.subject                      ,
                      1,
                      '

[email protected]'                        ,
                      c.CONTENT,
                      1,
                      1,
                      1      ,
                      1,
                      to_char(sysdate,'yyyy-mm-dd hh24:mi:ss') ,
                      -1                     ,
                      '',
                      ''                     ,
                      1             ,
                      1              ,
                      '',
                      '',
                      '',
                      '',
                      ''
          from XXX c;
commit;
          PR_CLOB_TEST('373010','20090121');

end pr_insert;

PR_CLOB_TEST --將模版內容進行替換：
CREATE OR REPLACE PROCEDURE PR_CLOB_TEST
(
  i_fundcode  varchar2, --產品編號
  i_tradedate varchar2  ---服務型別
)
IS
LnewClob  CLOB := EMPTY_CLOB;
LsrcClob  CLOB := EMPTY_CLOB;
varC clob;
ln number(4);
vStrt number(4);
v_content clob;

CURSOR CURSOR_TEMP_CATAN IS
 select content from tmp_email_info1;
BEGIN
    vStrt := 5;
    -- initalize the new clob
    FOR r IN (select * from XXX t1 where t1.code = i_code and t1.status in ('0','9') and t1.date = i_date and rownum < 10)
    loop
        v_content := v_content||'<TR><TD class=thtop2 vAlign=center align=middle>'||r.fundcode||'</TD>'
                              ||'<TD class=thtop2 vAlign=center align=middle>'||r.fundname||'</TD>'
                              ||'<TD class=thtop2 vAlign=center align=middle>'||r.updatedate||'</TD>'
                              ||'<TD class=thtop2 vAlign=center align=middle>'||r.fundnav||'</TD>'
                              ||'<TD class=thtop2 vAlign=center align=middle>'||r.totfundnav||'</TD>'
                              ||'<TD class=thtop2_right vAlign=center align=middle>'||r.fundrate||'</TD>'
                              ||'</TR>';
      end loop;
  
    OPEN CURSOR_TEMP_CATAN;
        LOOP
        FETCH CURSOR_TEMP_CATAN INTO
        LsrcClob;
        EXIT WHEN CURSOR_TEMP_CATAN%NOTFOUND;

        REPLACECLOB_NEW(LsrcClob,'&{fund_replace}',v_content,LnewClob);

        select content into varC from tmp_email_info1 for update;
      
        ln := Length(LnewClob);
        dbms_lob.write(varC, ln, vStrt, LnewClob);
      
        commit;
      
    END LOOP;

EXCEPTION
  WHEN OTHERS THEN
    RAISE;
END;

最終結果：測試成功

總結：整個過程就是將一個HTML模版進行關鍵字的HTML片段替換，是用來給資料閘道器傳送郵件用的，在開發的過程中間遇到了很多問題（在這裡不一一例舉了），由於PL/SQL在處理超長字元的時候會比較多的限制，用PL/SQL來對這樣的功能進行處理真的有點得不償失，嗨。。。但是最終還是完成了，哈哈。。記錄下相關操作和部分程式碼大家參考