從字串中的第n位開始取l長度的子字串

相當於Mid函數 [@more@] FUNCTION ZFN_PB_W_0109.
*"----------------------------------------------------------------------
*"*"區域介面：
*" IMPORTING
*" REFERENCE(IP_TEXT)
*" REFERENCE(IP_START) TYPE I
*" REFERENCE(IP_LEN) TYPE I DEFAULT 0
*" EXPORTING
*" REFERENCE(OP_TEXT)
*"----------------------------------------------------------------------

DATA: ILEN TYPE I,
IPLEN TYPE I,
IPTEXT TYPE STRING.

IF IP_TEXT = ' OR IP_TEXT IS INITIAL." or ip_len = 0.
OP_TEXT = '.
RETURN.
ENDIF.

IPTEXT = IP_TEXT.
CONDENSE IPTEXT.
ILEN = STRLEN( IPTEXT ).
IF IP_START > ILEN.
OP_TEXT = '.
RETURN.
ENDIF.

IF IP_LEN = 0.
IPLEN = ILEN - IP_START + 1.
ELSE.
IPLEN = IP_LEN.
ENDIF.
ILEN = IP_START - 1.
OP_TEXT = IPTEXT+ILEN(IPLEN).

ENDFUNCTION.

来自 “ ITPUB博客 ” ，链接：http://blog.itpub.net/9437124/viewspace-1021400/，如需转载，请注明出处，否则将追究法律责任。

转载于:http://blog.itpub.net/9437124/viewspace-1021400/