在Oracle中，如何计算一个字符在字符串中出现的次数？

SYS@lhrdb> CREATE OR REPLACE VIEW V AS  SELECT 'CLARK,KING$#MI,LLER,MI$#ABC' AS STR FROM DUAL;
View created
SYS@lhrdb> SELECT REGEXP_COUNT(STR,',') A,LENGTH(REGEXP_REPLACE(STR,'[^,]')) B,LENGTH(TRANSLATE(STR,','||STR,',')) C,FUN_GETSPECHARCOUNTS_LHR(STR,',') D FROM V;
         A          B          C          D
---------- ---------- ---------- ----------
         3          3          3          3
SYS@lhrdb> SELECT REGEXP_COUNT(STR,'$#') A , REGEXP_COUNT(STR,'\$#') B,FUN_GETSPECHARCOUNTS_LHR(STR,'$#') C FROM V;
         A          B          C
---------- ---------- ----------
         0          2          2   

CREATE OR REPLACE FUNCTION FUN_GETSPECHARCOUNTS_LHR(P_STRING IN VARCHAR2,P_SPECHAR IN VARCHAR2 DEFAULT ',') RETURN NUMBER AS
        V_COUNT    NUMBER := 0;
        V_POSITION NUMBER := 0; --特殊字符的位置
        V_SPECHAR  VARCHAR2(20) := P_SPECHAR;
    BEGIN
    
        LOOP
            --找到特殊字符的位置
            SELECT INSTR(P_STRING, V_SPECHAR, V_POSITION+1)
            INTO   V_POSITION
            FROM   DUAL;
        
            IF V_POSITION = 0 OR (V_POSITION >= LENGTH(P_STRING)) THEN
                EXIT;
            END IF;
        
            V_COUNT := V_COUNT + 1;
        END LOOP;
    
        RETURN V_COUNT;
    END FUN_GETSPECHARCOUNTS_LHR;