Oracle删除字段中的空格，回车及指定字符的实例代码有哪些？

create or replace procedure PROC_test is
 --Description:删除字段中的指定字符(回车chr（13）、换行chr（10）)
 --By LiChao
 --Date:2016-03-01
 colname varchar(20); --列名
 cnt  number; --包含换行符的列的行数
 v_sql varchar(2000); --动态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;
/