topic Re: Reverse a string using shift in Application Development and Automation Discussions

Reverse a string using shift

Former Member — Fri, 01 Oct 2010 19:05:01 GMT

Hi,

A quick search could not provide me with an answer whether in ABAP we can reverse a string using the SHIFT keyword alone? I am not supposed to use the function or the offset and length. Also, my data object is a string type, not a character type.

In which ever way I tried, I am breaking the code when characters repeat successive in the string.

Thanks.

Re: Reverse a string using shift

Former Member — Fri, 01 Oct 2010 19:18:18 GMT

shift circular comes to mind...

you could get the length and shift circular up to lv_length places?

In NetWeaver 7.02, I think there's a statement that does....At least, I think I saw that in Thomas Jung's presentation on the future of ABAP.

Re: Reverse a string using shift

former_member214857 — Sat, 02 Oct 2010 00:49:06 GMT

You can use code below as a FORM in your code

DATA:
  x_string(50) TYPE c VALUE 'ABCDE',
  x_length     TYPE i,
  x_revert(50) TYPE c,
  x_index      TYPE i.


 x_length = strlen( x_string ) + 1.


 DO x_length TIMES.
    x_index = sy-index - 1.
    CONCATENATE x_string+x_index(1) x_revert INTO x_revert.
 ENDDO.

 WRITE x_revert.

Kind regards

Re: Reverse a string using shift

Former Member — Sat, 02 Oct 2010 01:36:56 GMT

The circular shift just shifts the first character tot he last and so on.

The catch is not to use the offset and length.

We could have acheived by using a combination of left right shift, but then the STRING data type will always contain all the characters however shifted.

Re: Reverse a string using shift

deepak_dhamat — Sat, 02 Oct 2010 04:22:08 GMT

Hi ,

use function STRING_REVERSE

Pass String 'Deepak'

Language keep blank it will take default .

it will show output kapeed

Regards

Deepak.

Re: Reverse a string using shift

deepak_dhamat — Sat, 02 Oct 2010 04:44:16 GMT

This message was moderated.

Re: Reverse a string using shift

Former Member — Sat, 02 Oct 2010 04:54:15 GMT

Use FM CALL FUNCTION 'STRING_REVERSE'


REPORT ZSTRINGREV .

Parameters: p_string(200).
Data: r_string(100).

CALL FUNCTION 'STRING_REVERSE'
  EXPORTING
    STRING          = p_string
    LANG            = 'E'
 IMPORTING
   RSTRING          = r_string
 EXCEPTIONS
   TOO_SMALL        = 1
   OTHERS           = 2
          .
IF SY-SUBRC <> 0.
 MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
         WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.

*Inputted String.

Write:/ 'Inputted String', p_string.
SKIP.

*The reverse string.
Write:/ r_string.

Edited by: kk.adhvaryu on Oct 2, 2010 6:54 AM

Re: Reverse a string using shift

Former Member — Sat, 02 Oct 2010 07:57:44 GMT

Guys, thanks for posting. But I guess you overlooked my question.

I am supposed to use only the SHIFT and its variants. No offset, no function.

Re: Reverse a string using shift

asik_shameem — Sat, 02 Oct 2010 09:05:01 GMT

If you are allowed to use STRLEN keyword. You can try like this.

DATA: gv_text      TYPE STRING VALUE 'Hello. How are you?',
      gv_text_temp TYPE STRING .

DATA: gv_length TYPE i,
      gv_index  TYPE i.

DATA: gt_char  TYPE TABLE OF c,
      gwa_char TYPE c.

gv_length = STRLEN( gv_text ).

gv_text_temp = gv_text.

DO gv_length TIMES.

  gv_index = gv_length - sy-index.

  SHIFT gv_text BY gv_index PLACES.

  gwa_char = gv_text.

  APPEND gwa_char TO gt_char.

  gv_text = gv_text_temp.

ENDDO.

LOOP AT gt_char INTO gwa_char.
  WRITE: gwa_char.
ENDLOOP.

Re: Reverse a string using shift

sunojmichael1 — Sat, 02 Oct 2010 15:30:27 GMT

This message was moderated.

Re: Reverse a string using shift

Former Member — Wed, 06 Oct 2010 14:23:35 GMT

A combination of SHIFT LEFT and SHIFT RIGHT CIRCULAR can do the trick.


PARAMETERS in_str TYPE string.

DATA : length TYPE i,
      index TYPE i,
      rev_str LIKE in_str,
      buf_str LIKE in_str.

length = STRLEN( in_str ).
index = length - 1.
buf_str = in_str.

DO length TIMES.
  SHIFT buf_str BY index PLACES.
  CONCATENATE rev_str buf_str INTO rev_str.
  buf_str = in_str.
  SHIFT buf_str BY sy-index PLACES RIGHT CIRCULAR.
ENDDO.

WRITE / rev_str.

Re: Reverse a string using shift

Former Member — Wed, 06 Oct 2010 16:51:48 GMT

I thought you weren't supposed to use length.