Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- DATA: v_output(30) TYPE c VALUE 'Hello, World!',
- number TYPE i,
- str_len TYPE i,
- offset TYPE i,
- length TYPE i,
- replace_len TYPE i.
- PARAMETERS: p_input TYPE c LENGTH 30.
- number = 2.
- WHILE number > 1."Clear all thousands separators, leave only the decimal separator from input.
- REPLACE ALL OCCURRENCES OF ',' IN p_input WITH '.'.
- FIND ALL OCCURRENCES OF '.' IN p_input MATCH COUNT number.
- IF sy-subrc = 0 AND number > 1.
- REPLACE FIRST OCCURRENCE OF '.' IN p_input WITH ''.
- ENDIF.
- CONDENSE p_input NO-GAPS.
- ENDWHILE.
- str_len = strlen( p_input ).
- replace_len = strlen( v_output ).
- WHILE str_len > replace_len."Replace section of the string with predefined value.
- FIND FIRST OCCURRENCE OF REGEX '\d' IN p_input MATCH OFFSET offset.
- IF sy-subrc = 0.
- REPLACE SECTION OFFSET offset LENGTH replace_len OF:
- p_input WITH v_output.
- FIND FIRST OCCURRENCE OF REGEX '\d' IN p_input MATCH OFFSET offset.
- str_len = strlen( p_input ).
- REPLACE SECTION OFFSET offset LENGTH str_len - replace_len OF:
- p_input WITH ''.
- ENDIF.
- str_len = strlen( p_input ).
- ENDWHILE.
- WRITE: / p_input.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement