본문 바로가기
카테고리 없음

ABAP FIND CHARATER REPLACE 문자열 치환

by 온레 2023. 11. 22.

 

문자열 중에 

마지막 세자리에 숫자가 있는 경우,

 

그 중. 젤 첫번쨰 숫자 뒤에 문자 넣기.

 

 

DATA : LV_OFFSET TYPE I.

DATA : LV_STR TYPE STRING VALUE 'ABCDEFG214'.

 

DATA(LV_LEN) = STRLEN( LV_STR ) - 3.   "LV_STR의 마지막 3자리 뺀 문자

DATA(LV_LAST) = LV_STR+LV_LEN(3).     "LV_STAR에서 마지막 3자리

 

FIND FIRST OCCURRENCE OF REGEX '[0-9]' IN LV_LAST

                                                     MATCH OFFSET LV_OFFSET.

 

IF SY-SUBRC EQ 0.

 

   DATA(LV_ORG) = LV_LAST+LV_OFFSET(1).

   CONCATENATE LV_ORG 'X' INTO DATA (LV_NEW).

   

   REPLACE LV_ORG IN LV_LAST WITH LV_NEW.

 

ENDIF.

 

CONCATENATE LV_FIRST LV_LAST INTO DATA(LV_FULL).

 

WRITE : LV_STR.

WRITE /: LV_FULL.