文字列を取得して複製を削除する

Question

ACLと呼ばれる変数にフェッチするcACLsonDistributionというカーソルがあります。 カーソルには電子メールのリストが挿入され、その電子メールが複製されることもあります。

LOOP 
     FETCH cACLsonDistribution INTO ACLs; 
     EXIT WHEN cACLsonDistribution%NOTFOUND; 
     ACLsonDistribution := ACLsonDistribution || ','|| ACLs.ENGINEER_EMAIL; 

      END LOOP; 

これは、このような文字列を返します。

,bernardo.t@example.com,bernardo.t@example.com,felipe.t@example.com,jose.t@example.com

あなたがそこに2重複メールを見ることができるように。時には3つの電子メールが重複しています。私は重複のない文字列を返すことを望みます。このように：

,bernardo.t@example.com,felipe.t@example.com,jose.t@example.com

Answer 1

この簡単な説明をお試しください。お役に立てれば。

SET SQLBL ON; 
SET serveroutput ON; 
DECLARE 
    PLST SYS_REFCURSOR; 
    AV  VARCHAR2(100); 
    LV_VAR VARCHAR2(100); 
    VAR_TAB VARCHAR2(100); 
BEGIN 
    OPEN PLST FOR SELECT 'avrajit.roy@abc.com' nm FROM DUAL 
    UNION ALL 
    SELECT 'avrajit.roy@abc.com' nm FROM DUAL 
    UNION ALL 
    SELECT 'shubhojit.roy@abc.com' nm FROM DUAL; 
    LOOP 
    FETCH plst INTO AV; 
    EXIT 
    WHEN PLST%NOTFOUND; 
    -- NULL; 
    lv_var:=lv_var||','||av; 
    END LOOP; 
    -- close 
    DBMS_OUTPUT.PUT_LINE(SUBSTR(LV_VAR,2,LENGTH(LV_VAR))); 
    SELECT WMSYS.WM_CONCAT(a.txt) 
    INTO var_tab 
    FROM 
    (SELECT DISTINCT(REGEXP_SUBSTR(SUBSTR(LV_VAR,2,LENGTH(LV_VAR)),'[^,]+', 1, level)) txt 
    FROM DUAL 
     CONNECT BY regexp_substr(SUBSTR(LV_VAR,2,LENGTH(LV_VAR)), '[^,]+', 1, level) IS NOT NULL 
    )a; 
    DBMS_OUTPUT.PUT_LINE(var_tab); 
END; 

----------------------------------OUTPUT---------------------------------------- 

avrajit.roy@abc.com,shubhojit.roy@abc.com 

----------------------------------OUTPUT----------------------------------------