topic Re: Split up the string with whole word in Application Development and Automation Discussions

Split up the string with whole word

Former Member — Fri, 29 Jan 2010 15:14:07 GMT

Friends,

I have a string with 150 charcters.

I want to split it up in 50-50-50 charcaters but the requirement is the word should not be broken.

So the 150 characters field can be adjusted.

and if there is no space in 150 characters then it should split exactly 50-50-50.

Is there any function module available for that?

Regards,

Re: Split up the string with whole word

Former Member — Fri, 29 Jan 2010 15:23:11 GMT

Please search SE37 using 'wordwrap*'.

Rob

Re: Split up the string with whole word

Former Member — Fri, 29 Jan 2010 15:30:45 GMT

Its fine...found one

SWA_STRING_SPLIT

Thanks !!

Re: Split up the string with whole word

Former Member — Fri, 29 Jan 2010 15:31:11 GMT

Thanks

Re: Split up the string with whole word

kesavadas_thekkillath — Fri, 29 Jan 2010 16:16:36 GMT

Make the necessary changes,

Its only a logic.



DATA:len TYPE i,
     lv_index TYPE i,
     lv_offset TYPE i,
     lv_rev_index TYPE i,
     lv_rev_2 type i,
     lv_string TYPE string.


lv_string = 'VADVvsndcvbjvbvbvmbzc zdnfdb hzdfhjkahf sdbfbsdjkf sd f f jzdhfjk'.


len = STRLEN( lv_string ).
lv_offset = 50.
lv_index = 1.

DO.
    IF lv_string+lv_offset(lv_index) = ' '.
      WRITE / lv_string+lv_index(lv_offset).
      lv_index = lv_offset.
    ELSE.
      lv_rev_index = lv_offset - 2.
      DO.
        IF lv_string+lv_rev_index(1) = ' '.
          WRITE / lv_string+lv_offset(lv_rev_index).
          lv_offset = lv_rev_index.
          EXIT.
        ENDIF.
        lv_rev_index = lv_rev_index - 1.
      ENDDO.
    ENDIF.
    IF sy-index = len.
      EXIT.
    ENDIF.
ENDDO.