ABAP-去除特殊符号函数

方法1

 1 *ABAP中有关于换行符，TAB KEY等 收藏
 2 
 3 *换行符，TAB KEY等的表示
 4 *在数据文件输出的时候，有时候需要使各个字段间用TAB KEY进行分割。
 5 *那么，TAB KEY在ABAP中是如何表示的，就是写入一个TAB KEY吗？
 6 *事实上，在类对象CL_ABAP_CHAR_UTILITIES中已经事先定义好了如换行符，TAB KEY等。
 7 *CR_LF                   换行符
 8 *HORIZONTAL_TAB          水平方向的TAB KEY
 9 *VERTICAL_TAB            竖直方向的TAB KEY
10 *FORM_FEED               改页
11 *例： CONCATENATE COL1 COL2 CL_ABAP_CHAR_UTILITIES=>HORIZONTAL_TAB INTO …
12 
13 *换行符，TAB KEY等在DB中保存
14 *换行符，TAB KEY等在SAP的DB中被存为“#“。
15 *虽然被保存为#，但在报表中仍能正常显示。
16 
17 *换行符，TAB KEY等的置换处理
18 *换行符，TAB KEY等的置换不能简单的用REPLACE命令进行处理。
19 *正确的处理如下:
20 CALL FUNCTION 'NLS_GET_FRONTEND_CP'
21  EXPORTING
22    LANGU                       = SY-LANGU
23 *   fetype                = 'MS'
24  IMPORTING
25    FRONTEND_CODEPAGE           = CPCODEPAGE
26  EXCEPTIONS
27    ILLEGAL_SYST_CODEPAGE       = 1
28    NO_FRONTEND_CP_FOUND        = 2
29    INTERNAL_OR_DB_ERROR        = 3
30    OTHERS                      = 4.
31 
32 CALL FUNCTION 'SCP_REPLACE_STRANGE_CHARS'
33   EXPORTING
34    INTEXT                  = INTEXT"入参
35    INTER_CP                = CPCODEPAGE
36    REPLACEMENT             = 32
37   IMPORTING
38    OUTTEXT                 = OUTTEXT"出参
39   EXCEPTIONS
40    INVALID_CODEPAGE        = 1
41    CODEPAGE_MISMATCH       = 2
42    INTERNAL_ERROR          = 3
43    CANNOT_CONVERT          = 4
44    FIELDS_NOT_TYPE_C       = 5
45    OTHERS                  = 6.

方法2

 1   DATA: lv_char(10) TYPE c."        
 2   lv_char = cl_abap_char_utilities=>horizontal_tab.    "09 TAB符
 3   REPLACE ALL OCCURRENCES OF lv_char IN p_sting WITH ''.
 4  
 5   lv_char = cl_abap_char_utilities=>cr_lf.  "0D0A 回车换行
 6   REPLACE ALL OCCURRENCES OF lv_char IN p_sting WITH ''.
 7   lv_char = cl_abap_char_utilities=>vertical_tab.    "0B 垂直制表符
 8   REPLACE ALL OCCURRENCES OF lv_char IN p_sting WITH ''.
 9  
10   lv_char = cl_abap_char_utilities=>newline.  "0A 换行
11   REPLACE ALL OCCURRENCES OF lv_char IN p_sting WITH ''.
12   lv_char = cl_abap_char_utilities=>form_feed.  "0C 换页
13   REPLACE ALL OCCURRENCES OF lv_char IN p_sting WITH ''.
14  
15   lv_char = cl_abap_char_utilities=>backspace.  "08 退格符
16   REPLACE ALL OCCURRENCES OF lv_char IN p_sting WITH ''.
17   lv_char = cl_abap_char_utilities=>byte_order_mark_little.    "(UTF-16LE)的文件头
18   REPLACE ALL OCCURRENCES OF lv_char IN p_sting WITH ''.
19  
20   lv_char = cl_abap_char_utilities=>byte_order_mark_utf8.    "(UTF-8)的文件头
21   REPLACE ALL OCCURRENCES OF lv_char IN p_sting WITH ''.

posted @ 2022-06-20 16:05 TigerMan 阅读(579) 评论(0) 编辑收藏举报

刷新页面返回顶部

登录后才能查看或发表评论，立即登录或者逛逛博客园首页

相关博文：

· ABAP-读取EXCEL中不同的SHEET函数

· ABAP-日期内外码转换函数

· ABAP 字符串换行符等等字符处理

· 转换SAP特殊字符

· sql 去除空格等特殊符号

公告

昵称： TigerMan
园龄： 5年4个月
粉丝： 18
关注： 2

+加关注

2025年3月

日

一

二

三

四

五

六

TigerMan

ABAP-去除特殊符号函数

公告

搜索

常用链接

随笔分类

随笔档案

阅读排行榜

推荐排行榜