topic Re: Split letter in Application Development and Automation Discussions

Split letter

david_escofettrenado — Thu, 05 Feb 2009 13:40:33 GMT

We have a field that have a letter in the first character or at last. F.e: A23234343 or 2233667F.

We want to extract the number values from left or from right but we don't know were the letter is.

Any suggestion?

Best Regards.

Re: Split letter

Former Member — Thu, 05 Feb 2009 13:43:48 GMT

hi,

Check this code.

data:

w_num(10) type n.

w_num = 'A23234343'.

write:

w_num.

w_num = '2233667F'.

write: w_num.

adjust the length of the numeric variable as per your requirement.

Hope this is helpful..

Thanks

Sharath

Edited by: Sharath Panuganti on Feb 5, 2009 2:43 PM

Re: Split letter

Former Member — Thu, 05 Feb 2009 13:49:29 GMT

Hi David,

Please read help on CO (contains only) and CA (contains any).

I think you have to use contains any for the alphabet and then delete it from the string.

Thanx.

Re: Split letter

Former Member — Thu, 05 Feb 2009 13:50:24 GMT

Hi,

DATA : w_num(8) TYPE n.

w_num = 'A23234343'.

WRITE w_num.

Re: Split letter

Former Member — Thu, 05 Feb 2009 13:53:30 GMT

v_text = 'A123456'.

v_length = STRLEN( v_text ).

v_next = 0.

v_last = v_length - 1.

if 1st charecter in v_text CO 'ABCDEFGHIJKLMNOPQRSTUVWXYZ'.

delete it.

endif.

if lastcharecter CO 'ABCDEFGHIJKLMNOPQRSTUVWXYZ'.

delete the last char.

endif.

Re: Split letter

Former Member — Thu, 05 Feb 2009 13:56:25 GMT

Hi David



strlen = STRLEN( lv_field ).

IF lv_field(1) = 'A'.
lv_number = lv_field+1.

ELSEIF lv_field(strlen)  = 'F'.

strlen1 = strlen - 1.
lv_number = lv_field(strlen1).

ENDIF.

*take care of data types

Pushpraj

Re: Split letter

matt — Thu, 05 Feb 2009 14:01:08 GMT

TRANSLATE l_char_field TO UPPER CASE.
TRANSLATE l_char_field USING 'A B C D E F G H I J K L M N O P Q R S T U V W X Y Z '.
CONDENSE l_char_field.
l_val_field = l_char_field.

matt

Re: Split letter

Former Member — Thu, 05 Feb 2009 14:05:51 GMT

Hi,

Try this...

DATA : LEN TYPE I,

CHR.

DATA : STR1 TYPE STRING VALUE '23234343F'.

LEN = STRLEN( STR1 ).

CHR = STR1+0(1).

IF CHR CO '1234567890'.

STR1 = STR1+0(8).

ELSE.

STR1 = STR1+1(8).

ENDIF.

WRITE : STR1.

regards.