REPORT yextract_number. DATA number(10) VALUE '0123456789'. DATA string_val TYPE char100. WRITE :/ 'First Option ========================'. string_val = ' SHIPMENT 335'. WRITE :/ 'Before', string_val. REPLACE ALL OCCURENCES OF REGEX '[^\d]' IN string_val WITH space. CONDENSE string_val NO-GAPS. WRITE :/ 'After', string_val. WRITE :/ 'First Option ========================'. WRITE :/ '##########################################'. DATA : lv_string TYPE string. DATA : lv_num TYPE string. lv_string = 'A1313.33BBC'. lv_num = lv_string. WRITE :/ 'Second Option ========================'. WRITE :/ 'Before', lv_string. REPLACE ALL OCCURRENCES OF REGEX '([[:alpha:]])' IN lv_num WITH ''. WRITE :/ 'After', lv_num. WRITE :/ 'Second Option ========================'.
All About Programming
Blog Ini Dibuat untuk berbagi pengetahuan dalam hal programming, dan semoga bisa bermanfaat