使用Oracle PL/SQL For循环在逗号分隔的字符串中进行迭代
我正在编写一段代码,需要对字符串的内容进行迭代,每个值用一个、 e、 我有我的元素 如何将其放入数组/游标中,在循环中对其进行迭代? 我正在寻找一种非常简单的方法,如果可能的话,可以避免声明关联数组 是否有可能创建一个函数,该函数将返回一些可用的内容作为for循环的输入,而for循环可以像中那样使用使用Oracle PL/SQL For循环在逗号分隔的字符串中进行迭代,oracle,for-loop,plsql,Oracle,For Loop,Plsql,我正在编写一段代码,需要对字符串的内容进行迭代,每个值用一个、 e、 我有我的元素 如何将其放入数组/游标中,在循环中对其进行迭代? 我正在寻找一种非常简单的方法,如果可能的话,可以避免声明关联数组 是否有可能创建一个函数,该函数将返回一些可用的内容作为for循环的输入,而for循环可以像中那样使用 非常感谢。您可以用纯SQL轻松完成。有多种方法可以做到这一点,请参见 但是,如果您确实想在PL/SQL中执行此操作,则可以按以下方式执行: SQL> set serveroutput on S
非常感谢。您可以用纯SQL轻松完成。有多种方法可以做到这一点,请参见 但是,如果您确实想在PL/SQL中执行此操作,则可以按以下方式执行:
SQL> set serveroutput on
SQL> DECLARE
2 str VARCHAR2(100) := 'PEBO,PTGC,PTTL,PTOP,PTA';
3 BEGIN
4 FOR i IN
5 (SELECT trim(regexp_substr(str, '[^,]+', 1, LEVEL)) l
6 FROM dual
7 CONNECT BY LEVEL <= regexp_count(str, ',')+1
8 )
9 LOOP
10 dbms_output.put_line(i.l);
11 END LOOP;
12 END;
13 /
PEBO
PTGC
PTTL
PTOP
PTA
PL/SQL procedure successfully completed.
SQL>
由于Lalit的出色说明,我能够创建一个可以从for循环调用的函数: 创建类型和函数 那么如何在我的for循环中调用它: 请注意Oracle提供的默认名称COLUMN_值,这是我想要使用结果所必需的 结果如预期: 在第一行中,您可以定义任何类型的表 然后创建该类型的变量,并用一种构造函数给它赋值 我在声明中初始化了它,但也可以在Pl Sql的主体中完成
然后从第一个索引循环到最后一个索引。可能重复的,但如果可以在普通SQL中执行,为什么要使用PL/SQL呢?谢谢,这将是我在一段时间内使用instr的第二选择。是否可以使用一个函数来返回for循环中可用的内容。谢谢@Lalit,我想这会对我有很大帮助。这对我很有用。我会问另一个关于我正在寻找的函数的更准确的问题。@J.Chomel您可以创建一个用户定义的函数。或者使用Oracle的内置包DBMS_实用程序。如果你提出不同的问题,请告诉我,我可以帮你回答。干得好,@J.Chomel。这就是我想要的,把一个结果放在一个我可以循环的变量中。谢谢。这个答案看起来不错,但如果加上一些解释,会是一个更好的答案-这很容易解释:但好吧,我添加了一些解释。谢谢,我投了赞成票。
for x in (elements)
loop
-- do my stuff
end loop;
SQL> set serveroutput on
SQL> DECLARE
2 str VARCHAR2(100) := 'PEBO,PTGC,PTTL,PTOP,PTA';
3 BEGIN
4 FOR i IN
5 (SELECT trim(regexp_substr(str, '[^,]+', 1, LEVEL)) l
6 FROM dual
7 CONNECT BY LEVEL <= regexp_count(str, ',')+1
8 )
9 LOOP
10 dbms_output.put_line(i.l);
11 END LOOP;
12 END;
13 /
PEBO
PTGC
PTTL
PTOP
PTA
PL/SQL procedure successfully completed.
SQL>
CREATE OR REPLACE TYPE t_my_list AS TABLE OF VARCHAR2(100);
CREATE OR REPLACE
FUNCTION comma_to_table(p_list IN VARCHAR2)
RETURN t_my_list
AS
l_string VARCHAR2(32767) := p_list || ',';
l_comma_index PLS_INTEGER;
l_index PLS_INTEGER := 1;
l_tab t_my_list := t_my_list();
BEGIN
LOOP
l_comma_index := INSTR(l_string, ',', l_index);
EXIT
WHEN l_comma_index = 0;
l_tab.EXTEND;
l_tab(l_tab.COUNT) := TRIM(SUBSTR(l_string,l_index,l_comma_index - l_index));
l_index := l_comma_index + 1;
END LOOP;
RETURN l_tab;
END comma_to_table;
/
declare
v_list_pak_like varchar2(4000) := 'PEBO,PTGC,PTTL,PTOP,PTA';
begin
FOR x IN (select * from (table(comma_to_table(v_list_pak_like)) ) )
loop
dbms_output.put_line(x.COLUMN_VALUE);
end loop;
end;
/
PEBO
PTGC
PTTL
PTOP
PTA
declare
type array_type is table of VARCHAR2(255) NOT NULL;
my_array array_type := array_type('aaa','bbb','ccc');
begin
for i in my_array.first..my_array.last loop
dbms_output.put_line( my_array(i) );
end loop;
end;