ITPub博客

首页 > IT职业 > IT生活 > 取字串右邊指定長度的子字串

取字串右邊指定長度的子字串

原创 IT生活 作者:tolyhuang 时间:2009-04-28 15:30:51 0 删除 编辑
相當於Right函數[@more@]FUNCTION ZFN_PB_W_0108.
*"----------------------------------------------------------------------
*"*"區域介面:
*" 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.

ILEN = ILEN - IP_LEN.
OP_TEXT = IP_TEXT+ILEN(IP_LEN).




ENDFUNCTION.

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

请登录后发表评论 登录
全部评论

注册时间:2010-07-22

  • 博文量
    268
  • 访问量
    1411193