ABAP字符串截取-发送邮件时line支持255&打印时最长文本255

发布时间 2023-07-20 10:38:38作者: 别忘了带红领巾

  DATA lv_len  TYPE i.
  DATA lv_time TYPE f.

  DATA lv_num TYPE i.
  DATA lv_pos TYPE i.

  DATA:lv_str TYPE string.

    lv_len 0.
    lv_time 0.
    lv_time 0.
    lv_pos 0.

    lv_len strlen( lv_str ).
    lv_time ceil( lv_len / 255 ).

    lv_num = lv_len MOD 255.
    lv_pos 0.

    DO lv_time TIMES.
      CLEAR ls_body.
      "添加到内表中
      ls_body-line = lv_str+lv_pos(255).
      APPEND ls_body TO lt_body.
      "偏移量加255,pos += 255;
      lv_pos += 255.
    ENDDO.
    CLEAR ls_body.
    ls_body-line = lv_str+lv_pos(lv_num).
    APPEND ls_body TO lt_body.

 

ls_body lt_body 邮件内容部分,此段代码只是拆分字符串为255长度的样例,方便看到即用