ABAP OO String -> Trim
ABAP OO String -> Trim
The below is abap code:
*-----------------------------------------------------------------------
* Company XXX Company Limited
*
* Report Name: ZZW_ABAPOO_003
*
* Author: Lilo.Zhu
*
* Date: 2008.01.24
*-----------------------------------------------------------------------
* Description:
* =============
*
*-----------------------------------------------------------------------
* Change History:
* ===============
* Task# Date By Description
* XXX 2008.01.24 Lilo Initial Implementation
* Transport Request : XXXX
*----------------------------------------------------------------------
REPORT ZZW_ABAPOO_003 .
CLASS LCL_STRING DEFINITION.
PUBLIC SECTION.
METHODS:
CONSTRUCTOR
IMPORTING I_STRING TYPE STRING,
LTRIM
RETURNING VALUE(TOLTRIM) TYPE STRING,
RTRIM
RETURNING VALUE(TORTRIM) TYPE STRING.
PRIVATE SECTION.
DATA: L_STRING TYPE STRING.
ENDCLASS.
CLASS LCL_STRING IMPLEMENTATION.
METHOD CONSTRUCTOR.
L_STRING = I_STRING.
ENDMETHOD.
METHOD LTRIM.
DATA: LTMP_STRING TYPE STRING.
LTMP_STRING = L_STRING.
SHIFT LTMP_STRING LEFT DELETING LEADING SPACE.
TOLTRIM = LTMP_STRING.
ENDMETHOD.
METHOD RTRIM.
DATA: RTMP_STRING TYPE STRING.
RTMP_STRING = L_STRING.
SHIFT RTMP_STRING RIGHT DELETING TRAILING SPACE.
TORTRIM = RTMP_STRING.
ENDMETHOD.
ENDCLASS.
*-------------Main Program----------------
DATA: LOBJ_STRING TYPE REF TO LCL_STRING,
L_RESULT TYPE STRING,
R_RESULT TYPE STRING.
START-OF-SELECTION.
CREATE OBJECT LOBJ_STRING
EXPORTING I_STRING =' XXXX '.
CALL METHOD LOBJ_STRING->LTRIM
RECEIVING TOLTRIM = L_RESULT.
WRITE: /' XXXX'.
WRITE: / 'REMOVE LEFT SPACE:', L_RESULT.
CALL METHOD LOBJ_STRING->RTRIM
RECEIVING TORTRIM = R_RESULT.
WRITE: /' XXXX '.
WRITE: / 'REMOVE RIGHT SPACE:', R_RESULT.
END-OF-SELECTION.
---------------Result-----------------
