如何在PL / SQL中不使用标准长度函数的情况下查找输入字符串的长度？

Question

有没有办法通过编写PL / SQL函数来知道字符串长度，而不使用LENGTH（）？

Answer 1

CREATE OR REPLACE FUNCTION mylength (p_text IN VARCHAR2)
   RETURN INTEGER
AS
   l_ret   INTEGER := 0;
BEGIN
   WHILE SUBSTR (p_text, l_ret + 1, 1) IS NOT NULL
   LOOP
      l_ret   := l_ret + 1;
   END LOOP;

   RETURN l_ret;
END mylength;

BEGIN
   DBMS_OUTPUT.put_line ('ABC: ' || mylength ('ABC'));
   DBMS_OUTPUT.put_line ('ABCDEFG: ' || mylength ('ABCDEFG'));
   DBMS_OUTPUT.put_line ('empty: ' || mylength (''));
   DBMS_OUTPUT.put_line ('null: ' || mylength (NULL));
END;

ABC: 3
ABCDEFG: 7
empty: 0
null: 0