CREATE OR REPLACE FUNCTION COMM.STR_COUNT(P_STR IN VARCHAR2, P_SUBSTR IN VARCHAR2 := '0')
RETURN INTEGER
IS
L_STR LONG := P_STR;
L_SUBSTR VARCHAR2(100) := P_SUBSTR;
L_CNT INT := 1;
BEGIN
IF L_SUBSTR = '0' THEN
L_STR := REPLACE(L_STR, ' ', '|');
L_SUBSTR := '|';
ELSIF LENGTH(L_SUBSTR) > 1 THEN
L_STR := REPLACE(L_STR, L_SUBSTR, '|');
L_SUBSTR := '|';
END IF;
WHILE INSTR(L_STR, L_SUBSTR, 1, L_CNT) > 0 LOOP
L_CNT := L_CNT + 1;
END LOOP;
RETURN L_CNT - 1;
END STR_COUNT;
/
CREATE OR REPLACE PUBLIC SYNONYM STR_COUNT FOR COMM.STR_COUNT ;

ITPub博客

字符数统计