topic Re: split a word into characters in Application Development and Automation Discussions

split a word into characters

Former Member — Thu, 01 Mar 2007 07:23:27 GMT

Hi Experts,

How can we split a single word into characters and store it in an internal table.

eg: '39EFN'

itab:3

Thanx in advance

Regards,

Hamsa Priya

Re: split a word into characters

Former Member — Thu, 01 Mar 2007 07:27:13 GMT

Hi,

Claculate the length of single word.


REPORT yjjtest1 .

DATA: BEGIN OF itab OCCURS 0,
           f1 TYPE c,
          END OF itab.

DATA: word(10) TYPE c VALUE '39EFN',
       vlen TYPE i,
       i TYPE i.
CLEAR: vlen, i.

vlen = strlen( word ).

DO vlen TIMES.
    i = i + 1.
  itab-f1 = word+0(i).
  APPEND itab.
  SHIFT word .
ENDDO.

LOOP AT itab.
  WRITE:/ itab-f1.
ENDLOOP.

Hope this oslves ur query, reward if this helsp.
This will work exactly

As I am using SHIFT i have increased the lenght of the word word(10).

Message was edited by:

Judith Jessie Selvi

Re: split a word into characters

sreeramkumar_madisetty — Thu, 01 Mar 2007 07:29:20 GMT

Use the logic:

word = word+0(1).

Regards,

kumar

Re: split a word into characters

Former Member — Thu, 01 Mar 2007 07:32:51 GMT

data : v_string like string value 'abcedf',

cnt type i,

v type c,

n type i.

cnt = strlen( v_string ).

do cnt times.

move v_string+n(1) to itab-field.

append itab .

clear itab.

n = n + 1.

if n = cnt .

exit.

endif.

enddo.

Pls. reward if useful

Re: split a word into characters

Former Member — Thu, 01 Mar 2007 07:35:21 GMT

Make a minor change in the code given by Judith,

DATA: BEGIN OF itab occurs 0,

f1 TYPE c,

END of itab.

word = '39EFN'.

Vlen = len(word).

clear i.

DO vlen TIMES.

itab-f1 = word+i(1).

APPEND itab.

i = i + 1.

END DO.

LOOP AT itab.

Write:/ itab-f1.

ENDLOOP.

Re: split a word into characters

Former Member — Thu, 01 Mar 2007 07:37:18 GMT

data: begin of itab occurs 0,

itm type c,

end of itab.

DATA: G_STR TYPE STRING.

DATA: LIN TYPE I,

CNT TYPE I,

CNT1 TYPE I.

DATA: VDAT.

G_STR = '123AB'.

LIN = STRLEN( G_STR ).

CNT = 0.

CNT1 = 1.

WHILE CNT < LIN.

VDAT = G_STR+CNT(1).

WRITE:/ VDAT.

CNT = CNT + 1.

CNT1 = CNT1 + 1.

ENDWHILE.

Re: split a word into characters

Former Member — Thu, 01 Mar 2007 07:41:07 GMT

hi hamsa,

execute this and check.

REPORT ZKEERTHI_TEST.

data: str type string value '39EFN'.

data:len type c.

data: n type c value '0'.

data: begin of itab occurs 0,

char type c,

end of itab.

len = strlen( str ).

while n < len.

itab-char = str+n(1).

append itab.

n = n + 1.

endwhile.

end-of-selection.

loop at itab.

write:/ itab-char.

endloop.

regards,

keerthi

Re: split a word into characters

Former Member — Thu, 01 Mar 2007 07:44:07 GMT

Some different method...

PARAMETER w_char(30) type c DEFAULT 'ABCDEF'.

DATA :

W_WORD LIKE W_CHAR,

W_INDEX TYPE I,

W_COUNT TYPE I,

W_LENGTH TYPE I.

DATA T_WORD LIKE STANDARD TABLE OF W_CHAR WITH HEADER LINE.

W_LENGTH = STRLEN( W_CHAR ).

WHILE W_COUNT LT W_LENGTH.

MOVE W_CHARW_COUNT(1) TO W_WORDW_INDEX(1).

ADD 1 TO : W_INDEX,W_COUNT.

MOVE ',' TO W_WORD+W_INDEX(1).

ADD 1 TO : W_INDEX.

ENDWHILE.

SPLIT W_WORD AT ',' INTO TABLE T_WORD.

LOOP AT T_WORD.

WRITE : / T_WORD.

ENDLOOP.

reward if it helps..

sai ramesh.

Re: split a word into characters

Former Member — Thu, 01 Mar 2007 07:46:03 GMT

S u can see the final code please try and revrt back.

REPORT yjjtest1 .

DATA: BEGIN OF itab OCCURS 0,
           f1 TYPE c,
          END OF itab.

DATA: word(5) TYPE c VALUE '39EFN',
       vlen TYPE i,
       i TYPE i.
CLEAR: vlen, i.

vlen = strlen( word ).

DO vlen TIMES.

    itab-f1 = word+i(1).
  APPEND itab.
   i = i + 1.
*  SHIFT word .
ENDDO.

LOOP AT itab.
  WRITE:/ itab-f1.
ENDLOOP.

Re: split a word into characters

Former Member — Thu, 01 Mar 2007 07:47:00 GMT

Hi Hames,

i think if you have only one word you don't need an internal table.

You can use

data: word(10) value '1234567890'.

and hande word0(1) or word3(1) etc.

You can also use an structure:

Data: begin of itab,

x1(1),

x2(1),

x3(1),

x4(1),

x5(1),

x6(1),

x7(1),

x8(1),

x9(1),

x0(1),

end of itab.

itab = word.

in itab-x1 you have the first character, in itab-x3 voe have the third character.

If you will handle more than one words use itab as an an internal table

and put all words in it.

Hope it helps.

regards, Dieter