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

1.1.长文本处理1.1.1. 读取长文本这里以抓取DeliveryNote的Item上的长文本作为例子。. 查找长文本的TextID,TextObjectVL02N修改DeliveryNote:80000023OutboijntlDeliveryEditGotoExtrasEnvironm电ntSubsequentFLirictio>ni5SystemiHelp©q10]®(2 閒閱u黏常町鬥QlD固]②国ChangeOutboundDelivery叨 吊£Q* PostGoodsIssue按回车键或者点击口OutboundDekveryEditGotoExtrasEnvironmentSubsequentFunctjonsSystemHelp肆3iOutbounddnfduei -item ‘Back F3■—r ■ Process-ng CVI+F2M5f：e-i3DotsBatchSplit Ctri+F4Picking CtrkFJLoadandTraniportFore-gnTrid«..;CusCQm&ancialProcessing轡巧罚|徒 dAOutbounddelru.S00000235.15Sho-to11100002ItemOvawiewIPidcinfl,■Loading 1Good5Mavemen:DataTextsPlannedGI2007,05.15OO：|LOOKGConditionsAetdalG(dat$2007,05.150PrecedingDataAllitems 旳诃晒阿IlKmIlateralDeliv.QtyUnDesciption e,,rITypp10； 00000000000000075010 EAtesrTINC*>團團OB]|B]|3||悽BatchSplit]|字 隔InItems ||厚AllTems选中要一行资料，然后点击菜单Goto->ltem->Texts@ 倉＜](a eg(a閔丨血巧町留丨國is@®睜TiOutbounddelivery80000023Change;ItemDetails溶巧罚|显£■9 .-1|PostGoodsIssue|DisplayJITCafcItem101000Itemcategofy TANStonesrdTtemMate^l 000000000000000750testProcessrigMaterialBatchSplitPickrngLoadingandShamentForeignTrade.'CustomsFinancslProcessingTenTxtty. Lang.rith迓厂i閱刖圍~Z »lestext玄ItemnoteNPackingnoteNMcterislDocumerrC'NSVjPpg&r：iQ-it?Ktfc查找TextID.TextObject测试匚—11*]^*卜*►II?]回V||TH3] Ef-JEnglish ITextEditGotoFormatInsertSystemHelp01 a|0QI0©Q9(M閔QJ®0]©3翎旦ChangeMaterialsalestext:0080000023000010LanguageEN(£3耗心罔心FormatsCharacterFormats51回夕心SI罰弓口Parag.Formats"Paragraph,left-aligned KlChar.FormatsSI陰TD/Tex匸Object浜!"I」TextEditGotoFormatInsertSystemHelpIJMfClipboard口cats^.'i©nroHj©e」CheQI口cats^.'i©nroHj©e」CheQIS圧［Parag.formetsHeace-博1丰比三萇丁三Combobox<->PushDullonsChangeEctorConfigureEditorPrintProgram80000023000010LanguageENsFIS QS品弓口5)Bac<F3然后点击菜单:Goto->Header町a010©輛［9町a010©輛［9凹閔［齬◎町留10）圆|㊄凰自ChangeMateria!safestext:0080000023000010LanguageENSS圧骂|命1Formats岭CharacterFormatsU|凰夕命1鼻|麗鬲Parsg.FormetsTextEditGotoFormatInsertSystemSi|号TactHeadwr TextName0080000023000010LanguageText：IDEN0001MaterialsalestextTextObjectVBBF SalesItemtextsShortTitle1ShortTitle1ShortTitle2StyleForrriSYSTEMCreatedbyC_LU0SHD . CtrsngedbyDatecreated2007.07,04 ChangedonTime13:37:26 Tme ■00:00:00Release700Release✓奖SiChar,Formats"Par#jraphrleft-aligned在这里显示的TextID:0001,TextObject:VBBP,以及TextName:0080000023000010, 这几个字段在后面取值时要使用到1.1.12编写程序*& *&ReportY10028*&*& **&*&*& *REPORT丫10028.DATAIT_DATATYPESTANDARDTABLEOFTLINE.DATAW_DATATYPETLINE.DATAIDLIKETHEAD-TDID.DATALANGUAGELIKETHEAD-TDSPRAS.DATANAMELIKETHEAD-TDNAME.DATAOBJECTLIKETHEAD-TDOBJECT.START-OF-SELECTION.ID='0001'.LANGUAGE='EN'.NAME='0080000023000010'.OBJECT='VBBP'.CALLFUNCTION'READ_TEXT'

