Oracle PL/SQL 打印字符串的每个字母

Question

我需要单独打印出“Hello”这个词的字母，我这样写:

Declare
c1 Number:=1;
c2 Varchar2(5);
begin
for c1 in 1..5
loop
select substr('Hello' , c1 , 1 ) into c2 from dual;
dbms_output.put_line(c2);
end loop;
end;

但它跳过前两个字母，结果是

l
l
o

有什么想法可能是什么问题吗？谢谢。

Answer 1

最好有循环结束限制For i in 1..v_length这样您就不必在每次运行时更改Loop限制。

 Create or replace procedure print_string( IN_string IN varchar2 )
AS
v_length number(10);
v_out varchar2(20);
Begin
v_length := length(IN_string);
for i in 1..v_length
Loop
v_out  := substr(IN_string,i,1) ;
DBMS_OUTPUT.PUT_LINE(v_out);
End loop;
DBMS_OUTPUT.PUT_LINE('Text printed: ' || IN_string);
End;
 -- Procedure created.

BEGIN
print_string('Hello');
END;


-- Output:

H
e
l
l
o
Text printed: Hello

Statement processed.