Aller au contenu

Abap - Remove forbidden string

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
DATA c_data    TYPE /bic/oizc_clstxt.

CLEAR: c_data.
c_data = SOURCE_FIELDS-/bic/zc_clstxt.

REPLACE ALL OCCURRENCES OF '#'                                    IN c_data WITH space.
REPLACE ALL OCCURRENCES OF '!'                                    IN c_data WITH space.
REPLACE ALL OCCURRENCES OF '&'                                    IN c_data WITH 'AND'.
REPLACE ALL OCCURRENCES OF '|'                                    IN c_data WITH ' '.
REPLACE ALL OCCURRENCES OF cl_abap_char_utilities=>newline        IN c_data WITH ' '.
REPLACE ALL OCCURRENCES OF cl_abap_char_utilities=>cr_lf          IN c_data WITH ' '.
REPLACE ALL OCCURRENCES OF cl_abap_char_utilities=>horizontal_tab IN c_data WITH ' '.
REPLACE ALL OCCURRENCES OF cl_abap_char_utilities=>backspace      IN c_data WITH ' '.
REPLACE ALL OCCURRENCES OF cl_abap_char_utilities=>form_feed      IN c_data WITH ' '.
REPLACE ALL OCCURRENCES OF cl_abap_char_utilities=>vertical_tab   IN c_data WITH ' '.
REPLACE ALL OCCURRENCES OF cl_abap_char_utilities=>minchar        IN c_data WITH ' '.
REPLACE ALL OCCURRENCES OF cl_abap_char_utilities=>maxchar        IN c_data WITH ' '.
REPLACE ALL OCCURRENCES OF '#'                                    IN c_data WITH ' '.     

RESULT = c_data.