Oracle删除字段中的空格、回车及指定字符的实例代码

create or replace procedure PROC_test is --Description:oracle/27738.html">删除字段中的指定字符(回车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;/