字符数统计

1. CREATE OR REPLACE FUNCTION COMM.STR_COUNT(P_STR IN VARCHAR2, P_SUBSTR IN VARCHAR2 := '0')
   
2.   RETURN INTEGER
   
3. IS
   
4.   L_STR LONG := P_STR;
   
5.   L_SUBSTR VARCHAR2(100) := P_SUBSTR;
   
6.   L_CNT INT := 1;
   
7. BEGIN
   
8.   IF L_SUBSTR = '0' THEN
   
9.     L_STR := REPLACE(L_STR, ' ', '|');
   
10.     L_SUBSTR := '|';
    
11.   ELSIF LENGTH(L_SUBSTR) > 1 THEN
    
12.     L_STR := REPLACE(L_STR, L_SUBSTR, '|');
    
13.     L_SUBSTR := '|';
    
14.   END IF;
    
15.   WHILE INSTR(L_STR, L_SUBSTR, 1, L_CNT) > 0 LOOP
    
16.     L_CNT := L_CNT + 1;
    
17.   END LOOP;
    
18.   RETURN L_CNT - 1;
    
19. END STR_COUNT;
    
20. /
    
21. 
    
22. CREATE OR REPLACE PUBLIC SYNONYM STR_COUNT FOR COMM.STR_COUNT ;

来自 “ ITPUB博客 ” ，链接：http://blog.itpub.net/28878983/viewspace-2133896/，如需转载，请注明出处，否则将追究法律责任。

转载于:http://blog.itpub.net/28878983/viewspace-2133896/