ABAP OO String -> Trim

ABAP OO String ->Trim

<shapetype id="_x0000_t75" stroked="f" filled="f" path="m@4@5l@4@11@9@11@9@5xe" o:preferrelative="t" o:spt="75" coordsize="21600,21600"><stroke joinstyle="miter"></stroke><formulas><f eqn="if lineDrawn pixelLineWidth 0"></f><f eqn="sum @0 1 0"></f><f eqn="sum 0 0 @1"></f><f eqn="prod @2 1 2"></f><f eqn="prod @3 21600 pixelWidth"></f><f eqn="prod @3 21600 pixelHeight"></f><f eqn="sum @0 0 1"></f><f eqn="prod @6 1 2"></f><f eqn="prod @7 21600 pixelWidth"></f><f eqn="sum @8 21600 0"></f><f eqn="prod @7 21600 pixelHeight"></f><f eqn="sum @10 21600 0"></f></formulas><path o:connecttype="rect" gradientshapeok="t" o:extrusionok="f"></path><lock aspectratio="t" v:ext="edit"></lock></shapetype><shape id="_x0000_i1025" style="WIDTH: 288.75pt; HEIGHT: 68.25pt" o:ole="" type="#_x0000_t75"><imagedata o:title="" src="file:///C:%5CDOCUME~1%5Cwei_zhu%5CLOCALS~1%5CTemp%5Cmsohtml1%5C01%5Cclip_image001.emz"></imagedata></shape>

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-----------------

<shape id="_x0000_i1026" style="WIDTH: 2in; HEIGHT: 85.5pt" type="#_x0000_t75"><imagedata o:title="" src="file:///C:%5CDOCUME~1%5Cwei_zhu%5CLOCALS~1%5CTemp%5Cmsohtml1%5C01%5Cclip_image003.png"></imagedata></shape>