ABAP根据显示长度转换为字符长度截取字符串

最新推荐文章于 2024-12-29 15:42:41 发布

置顶 Nathan_Sun

最新推荐文章于 2024-12-29 15:42:41 发布

阅读量819

点赞数 1

分类专栏：开发笔记技术总结

本文链接：https://blog.youkuaiyun.com/Sundam/article/details/106551214

版权

开发笔记同时被 2 个专栏收录

94 篇文章

订阅专栏

技术总结

80 篇文章

订阅专栏

本文介绍了一个ABAP函数ZF_BASED_DISPLAY_LENGTH，用于获取并裁剪字符串以适应特定的显示长度。当字符串的显示长度超过指定长度时，该函数会逐字符计算并返回最接近指定长度的有效字符串部分。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

FUNCTION ZF_BASED_DISPLAY_LENGTH.
*"----------------------------------------------------------------------
*"*"本地接口：
*"  IMPORTING
*"     VALUE(I_LENG) TYPE  I
*"     VALUE(I_CHAR) TYPE  CHAR200
*"  EXPORTING
*"     VALUE(E_LENG) TYPE  I
*"     VALUE(E_CHAR) TYPE  CHAR200
*"----------------------------------------------------------------------

  DATA GS_LENG TYPE I.
  DATA SUM_LENG  TYPE I.
  DATA SUM_LENGD TYPE I.
  DATA SUM_CHAR TYPE CHAR200.
*获取字符串的显示长度
  GS_LENG = CL_ABAP_LIST_UTILITIES=>DYNAMIC_OUTPUT_LENGTH( I_CHAR ).

  IF GS_LENG > I_LENG.
    SUM_LENG = 0.
    SUM_LENGD = 0.
    WHILE SUM_LENGD < I_LENG.
      CLEAR SUM_CHAR.
      ADD 1 TO SUM_LENG .
      SUM_CHAR = I_CHAR(SUM_LENG).
      SUM_LENGD = CL_ABAP_LIST_UTILITIES=>DYNAMIC_OUTPUT_LENGTH( SUM_CHAR ).
    ENDWHILE.

    IF I_LENG < CL_ABAP_LIST_UTILITIES=>DYNAMIC_OUTPUT_LENGTH( SUM_CHAR ).
      SUM_LENG = SUM_LENG - 1 .
      SUM_CHAR = I_CHAR(SUM_LENG).
    ENDIF.

    E_LENG = SUM_LENG.
    E_CHAR = SUM_CHAR.
  ELSE.
    E_LENG = STRLEN( I_CHAR ).
    E_CHAR = I_CHAR.
  ENDIF.

ENDFUNCTION.