oracle删除字段中的空格、回车及指定字符

fteair

1. create or replace procedure PROC_test is
   
2.   --Description:删除字段中的指定字符(回车chr（13）、换行chr（10）)
   
3.   --By LiChao
   
4.   --Date:2016-03-01
   
5. 
   
6.   colname varchar(20); --列名
   
7.   cnt     number; --包含换行符的列的行数
   
8.   v_sql   varchar(2000); --动态SQL变量
   
9. begin
   
10.   --读取表中的列
    
11.   for col in (select column_name
    
12.                 from user_tab_columns
    
13.                where table_name = 'TEMP') loop
    
14.     colname := col.column_name;
    
15.    --替换换行符chr(10)
    
16.     v_sql := 'select count(1)  from temp  where instr(' || colname ||
    
17.              ',chr(10))>0 ';
    
18.     EXECUTE IMMEDIATE V_SQL
    
19.       into cnt;
    
20.     if cnt > 0 then
    
21.       v_sql := 'update temp set ' || colname || '=trim(replace(' || colname ||
    
22.                ',chr(10),''''))' || 'where instr(' || colname ||
    
23.                ',chr(10))>0 ';
    
24.       EXECUTE IMMEDIATE V_SQL;
    
25.       commit;
    
26.     end if;
    
27.    --替换回车符chr(13)
    
28.     v_sql := 'select count(1)  from temp  where instr(' || colname ||
    
29.              ',chr(13))>0 ';
    
30.     EXECUTE IMMEDIATE V_SQL
    
31.       into cnt;
    
32.     if cnt > 0 then
    
33.       v_sql := 'update temp set ' || colname || '=trim(replace(' || colname ||
    
34.                ',chr(13),''''))' || 'where instr(' || colname ||
    
35.                ',chr(13))>0  ';
    
36.       EXECUTE IMMEDIATE V_SQL;
    
37.       commit;
    
38.    
    
39.     end if;
    
40.     --替换'|' chr(124) 为'*' chr（42）
    
41.     v_sql := 'select count(1)  from temp  where instr(' || colname ||
    
42.              ',chr(124))>0 ';
    
43.     EXECUTE IMMEDIATE V_SQL
    
44.       into cnt;
    
45.     if cnt > 0 then
    
46.       v_sql := 'update temp set ' || colname || '=replace(' || colname ||
    
47.                ',chr(124),chr(42))' || 'where instr(' || colname ||
    
48.                ',chr(124))>0  ';
    
49.       EXECUTE IMMEDIATE V_SQL;
    
50.       commit;
    
51.    
    
52.     end if;
    
53.   end loop;
    
54. 
    
55. end PROC_test;
    
56. /

复制代码

caixuqad

fteair

caixuqad 发表于 2017-5-17 18:39

Adam丶鱼

fteair 发表于 2017-5-18 14:24

fteair

Adam丶鱼 发表于 2017-5-18 19:30

张兴康

fteair

张兴康 发表于 2017-5-20 18:27

caixuqad

fteair

caixuqad 发表于 2017-5-22 21:26

张兴康