Oracle刪除字段中的空格、回車及指定字符的實例代碼

create or replace procedure PROC_test is
 --Description:刪除字段中的指定字符(回車chr（13）、換行chr（10）)
 --By LiChao
 --Date:2016-03-01
 colname varchar(20); --列名
 cnt   number; --包含換行符的列的行數(shù)
 v_sql  varchar(2000); --動態(tài)SQL變量
begin
 --讀取表中的列
 for col in (select column_name
        from user_tab_columns
        where table_name = 'TEMP') loop
  colname := col.column_name;
  --替換換行符chr(10)
  v_sql := 'select count(1) from temp where instr(' || colname ||
       ',chr(10))>0 ';
  EXECUTE IMMEDIATE V_SQL
   into cnt;
  if cnt > 0 then
   v_sql := 'update temp set ' || colname || '=trim(replace(' || colname ||
        ',chr(10),''''))' || 'where instr(' || colname ||
        ',chr(10))>0 ';
   EXECUTE IMMEDIATE V_SQL;
   commit;
  end if;
  --替換回車符chr(13)
  v_sql := 'select count(1) from temp where instr(' || colname ||
       ',chr(13))>0 ';
  EXECUTE IMMEDIATE V_SQL
   into cnt;
  if cnt > 0 then
   v_sql := 'update temp set ' || colname || '=trim(replace(' || colname ||
        ',chr(13),''''))' || 'where instr(' || colname ||
        ',chr(13))>0 ';
   EXECUTE IMMEDIATE V_SQL;
   commit;
  end if;
  --替換'|' chr(124) 為'*' chr（42）
  v_sql := 'select count(1) from temp where instr(' || colname ||
       ',chr(124))>0 ';
  EXECUTE IMMEDIATE V_SQL
   into cnt;
  if cnt > 0 then
   v_sql := 'update temp set ' || colname || '=replace(' || colname ||
        ',chr(124),chr(42))' || 'where instr(' || colname ||
        ',chr(124))>0 ';
   EXECUTE IMMEDIATE V_SQL;
   commit;
  end if;
 end loop;
end PROC_test;
/