topic Split text dynamically in Application Development and Automation Discussions

Split text dynamically

Former Member — Mon, 05 May 2008 10:19:28 GMT

Hi all,

I have a string containing N number of characters example:

A111/123/B4567/200/888

Let's say my field can only accomodate 10 characters and the rest have to be split to the next line (or flows to the next line in the case of a smartform).

However i do not want it to be split in an incomplete manner:

Eg:

A111/123/B4

567/200/888

Notice that "B4567" is split incorrectly.

I need it to be like (every '/' indicates a unique text section):

Eg:

A111/123/

B4567/200/

888

Anyone has any idea on how to accomplish this?

Thanks in advance.

Re: Split text dynamically

Former Member — Mon, 05 May 2008 10:28:16 GMT

well you need to code that with offset.

just make sure you only split when the last sign before the split is a /.

Re: Split text dynamically

Former Member — Mon, 05 May 2008 10:30:58 GMT

HI,

data: text(100) type c,

text_1(10) type c,

text_2(10) type c.

text2 = 'A111/123/B4'

text3 = '567/200/888'

concatenate text2 text3 to text.

text_1 = text(10).

text_2 = text(10)+10.

.............

Re: Split text dynamically

Former Member — Mon, 05 May 2008 10:36:42 GMT

Try with the below code....

constants c_slash type c value '/'.

data v_act(250) type c.

data: begin of itab occurs 0,

line(250) type c,

end of itab.

v_act = 'A111/123/B4567/200/888'.

split v_act at c_slash into table itab.

loop at itab.

write: / itab-line.

endloop.

Regards,

Satya

Re: Split text dynamically

Former Member — Mon, 05 May 2008 10:39:49 GMT

I do not want it to split at every single occurence of '/'. That's why this is abit tricky.

Re: Split text dynamically

Former Member — Mon, 05 May 2008 10:43:10 GMT

split it at every single occurance of '/' into an internal table and then concatenate 1st and 2nd , 3rd and 4th... according to ur requirement.

reward if useful

Re: Split text dynamically

Former Member — Mon, 05 May 2008 11:45:56 GMT

Try this sample code:

DATA: slen(5) TYPE c,

itab TYPE TABLE OF string WITH HEADER LINE,

itab1 TYPE TABLE OF string WITH HEADER LINE,

text TYPE string.

text = `A111/123/B4567/200/888/2386/842/8`.

SPLIT text AT '/' INTO TABLE itab.

LOOP AT itab.

IF sy-tabix = 1.

itab1 = itab.

ELSE.

CONCATENATE itab1 itab INTO itab1 SEPARATED BY '/'.

ENDIF.

slen = STRLEN( itab1 ).

IF slen >= 10.

IF itab1+10(1) = '/'.

APPEND itab1.

CLEAR itab1.

ELSE.

REPLACE ALL OCCURRENCES OF itab IN itab1 WITH space.

APPEND itab1.

CLEAR itab1.

itab1 = itab.

ENDIF.

AT LAST.

APPEND itab1.

CLEAR itab1.

ENDAT.

ENDLOOP.

WRITE: /1 'String: ', text.

LOOP AT itab1.

WRITE :/1 itab1.

ENDLOOP.