EXPORTING*CLIENT-MANDT=SYID =IDLANGUAGE=LANGUAGENAME=NAMEOBJECT=OBJECT*ARCHIVE_HANDLE=0*LOCAL_CAT一'*IMPORTING*HEADER=TABLESLINES=IT_DATA*EXCEPTIONS*ID=1*LANGUAGE=2*NAME=3TOC\o"1-5"\h\zOBJECT =5REFERENCE_CHECK =6WRONG_ACCESS_TO_ARCHIVE=7OTHERS =8IFSY-SUBRC<>0.MESSAGEIDSY-MSGIDTYPESY-MSGTYNUMBERSY-MSGNOWITHSY-MSGV1SY-MSGV2SY-MSGV3SY-MSGV4.ENDIF.LOOPATIT_DATAINTOW_DATA.WRITE:/W_DATA-TDLINE.ENDLOOP..13&ListEditGotoSystemHelp@11 町|q□显示结果testreadtexttestreadtext童找T已ntIDjTentObject测试1.1.2. 写入长文本有时需要将其他的系统的资料Upload到长文本字段中，或者将资料从文字档、Excel档Upload到长文本字段中，使用BDC比较麻烦，这个时候可以使用SAVE_TEXTFunction 来写入长文本。查找TextID,TextObject的方法在上一个章节已经说明，这里不再重复。REPORT丫10028.DATAHEADERLIKETHEAD.DATALINESTYPESTANDARDTABLEOFTLINEDATAW_LINETYPETLINE.START-OF-SELECTION.HEADER-TDOBJECT='VBBP'.HEADER-TDNAME='0080000023000010'.HEADER-TDID='0001'.HEADER-TDSPRAS='EN'.W_LINE=' 测试资料写入'.APPENDW_LINETOLINES.CALLFUNCTION'SAVE_TEXT'EXPORTING*CLIENT =SY-MANDTHEADER =HEADERINSERT ='X'SAVEMODE_DIRECT='X'OWNERSPECIFIED

LOCAL_CATIMPORTINGFUNCTION一''NEWHEADERTABLESLINES=LINESEXCEPTIONSID ==1LANGUAGE=2NAME=3OBJECT=4OTHERS=5IFSY-SUBRC<>0.MESSAGEIDSY-MSGIDTYPESY-MSGTYNUMBERSY-MSGNOWITH SY-MSGV1SY-MSGV2SY-MSGV3SY-MSGV4.ENDIF.COMMITWORK.结果显示为:1.1.3■I gj<1口丨©©念丨口閱閱丨型门2咼國ia②團洋.i=i Outbounddelivery80000023Display:ItemDetails汐可PastGoodsIssue|DisplayJITCalsItem 10 1W[<[p]恻IItemntesjory TANStandsrdItemMsten?l 000000000000000750testProcessingria^^rialHatchS^litPickngLoadingard呂打ipiTETit ForegrTradm'tLstoEEFinmrcalPracesshgTestsTxtty.函陽te佃a :extEN诲Itemrm庄直Packngrote之卜怙：护归Documen:田SWPpDSTian：extftLarg.iaL£lnbLLil删除长文本CALLFUNCTION'DELETE_TEXT'EXPORTINGCLIENTID=SY-MANDT