topic Re: string manipulation in Application Development and Automation Discussions

string manipulation

former_member215107 — Tue, 12 Jan 2010 09:31:35 GMT

Hello,

i have srings like this:

string1 = "TOTO MR"

string2= "TITI S"

string3= "TATA DR"

How can i proceed to supress " MR", " S", " DR" to these strings.

Thanks for your help.

Rodolphe.

Re: string manipulation

Former Member — Tue, 12 Jan 2010 09:33:17 GMT

Try using the SPLIT coomand.

Regards,

Arun

Re: string manipulation

Former Member — Tue, 12 Jan 2010 09:40:01 GMT

Sample coding

string1 = 'TOTO MR' .

string2 = 'TITI S'.

string3 = 'TATA DR'.

split string1 at space into string4 string5.

split string1 at space into string4 string6.

split string1 at space into string4 string7.

concatenate string5 string6 string7 into lv_final.

write : LV_final.

Press F1 on split and concatenate for more details

Edited by: dharma raj on Jan 12, 2010 3:10 PM

Edited by: dharma raj on Jan 12, 2010 3:11 PM

Re: string manipulation

Former Member — Tue, 12 Jan 2010 09:42:32 GMT

Hi,

We can try like this.



REPLACE ALL OCCURRENCES OF ' MS'  IN STRING1 BY '''.

Note: 1. There is one space before MS

2. BY '' where '' does not contain any character in between.

Regards,

Amit Mittal.

Re: string manipulation

Former Member — Tue, 12 Jan 2010 09:44:56 GMT

Hi,

try this:


DATA: ST1 TYPE STRING VALUE 'TOTO MR'.
DATA: DUM TYPE STRING.
*
SPLIT ST1 AT 'MR' INTO: ST1 DUM.
*

Regards, Dieter

Re: string manipulation

former_member215107 — Tue, 12 Jan 2010 09:47:36 GMT

Thanks a lot.

Re: string manipulation

Former Member — Tue, 12 Jan 2010 09:48:22 GMT

DATA: LENGTH TYPE I,

REMAINING_LENGTH TYPE I ,

NEXT_POINTER TYPE I ,

FIRST_HALF(20) TYPE C ,

SECOND_HALF(20) TYPE C ,

TEMP TYPE I .

string1 = "TOTO MR"

LENGTH = STRLEN( string1 ).

SEARCH string1 FOR ' '.

IF SY-SUBRC = 0 .

IF SY-FDPOS > 0.

MOVE string1+0(SY-FDPOS) TO FIRST_HALF.

ENDIF.

TEMP = SY-FDPOS + 1.

IF TEMP <> LENGTH.

NEXT_POINTER = SY-FDPOS + 1.

REMAINING_LENGTH = ( LENGTH - SY-FDPOS ) - 1.

MOVE string1+NEXT_POINTER(REMAINING_LENGTH) TO SECOND_HALF.

ENDIF.

WRITE:/'Input String:', string1

WRITE:/'First Half:', FIRST_HALF.

WRITE:/'Second Half:', SECOND_HALF.

Do the same for rest of the strings.

Re: string manipulation

Former Member — Tue, 12 Jan 2010 09:52:13 GMT

Here the user enters the string from selection screen randomly.

DATA: LENGTH TYPE I,

REMAINING_LENGTH TYPE I ,

NEXT_POINTER TYPE I ,

FIRST_HALF(20) TYPE C ,

SECOND_HALF(20) TYPE C ,

TEMP TYPE I .

PARAMETER: string1(100) TYPE C . "INPUT WORD

Start-of-selection.

LENGTH = STRLEN( string1 ).

SEARCH string1 FOR ' '.

IF SY-SUBRC = 0 .

IF SY-FDPOS > 0.

MOVE string1+0(SY-FDPOS) TO FIRST_HALF.

ENDIF.

TEMP = SY-FDPOS + 1.

IF TEMP LENGTH.

NEXT_POINTER = SY-FDPOS + 1.

REMAINING_LENGTH = ( LENGTH - SY-FDPOS ) - 1.

MOVE string1+NEXT_POINTER(REMAINING_LENGTH) TO SECOND_HALF.

ENDIF.

WRITE:/'Input String:', string1

WRITE:/'First Half:', FIRST_HALF.

WRITE:/'Second Half:', SECOND_HALF.