函数已编译但在执行时只返回字符串的第一个字母

Question

/* 编写一个函数将字符串插入到表格中，该表格将显示字符串的字符如果您输入 Sameer，则输出将是

s

一个

米

e

e

r

*/

set SERVEROUTPUT ON;
CREATE OR REPLACE FUNCTION f1(c in varchar2)
                  return varchar2
is
a number := 0;
b varchar2(20);
var_len number := length(c);
begin
     loop
         a := a + 1;
        select SUBSTR(c, a,1) into b from dual;
           EXIT when  a <= var_len;
           dbms_output.put_line(b);

    END LOOP;
               return b;
END;

SELECT f1('Sameer') FROM DUAL;

Answer 1

set SERVEROUTPUT ON;
CREATE OR REPLACE FUNCTION f1(c in varchar2)
                  return varchar2
is
mRet VarChar2(50) := '';
begin
     FOR i in 1..Length(c) LOOP
        mRet := mRet || SubStr(c, i, 1) || Chr(10);
    END LOOP;
    return RTRIM(mRet, Chr(10));
END;

SELECT f1('Sameer') FROM DUAL;
--  
--  R e s u l t
--      
--  F1('SAMEER')
--  ------------
--  S           
--  a           
--  m           
--  e          
--  e          
--  r

Answer 2

您的代码（如 Alex 建议的那样修复后）显示所需的输出（所有字母在单独的行中），但函数仅返回最后一个字母：

SQL> set SERVEROUTPUT ON;
SQL> CREATE OR REPLACE FUNCTION f1(c in varchar2)
  2    return varchar2
  3  is
  4    a number := 0;
  5    b varchar2(20);
  6    var_len number := length(c);
  7  begin
  8    loop
  9       a := a + 1;
 10       select SUBSTR(c, a,1) into b from dual;
 11       dbms_output.put_line(b);
 12       EXIT when  a = var_len;
 13    END LOOP;
 14    return b;
 15  END;
 16  /

Function created.

SQL> SELECT f1('Sameer') FROM DUAL;

F1('SAMEER')
--------------------------------------------------------------------------------
r           --> this is what function returns

S           --> this is result
a           --> of the
m           --> DBMS_OUTPUT.PUT_LINE
e
e
r
SQL>

---

不过，这不是您想要的 - 您想要返回这样的输出。 一种选择是将所有b值与换行符（ chr(10) ）连接：

SQL> CREATE OR REPLACE FUNCTION f1(c in varchar2)
  2    return varchar2
  3  is
  4    a number := 0;
  5    b varchar2(20);
  6    var_len number := length(c);
  7  begin
  8    loop
  9       a := a + 1;`enter code here`
 10       b := b || SUBSTR(c, a,1) || chr(10);
 11       EXIT when  a = var_len;
 12    END LOOP;
 13    return b;
 14  END;
 15  /

Function created.

SQL> SELECT f1('Sameer') FROM DUAL;

F1('SAMEER')
--------------------------------------------------------------------------------
S           --> this is return value, a "single" value, not 
a           --> separate letters, each in its own row
m
e
e
r


SQL>

---

如果您在 SQL Developer 中运行它，您将无法正确看到它，除非您双击结果（即“Sameer”）字样，然后单击铅笔按钮，这就是您的结果。

---

另外，考虑一些更简单的选项：

SQL> create or replace function f1 (c in varchar2)
  2    return varchar2
  3  is
  4  begin
  5    return regexp_replace(c, '(.)', '\1' ||chr(10));
  6  end;
  7  /

Function created.

SQL> SELECT f1('Sameer') FROM DUAL;

F1('SAMEER')
--------------------------------------------------------------------------------
S
a
m
e
e
r


SQL>