数据库教程: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;  /