どうしても文字列をバイト数で文字を区切りたい場合のファンクション
VARCHAR2(5000)だけ、望む項目長に調整しなきゃだけど。
CREATE OR REPLACE FUNCTION SUBSTR_EX(
A_TEXT IN VARCHAR2
, A_BYTE IN NUMBER
, A_ROW IN NUMBER
)
RETURN VARCHAR2
IS
L_START_POSITION NUMBER;
L_RESULT VARCHAR2(5000);
L_ROW_COUNT NUMBER;
BEGIN
L_RESULT := '';
L_ROW_COUNT := 1;
L_START_POSITION := 1;
-- テキスト値がNULLの場合は何も出力しない
IF A_TEXT IS NULL THEN
RETURN NULL;
END IF;
LOOP
L_RESULT := L_RESULT || SUBSTR(A_TEXT, L_START_POSITION, 1);
-- バイト数が合致した場合
IF LENGTHB(L_RESULT) = A_BYTE THEN
EXIT WHEN(L_ROW_COUNT = A_ROW);
L_ROW_COUNT := L_ROW_COUNT + 1;
L_RESULT := '';
END IF;
-- 全角文字を取得してバイト数が超過した場合
IF LENGTHB(L_RESULT) > A_BYTE THEN
L_RESULT := SUBSTR(L_RESULT, 1, LENGTH(L_RESULT) - 1);
EXIT WHEN(L_ROW_COUNT = A_ROW);
L_ROW_COUNT := L_ROW_COUNT + 1;
L_RESULT := '';
L_START_POSITION := L_START_POSITION - 1;
END IF;
-- 全文字処理したら終了
IF L_START_POSITION = LENGTH(A_TEXT) THEN
IF A_ROW > L_ROW_COUNT THEN
L_RESULT := '';
END IF;
EXIT;
END IF;
L_START_POSITION := L_START_POSITION + 1;
END LOOP;
RETURN L_RESULT;
END;
/