SAPABAP长文本处理汇编

1、1.1. 长文本处理1.1.1. 读取长文本这里以抓取 Delivery Note 的 Item 上的长文本作 为例子。. 查找长文本的 Text ID,Text ObjectVL02N 修改 Delivery Note: 80000023按回车键或者点击 ，选中要一行资料，然后点击菜单Goto-Item-Texts点击 ，& o & iad1 a谬旦 Change Material sales text: 0080000023000010 Language EN（3 耗心罔 心 Formats Q） Character Formats 51 回夕心 區口Paeg. Format

2、sParagraph, left -alignedKlChar. FormatsSI陰ifeDext TD/Tex匸 Object次!I然后点击菜单 :Goto-Header在这里显示的 Text ID:0001,Text Object:VBBP,以及 Text Name:0080000023000010, 这几个字段 在后面取值时要使用到. 编写程序*& *& Report Y10028*&*&*&*&*&*REPORT Y10028.DATA IT_DATA TYPE STANDARD TABLE OF TL INE .DATA W_DATA TYPE TLINE.DATA

3、ID LIKE THEAD-TDID.DATA LANGUAGE LIKE THEAD-TDSPRAS.DATA NAME LIKE THEAD-TDNAME.DATA OBJECT LIKE THEAD-TDOBJECT. START-OF-SELECTION.ID = 0001.LANGUAGE = EN.NAME = 0080000023000010.OBJECT = VBBP.CALL FUNCTION READ_TEXTEXPORTING* CLIENT-MANDT= SYID =IDLANGUAGE= LANGUAGENAME= NAMEOBJECT= OBJECT* ARCHIV

4、E_HANDLE= 0* LOCAL_CAT= * IMPORTING* HEADER=TABLESLINES= IT_DATA* EXCEPTIONS* ID= 1* LANGUAGE= 2* NAME= 3OBJECT= 5REFERENCE_CHECK = 6WRONG_ACCESS_TO_ARCHIVE = 7OTHERS = 8IF SY-SUBRC 0.* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO*WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.ENDIF.LOOP AT IT_DATA I

5、NTO W_DATA.WRITE:/ W_DATA-TDLINE.ENDLOOP..显示结果1.1.2. 写入长文本 有时需要将其他的系统的资料 Upload 到长文本字段 中，或者将资料从文字档、 Excel 档 Upload 到长文 本字段中，使用 BDC 比较麻烦，这个时候可以使用 SAVE_TEXT Function 来写入长文本。查找 TextID,Text Object 的方法在上一个章节已经说明，这 里不再重复。REPORT Y10028.DATA HEADER LIKE THEAD.DATA LINES TYPE STANDARD TABLE OF TLINEDA

6、TA W_LINE TYPE TLINE.START-OF-SELECTION.HEADER-TDOBJECT = VBBP.HEADER-TDNAME = 0080000023000010.HEADER-TDID = 0001. HEADER-TDSPRAS = EN.W_LINE = 测试资料写入 .APPEND W_LINE TO LINES.CALL FUNCTION SAVE_TEXTEXPORTING* CLIENT= SY-MANDTHEADER = HEADERINSERT= XSAVEMODE_DIRECT = XOWNER_SPECIFIEDLOCAL_CATIMPORTI

7、NGFUNCTION= NEWHEADER=TABLESLINES= LINESEXCEPTIONSID =1LANGUAGE= 2NAME= 3OBJECT= 4OTHERS= 5IF SY-SUBRC 0.* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO* WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.ENDIF.COMMIT WORK.结果显示为：1.1.3删除长文本CALL FUNCTION DELETE_TEXTEXPORTINGCLIENTID= SY-MANDT= IDLANGUAGE= LANGUAGENAME= NAMESAVEMODE_DIRECTTEXTMEMORY_ONLY =LOCAL_CAT= EXCEPTIONSNOT_FOUND = 1OTHERS =