1.编辑模式,双击文本;或通过以下两种方式进入:
2.转到--表头(弹出信息框内容,既是函数所需要的参数了);
3.使用函数READ_TEXT
调用方式: PERFORM gettext using itab-vgbel '0001' '1' 'VBBK' changing ITAB-SAPPO. "读取长文本 T_TDNAME T_TDID T_TDSPRAS T_TDOBJECT
定义:函数如下:
form gettext using T_TDNAME T_TDID T_TDSPRAS T_TDOBJECT changing T_Text.
clear: h_itab.
clear: h_itab[].
data: P LIKE h_itab-TDLINE.
DATA:stxl LIKE stxl OCCURS 0 WITH HEADER LINE."抬头备注
SELECT SINGLE * FROM STXL INTO STXL
WHERE TDNAME = T_TDNAME AND TDID = T_TDID AND TDSPRAS = T_TDSPRAS AND TDOBJECT = T_TDOBJECT.
CALL FUNCTION 'READ_TEXT'
EXPORTING
client = sy-mandt
id = STXL-TDID "读取文本的id
language = STXL-TDSPRAS "读取文本的语言
name = STXL-TDNAME "读取文本的名字
object = STXL-TDOBJECT
TABLES
lines = h_itab
EXCEPTIONS
id = 1
language = 2
name = 3
not_found = 4
object = 5
reference_check = 6
wrong_access_to_archive = 7
OTHERS = 8.
DATA: itemp LIKE thead-tdname."itemp为变量无值
LOOP AT h_itab .
CONCATENATE itemp h_itab-tdline INTO itemp SEPARATED BY space. "解决回车事件
ENDLOOP.
* itab-TSET = itemp.
T_Text = itemp.
itemp = ''.
endform. "readitemtext