SAPABAP長(zhǎng)文本處理文檔良心出品

1、1.1. 長(zhǎng)文本處理1.1.1, 讀取長(zhǎng)文本這里以抓取 Delivery Note 的Item 上的長(zhǎng)文本作為例子., 查找長(zhǎng)文本的 Text ID,Text ObjectVL02N 修改 Delivery Note: 80000023Outbound Delivery Edit Goto Extras Environment Subsequent Functions Sjptemi Help固！口|心翻口tami©刃r國(guó)囪Change Outbound Delivery警宿上 ,匕1 | Post Goods IsiueOutbound DflK,nB0000023I

2、M蕤色,鳴diProcess-ngCtrl+F2Materia DataBatch SplitCtri+F4Pi 國(guó)叩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按回車鍵或者點(diǎn)擊® 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圜國(guó)國(guó) 國(guó)國(guó) 畫I國(guó) Batch 5Pllt | |吊 Mmh Items |底 All Tems選中要一行資料,然后點(diǎn)擊菜單Goto->Item->TextsOutbound Delt

4、very Edit Goto Extras Enwonment Subsequent Fundtici'ns System HelpqL兇功01© 口圓吃1幻站幻 國(guó)囪 國(guó)唱多 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>產(chǎn)廿I網(wǎng)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 一點(diǎn)擊：Text Edit Goto Format I

6、nsert System Help®ajQKI 60 口 (MtafG團(tuán)團(tuán)與爆彎目 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然后點(diǎn)擊菜單：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, 這幾個(gè)字段在后面取值時(shí)要使用到, 編寫程序* &* & 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.顯不'結(jié)果2List Edit Goto SystemQ 兇口|»冊(cè)1幻的幻|國(guó)囪|.1test r ead texttest read tezt查找Tuxt IDj Teit Object測(cè)忒1.1.2, 寫入長(zhǎng)文本有時(shí)需要將其他的系統(tǒng)的資料Uploa

13、d到長(zhǎng)文本字段中,或者將資料從文字檔、Excel檔Upload到長(zhǎng)文 本字段中,使用 BDC比擬麻煩,這個(gè)時(shí)候可以使用 SAVE_TEXT Function來寫入長(zhǎng)文本.查找 TextID,Text Object 的方法在上一個(gè)章節(jié)已經(jīng)說明,這里不再重復(fù).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 =' 測(cè)試資料寫入'.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.結(jié)果顯示為：回回匚回國(guó)魚目四引11回值1QucbPijM .口齦,一 旦吃或to Extras Enyronrnent Subsequent

16、Euncbons SfsteE 吐ElpQL町10|心3的100院拈?心幻 團(tuán)團(tuán)窗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.團(tuán) Mate,忘 ales :ext EN國(guó) Item rmM而 Packng rote困 M3：ei3 Documen:8 5'vr. P pD5zian：eKt k1.1.3, 刪除長(zhǎng)文本CALL FUNCTION 'DELETE_TEXT' EXPORTING* CLIENT= SY-MANDTID= IDLANGUAGE = LANGUAGE