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;

/