数数没有。 PL/SQL 中字符串中的字符和单词

Input − string str = “Tutorials Point”
Output− count of characters is: 15
      Count of Words are: 2

Input − string str = “Honesty is the best policy”
Output − count of characters is: 26
      Count of words are: 5

DECLARE
      str VARCHAR2(40) := 'Tutorials Point';
      nchars NUMBER(4) := 0;
      nwords NUMBER(4) := 1;
      s CHAR;
BEGIN
   FOR i IN 1..Length(str) LOOP
      s := Substr(str, i, 1);
      nchars:= nchars+ 1;
      IF s = ' ' THEN
      nwords := nwords + 1;
      END IF;
END LOOP;
dbms_output.Put_line('count of characters is:'
   ||nchars);

dbms_output.Put_line('Count of words are: '
   ||nwords);
END;

count of characters is: 15
Count of words are: 2