READ_TEXT 函数获取某界面的长文本内容

业务场景:比如一个ALV上的EBELN采购订单,我想知道在ME23N时候,这个采购订单号对应的文本是什么内容。
在这里插入图片描述第一个文本框内容获取:
双击上个截图第一个文本区域
在这里插入图片描述
第2个文本框内容获取方法一样:
这个可以看到文本对象是表EKPO
在这里插入图片描述

下面就用文本2做一下举例:

`loop at lt_ekpo into ls_ekpo .

  data lv_name type thead-tdname.
  data: gt_lins type table of tline,
        gs_lins type tline,
        c_text  type string,
        u_space  type string.

  concatenate ls_ekpo-ebeln ls_ekpo-ebelp into lv_name.

  call function 'READ_TEXT'
    exporting
      client   = sy-mandt
      id       = 'F01'
      language = '1'
      name     = lv_name     “图片里的450000000000010是根据ebeln+ebelp拼接得到
      object   = 'EKPO'
*     ARCHIVE_HANDLE                = 0
*     LOCAL_CAT                     = ' '
*       IMPORTING
*     HEADER   =
*     OLD_LINE_COUNTER              =
    tables
      lines    = gt_lins.
*       EXCEPTIONS
*         ID                            = 1
*         LANGUAGE                      = 2
*         NAME                          = 3
*         NOT_FOUND                     = 4
*         OBJECT                        = 5
*         REFERENCE_CHECK               = 6
*         WRONG_ACCESS_TO_ARCHIVE       = 7
*         OTHERS                        = 8
  .
  if sy-subrc <> 0.
* Implement suitable error handling here
  endif.
  clear c_text.
  loop at gt_lins into gs_lins.
    concatenate c_text gs_lins-tdline into c_text. "separated by u_space  ."解决回车事件 separated by 代表拼接字符串中加的分隔符
*    c_text  = c_text && gs_lins-tdline.

    clear gs_lins.
  endloop.
  condense c_text no-gaps."重新整合分配的字符串
endloop.

`

  • 1
    点赞
  • 1
    收藏
    觉得还不错? 一键收藏
  • 0
    评论

“相关推荐”对你有帮助么?

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值