如何在Oracle PLSQL中循环使用分隔列表

我正在处理一个Oracle过程，该过程调用其中的另一个过程。我的一个参数

（parm1）

可以在逗号分隔的列表中包含一个或多个值。如何循环这些值，将它们一次传递给另一个过程

下面是我希望它做的一个例子：

When Parm1 = 123,312

callProcedure2(123)
callProcedure2(321)

-或-

我认为这可以通过使用循环来实现，但我不知道如何让它在循环中使用每个值作为单独的调用

任何帮助都将不胜感激

谢谢

CURSOR V_CUR IS
select regexp_substr(Parm1 ,'[^,]+', 1, level) As str from dual
connect by regexp_substr(Parm1, '[^,]+', 1, level) is not null;

这个curor会给你这样的结果

123
321

现在迭代游标并在循环中调用过程

For i IN V_CUR
LOOP
    callProdcedure2(i.str);
END LOOP;

---

只需在子字符串中循环：

declare 
  parm1 varchar2(1000) := '123,234,345,456,567,789,890';

  vStartIdx binary_integer;
  vEndIdx   binary_integer;
  vCurValue varchar2(1000);
begin

  vStartIdx := 0;
  vEndIdx   := instr(parm1, ','); 

  while(vEndIdx > 0) loop
    vCurValue := substr(parm1, vStartIdx+1, vEndIdx - vStartIdx - 1);

    -- call proc here
    dbms_output.put_line('->'||vCurValue||'<-');

    vStartIdx := vEndIdx;
    vEndIdx := instr(parm1, ',', vStartIdx + 1);  
  end loop;

  -- Call proc here for last part (or in case of single element)
  vCurValue := substr(parm1, vStartIdx+1);
  dbms_output.put_line('->'||vCurValue||'<-');

end;

声明
parm1 varchar2（1000）：=“1232343456567789890”；
vStartIdx二进制_整数；
vEndIdx二进制_整数；
vCurValue varchar2（1000）；
开始
vStartIdx:=0；
vEndIdx:=仪表（parm1，'，'）；
while（vEndIdx>0）循环
vCurValue:=substr（parm1，vStartIdx+1，vEndIdx-vStartIdx-1）；
--在这里调用proc
dbms|u output.put|u line（'->'| | | | | | |'| | vCurValue | | | |'可以在
for
循环中使用函数（对于ThinkJet，不使用
regexp
）：

创建类型和函数
那么如何在for循环中调用它：
请注意Oracle提供的默认名称
COLUMN\u VALUE
，这是我想要使用结果所必需的

结果如预期：
有一个实用程序
COMMA\u TO_TABLE
和数组类型
DBMS\u实用程序。unc\u array
专用于此任务。因为Oracle 10g

这是一份很好的文件

以下是一个示例解决方案：
打开服务器输出
声明
csvListElm VARCHAR2（4000）：=“elm1、elm2、elm3、elm4、elm5”；
CSVListable DBMS_UTILITY.unc_数组；
csvListLen二进制_整数；
货币名称VARCHAR2（222）；
开始
DBMS_实用程序.逗号_TO_表（csvListElm，csvListLen，csvListTable）；
对于1..（csvListTable.COUNT-1）循环中的csvElm
dbms_output.put_行（'--CSV元素：'）；
dbms_output.put_行（'--Trimmed CSV元素：'）；
端环；
结束；
/

样本输出：
--CSV元素：；
--修剪CSV元素：；
--CSV元素：；
--修剪CSV元素：；
--CSV元素：；
--修剪CSV元素：；
--CSV元素：；
--修剪CSV元素：；
--CSV元素：；
--修剪CSV元素：；
试试看这个看起来很有用谢谢！！这是一个很好的解决方案这正是我想要的。
declare 
  parm1 varchar2(1000) := '123,234,345,456,567,789,890';

  vStartIdx binary_integer;
  vEndIdx   binary_integer;
  vCurValue varchar2(1000);
begin

  vStartIdx := 0;
  vEndIdx   := instr(parm1, ','); 

  while(vEndIdx > 0) loop
    vCurValue := substr(parm1, vStartIdx+1, vEndIdx - vStartIdx - 1);

    -- call proc here
    dbms_output.put_line('->'||vCurValue||'<-');

    vStartIdx := vEndIdx;
    vEndIdx := instr(parm1, ',', vStartIdx + 1);  
  end loop;

  -- Call proc here for last part (or in case of single element)
  vCurValue := substr(parm1, vStartIdx+1);
  dbms_output.put_line('->'||vCurValue||'<-');

end;

CREATE OR REPLACE TYPE t_my_list AS TABLE OF VARCHAR2(100);
CREATE OR REPLACE
       FUNCTION cto_table(p_sep in Varchar2, p_list IN VARCHAR2)
         RETURN t_my_list
       AS
         l_string VARCHAR2(32767) := p_list || p_sep;
         l_sep_index PLS_INTEGER;
         l_index PLS_INTEGER := 1;
         l_tab t_my_list     := t_my_list();
       BEGIN
         LOOP
           l_sep_index := INSTR(l_string, p_sep, l_index);
           EXIT
         WHEN l_sep_index = 0;
           l_tab.EXTEND;
           l_tab(l_tab.COUNT) := TRIM(SUBSTR(l_string,l_index,l_sep_index - l_index));
           l_index            := l_sep_index + 1;
         END LOOP;
         RETURN l_tab;
       END cto_table;
/

DECLARE
  parm1 varchar2(4000) := '123,234,345,456,567,789,890';
BEGIN
    FOR x IN (select * from (table(cto_table(',', parm1)) ) )
    LOOP
        dbms_output.put_line('callProdcedure2 called with ' || x.COLUMN_VALUE);
        callProdcedure2(x.COLUMN_VALUE);
    END LOOP;
END;
/

callProdcedure2 called with 123
callProdcedure2 called with 234
...

SET SERVEROUTPUT ON
DECLARE
    csvListElm VARCHAR2(4000) := 'elm1, elm2,elm3 ,elm4 , elm5';
    csvListTable DBMS_UTILITY.UNCL_ARRAY;
    csvListLen BINARY_INTEGER;
    currTableName VARCHAR2(222);
BEGIN
    DBMS_UTILITY.COMMA_TO_TABLE(csvListElm, csvListLen, csvListTable);
    FOR csvElm IN 1..(csvListTable.COUNT - 1) LOOP
        dbms_output.put_line('-- CSV element        : <'||csvListTable(csvElm)||'>');
        dbms_output.put_line('-- Trimmed CSV element: <'||trim(csvListTable(csvElm))||'>');
    END LOOP; 
END;
/

-- CSV element        : <elm1>;
-- Trimmed CSV element: <elm1>;
-- CSV element        : < elm2>;
-- Trimmed CSV element: <elm2>;
-- CSV element        : <elm3 >;
-- Trimmed CSV element: <elm3>;
-- CSV element        : <elm4 >;
-- Trimmed CSV element: <elm4>;
-- CSV element        : < elm5>;
-- Trimmed CSV element: <elm5>;