SAPABAP长文本处理文档良心出品

1、1.1. 长文本处理1.1.1, 读取长文本这里以抓取 Delivery Note 的Item 上的长文本作为例子., 查找长文本的 Text ID,Text ObjectVL02N 修改 Delivery Note: 80000023Outbound Delivery Edit Goto Extras Environment Subsequent Functions Sjptemi Help固！口|心翻口tami©刃r国囱Change Outbound Delivery警宿上 ,匕1 | Post Goods IsiueOutbound DflK,nB0000023I

2、M蕤色,鸣diProcess-ngCtrl+F2Materia DataBatch SplitCtri+F4Pi 国叩CtrkFJLoad and Traniport Foreign TG/CustQiTi& Financia ProcessingPlanned GIActual gi date2007. 05.152007, 05.1500：iAll itemsI lateralelM.述0000.0.000000.0750 10HTextsConditionsPcedng 口大mAcmnif；ra：ionUn 口等门口出EA 诧吠LOOKG0按回车键或者点击® LOutb

3、ound Dekvery Edit Goto Extras Enwironment Subsequent Fundtions S曲be Help?e匚a舐住©站s®秒Outbound d Item>皆嗜自G a 啊k F3Outbound deliv.S0000023She-to P311100002直Item OveTvievy , Picking rLa a ding1圜国国 国国 画I国 Batch 5Pllt | |吊 Mmh Items |底 All Tems选中要一行资料,然后点击菜单Goto->Item->TextsOutbound Delt

4、very Edit Goto Extras Enwonment Subsequent Fundtici'ns System HelpqL凶功01© 口圆吃1幻站幻 国囱 国唱多 1 Outbound delivery 80000023 Change: Item Details受用前 宿 £ 口 > 题:J：". .J. L.： ： C . . ,JT .11Item10.I . I Item category TAN Standard ItemMa:etial000000000000000750 testProcesing Maleria Ba:ch

5、 Split Ptkrg Loading and Shinment Foreign Trace；Customs FraTicil Processing Te>产廿I网I IB底I始因 查找 Text ID. Text ObjectftTxt ty.Lang.| 加 Mat日后 sales text% item noteH Packing note 或 Mat&riB： Document' 皆 SV/P pg&CiQntest KEEr I iHfVI百画IBM 彳|下百回a-J English 三事中力%与d 一点击：Text Edit Goto Format I

6、nsert System Help®ajQKI 60 口 (MtafG团团与爆弯目 Change Material sales text: 0080000023000010 Language EN (f2 熬 g * 的 Formats 啰 Character Formats U 艮1 的艮 窗4.Parag. Formats I " Paragraph, left-alignedKl Char.FormatsS)除找Text 工D, Text CbjectH«|.中Q.,三UText Edit Goto Format Insert System HelpUier

7、 Clipboard© ©ffiHeace/Cottoo box <-：= PushDurzons80000023000010 Language ENParsg.formetsChange EctorConfigi. EditorP二 nt ProgrammatsBec<F3然后点击菜单：Goto->HeaderText Edit Goto Format Insert System Help® l更I 0 gJI 0僧隈D心的4的晔囱口酚的雪曳 Change Material sales text: 0080000023000010 Langua

8、ge ENQ 篇 D 那么 | 的 Formats % C"ac：er Fornrias T 星/的i 限 4 0Pa明.Formats I" Parigraph, left-aligned S) Char,Formats的杳找IText HeaderText Name0080000023000010LanguageENText ID0001 Mate- al sales textText ObjectVBBFSalesItem textsShort Title1Short Title 1Short Title 2StyleFormSYSTEMCreated byC_LU0

9、SHDranged byDate created2007.07, 04Changed onTime13:37:26Trt>e00:00:00Release700Releasey旗4在这里显示的 Text ID:0001,Text Object:VBBP, 以及 Text Name:0080000023000010, 这几个字段在后面取值时要使用到, 编写程序* &* & Report Y10028* &* &* &* &* &*REPORT Y10028.DATA IT_DATA TYPE STANDARD TABLE

10、 OF TL INE .DATA W_DATA TYPE TLINE.DATA 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_TEX

11、T'EXPORTING* CLIENT= SY-MANDTID= IDLANGUAGE= LANGUAGE NAME= NAME OBJECT= OBJECT* ARCHIVE_HANDLE= 0* LOCAL_CAT=''* IMPORTING* HEADER=TABLESLINES= IT_DATA* EXCEPTIONS* ID= 1* LANGUAGE= 2* NOT_FOUND= 4* OBJECT= 5* REFERENCE_CHECK = 6* WRONG_ACCESS_TO_ARCHIVE = 7* OTHERS= 8.IF SY-SUBRC <&

12、gt; 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 INTO W_DATA.WRITE:/ W_DATA-TDLINE.ENDLOOP.显不'结果2List Edit Goto SystemQ 凶口|»册1幻的幻|国囱|.1test r ead texttest read tezt查找Tuxt IDj Teit Object测忒1.1.2, 写入长文本有时需要将其他的系统的资料Uploa

13、d到长文本字段中,或者将资料从文字档、Excel档Upload到长文 本字段中,使用 BDC比拟麻烦,这个时候可以使用 SAVE_TEXT Function来写入长文本.查找 TextID,Text Object 的方法在上一个章节已经说明,这里不再重复.REPORT Y10028.DATA HEADER LIKE THEAD.DATA LINES TYPE STANDARD TABLE OF TLINEDATA W_LINE TYPE TLINE.START-OF-SELECTION.HEADER-TDOBJECT = 'VBBP'.HEADER-TDNAME = '

14、0080000023000010'.HEADER-TDID = '0001'.HEADER-TDSPRAS = 'EN'.W_LINE =' 测试资料写入'.APPEND W_LINE TO LINES.CALL FUNCTION 'SAVE_TEXT'EXPORTING* CLIENT= SY-MANDTHEADER= HEADERINSERT= 'X'SAVEMODE_DIRECT = 'X'* OWNERSPECIFIED* LOCAL_CAT =''* IMPORTI

15、NG* FUNCTION =* NEWHEADER =TABLESLINES= LINESEXCEPTIONSID= 1LANGUAGE = 2NAME= 3OBJECT=4OTHERS= 5.IF SY-SUBRC <> 0.* MESSAGEID SY-MSGID TYPE SY-MSGTY NUMBERSY-MSGNO* WITH SY-MSGV1 SY-MSGV2 SY-MSGV3SY-MSGV4.ENDIF.COMMIT WORK.结果显示为：回回匚回国鱼目四引11回值1QucbPijM .口龈,一 旦吃或to Extras Enyronrnent Subsequent

16、Euncbons SfsteE 吐ElpQL町10|心3的100院拈?心幻 团团窗as等 i=i Outbound delivery 80000023 Display: Item Details次6 - I 班总后 卡密 啕 11 P«t Goods fesue 11 gby JIT dfc |Item10 I 词“ PINI Item ntesjory TARstandsrd ItemMate 旧 I000000000000000750 testProcessing Malarial Hatch S?lit Pickng Loading ard S+iiprraTit Foregr Trada;CL5tom& Finarcal Pracesshg TestsTxt ty.Lang.团 Mate,忘 ales :ext EN国 Item rmM而 Packng rote困 M3：ei3 Documen:8 5'vr. P pD5zian：eKt k1.1.3, 删除长文本CALL FUNCTION 'DELETE_TEXT' EXPORTING* CLIENT= SY-MANDTID= IDLANGUAGE = LANGUAGE