相當於Left函數 [@more@]FUNCTION ZFN_PB_W_0107.
*"----------------------------------------------------------------------
*"*"區域介面：
*" IMPORTING
*" REFERENCE(IP_TEXT)
*" REFERENCE(IP_LEN) TYPE I
*" EXPORTING
*" REFERENCE(OP_TEXT)
*"----------------------------------------------------------------------
DATA: ILEN TYPE I.
IF IP_TEXT = ' OR IP_TEXT IS INITIAL OR IP_LEN = 0.
OP_TEXT = '.
RETURN.
ENDIF.
ILEN = STRLEN( IP_TEXT ).
IF ILEN < IP_LEN.
OP_TEXT = IP_TEXT.
RETURN.
ENDIF.
OP_TEXT = IP_TEXT+0(IP_LEN).
ENDFUNCTION.
*"----------------------------------------------------------------------
*"*"區域介面：
*" IMPORTING
*" REFERENCE(IP_TEXT)
*" REFERENCE(IP_LEN) TYPE I
*" EXPORTING
*" REFERENCE(OP_TEXT)
*"----------------------------------------------------------------------
DATA: ILEN TYPE I.
IF IP_TEXT = ' OR IP_TEXT IS INITIAL OR IP_LEN = 0.
OP_TEXT = '.
RETURN.
ENDIF.
ILEN = STRLEN( IP_TEXT ).
IF ILEN < IP_LEN.
OP_TEXT = IP_TEXT.
RETURN.
ENDIF.
OP_TEXT = IP_TEXT+0(IP_LEN).
ENDFUNCTION.
来自 “ ITPUB博客 ” ，链接：https://blog.itpub.net/9437124/viewspace-1021398/ ，如需转载，请注明出处，否则将追究法律责任。
上一篇：
自己写的截取小数位的函数
下一篇：
取字串右邊指定長度的子字串
请登录后发表评论
登录
全部评论
