pl/sql 找到數組中公有的字符

  procedure charintersect(i_str1 in varchar2,
                          i_str2 in varchar2,
                          o_str  out varchar2) is
    v_len_str2    number;
    v_str2_single varchar2(1);
  begin
    v_len_str2 := length(i_str2);
    for i in 1 .. v_len_str2
    loop
      v_str2_single := substr(i_str2, i, 1);
      if instr(i_str1, v_str2_single) > 0 then
        o_str := v_str2_single || o_str;
      end if;
    end loop;
    -- dbms_output.put_line(o_str);
  end charintersect;

  procedure find_common_char_arr(com_arr t_arrchar,str_result  out varchar2) is
    v_str varchar2(200);
    --type t_table is table of varchar2(200) index by binary_integer;;
  begin
    if com_arr.count=1 then
    v_str:=com_arr(1);
    else
    for i in 1 .. com_arr.count
    loop
      if i <= 2 then
        charintersect(com_arr(1), com_arr(2), v_str);
      else
        charintersect(v_str, com_arr(i), v_str);
      end if;
    end loop;
    end if;
  --  dbms_output.put_line(v_str);
    str_result:=v_str;
  end find_common_char_arr;