oracle 截取字符长度,oracle截取字符长度．

FUNCTION SBUSTR(STR_INPUT IN VARCHAR2, LENGTH_INPUT IN NUMBER)

RETURN NUMBER IS

I          NUMBER;

SUB_STR    VARCHAR2(2000);

SUB_LENGTH NUMBER := 0;

STR_COUNT  NUMBER := 0;

TEMP       NUMBER := 0;

RETURN_STR VARCHAR(2000) := '';

BEGIN

SELECT LENGTH(STR_INPUT) INTO SUB_LENGTH FROM DUAL;

FOR I IN 1 .. SUB_LENGTH LOOP

SELECT SUBSTR(STR_INPUT, I, 1) INTO SUB_STR FROM DUAL;

SELECT LENGTHB(SUB_STR) INTO SUB_LENGTH FROM DUAL;

IF (SUB_LENGTH = 1) THEN

TEMP := 1;

ELSE

TEMP := 2;

END IF;

IF (STR_COUNT + TEMP <= LENGTH_INPUT) THEN

IF (SUB_LENGTH = 1) THEN

STR_COUNT := STR_COUNT + 1;

ELSE

STR_COUNT := STR_COUNT + 2;

END IF;

RETURN_STR := RETURN_STR || SUB_STR;

ELSE

EXIT;

END IF;

END LOOP;

RETURN RETURN_STR;

END SBUSTR;