ABAP 特殊字符的过滤、日期格式检查（自定义函数）

原创 于 2025-09-25 17:14:17 发布 · 584 阅读 · 0 ·
CC 4.0 BY-SA版权
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
文章标签：

#java #前端 #数据库

简介：
针对模板上传、接口的数据，进行特殊字符的过滤；
日期格式检查：YYYYMMDD、YYYY-MM-DD、YYYY.MM.DD、YYYY/MM/DD；
时间格式检查：HHMMSS或HH:MM:SS；
数字的检查；

FUNCTION Z_DATA_FILTERING.
*"----------------------------------------------------------------------
*"*"本地接口：
*"  IMPORTING
*"     VALUE(I_STRING) TYPE  STRING
*"     VALUE(DATATYPE) TYPE  INTTYPE DEFAULT 'C'
*"     VALUE(LOWER) TYPE  CHAR01 OPTIONAL
*"  EXPORTING
*"     VALUE(E_STRING) TYPE  STRING
*"     VALUE(E_MESSAGE) TYPE  BAPI_MSG
*"----------------------------------------------------------------------
  DATA L_ENTERCHAR TYPE C.
  DATA OREF TYPE REF TO CX_ROOT.
  DATA: T_DATE      LIKE SY-DATUM,
        T_TIME      LIKE SY-UZEIT,
        T_YEAR(04),
        T_MONTH(02),
        T_DAY(02),
        T_HH(2),
        T_MM(2),
        T_SS(2).
  DATA: T_HTYPE LIKE  DD01V-DATATYPE.
*----------------宏定义
  DEFINE M_ALPHA.
    CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
      EXPORTING
        INPUT  = &1
      IMPORTING
        OUTPUT = &2.
  END-OF-DEFINITION.

  DEFINE M_MATN1.
    CALL FUNCTION 'CONVERSION_EXIT_MATN1_INPUT'
      EXPORTING
        INPUT        = &1
      IMPORTING
        OUTPUT       = &2
      EXCEPTIONS
        LENGTH_ERROR = 1
        OTHERS       = 2.
  END-OF-DEFINITION.

  CLEAR E_MESSAGE.
  E_STRING = I_STRING.
  CONDENSE E_STRING.
  IF DATATYPE IS INITIAL.
    DATATYPE = 'C'."默认字符型
  ENDIF.
  "去除回车符和换行符
  CLEAR L_ENTERCHAR.
  L_ENTERCHAR = CL_ABAP_CHAR_UTILITIES=>HORIZONTAL_TAB." — 09    TAB符
  REPLACE L_ENTERCHAR IN E_STRING WITH ''.
  IF SY-SUBRC = 0.
    DO.
      REPLACE L_ENTERCHAR IN E_STRING WITH ''.
      IF SY-SUBRC <> 0.
        EXIT.
      ENDIF.
    ENDDO.
  ENDIF.

  L_ENTERCHAR = CL_ABAP_CHAR_UTILITIES=>CR_LF."0D0A    回车换行
  REPLACE L_ENTERCHAR IN E_STRING WITH ''.
  IF SY-SUBRC = 0.
    DO.
      REPLACE L_ENTERCHAR IN E_STRING WITH ''.
      IF SY-SUBRC <> 0.
        EXIT.
      ENDIF.
    ENDDO.
  ENDIF.

  L_ENTERCHAR = CL_ABAP_CHAR_UTILITIES=>VERTICAL_TAB."0B    垂直制表符
  REPLACE L_ENTERCHAR IN E_STRING WITH ''.
  IF SY-SUBRC = 0.
    DO.
      REPLACE L_ENTERCHAR IN E_STRING WITH ''.
      IF SY-SUBRC <> 0.
        EXIT.
      ENDIF.
    ENDDO.
  ENDIF.

  L_ENTERCHAR = CL_ABAP_CHAR_UTILITIES=>NEWLINE."0A    换行
  REPLACE L_ENTERCHAR IN E_STRING WITH ''.
  IF SY-SUBRC = 0.
    DO.
      REPLACE L_ENTERCHAR IN E_STRING WITH ''.
      IF SY-SUBRC <> 0.
        EXIT.
      ENDIF.
    ENDDO.
  ENDIF.

  L_ENTERCHAR = CL_ABAP_CHAR_UTILITIES=>FORM_FEED."0C    换页
  REPLACE L_ENTERCHAR IN E_STRING WITH ''.
  IF SY-SUBRC = 0.
    DO.
      REPLACE L_ENTERCHAR IN E_STRING WITH ''.
      IF SY-SUBRC <> 0.
        EXIT.
      ENDIF.
    ENDDO.
  ENDIF.

  L_ENTERCHAR = CL_ABAP_CHAR_UTILITIES=>BACKSPACE."08    退格符
  REPLACE L_ENTERCHAR IN E_STRING WITH ''.
  IF SY-SUBRC = 0.
    DO.
      REPLACE L_ENTERCHAR IN E_STRING WITH ''.
      IF SY-SUBRC <> 0.
        EXIT.
      ENDIF.
    ENDDO.
  ENDIF.


  L_ENTERCHAR = CL_ABAP_CHAR_UTILITIES=>CR_LF.
  REPLACE L_ENTERCHAR IN E_STRING WITH ''.
  IF SY-SUBRC = 0.
    "如果存在换行符号则内表此单元格数据会多出一对双引号
    DO.
      REPLACE '"' WITH '' INTO E_STRING.
      IF SY-SUBRC <> 0.
        EXIT.
      ENDIF.
    ENDDO.
  ENDIF.
  CLEAR L_ENTERCHAR.
  L_ENTERCHAR = CL_ABAP_CHAR_UTILITIES=>CR_LF(1).
  REPLACE L_ENTERCHAR IN E_STRING WITH ''.
  IF SY-SUBRC = 0.
    "如果存在换行符号则内表此单元格数据会多出一对双引号
    DO.
      REPLACE '"' WITH '' INTO E_STRING.
      IF SY-SUBRC <> 0.
        EXIT.
      ENDIF.
    ENDDO.
  ENDIF.
  "去除EXCEL上传的回车符无换行符
  CLEAR L_ENTERCHAR.
  L_ENTERCHAR = CL_ABAP_CHAR_UTILITIES=>CR_LF+1(1).
  REPLACE L_ENTERCHAR IN E_STRING WITH ''.
  IF SY-SUBRC = 0.
    "如果存在换行符号则内表此单元格数据会多出一对双引号
    DO.
      REPLACE '"' WITH '' INTO E_STRING.
      IF SY-SUBRC <> 0.
        EXIT.
      ENDIF.
    ENDDO.
  ENDIF.

  CASE DATATYPE.
    WHEN 'C'."替换特殊字符# !为全角,去除回车符，去除左右空格
      DO.
        REPLACE '#' WITH '＃' INTO E_STRING.
        IF SY-SUBRC <> 0.
          EXIT.
        ENDIF.
      ENDDO.
      DO.
        REPLACE '!' WITH '！' INTO E_STRING.
        IF SY-SUBRC <> 0.
          EXIT.
        ENDIF.
      ENDDO.
      DO.
        REPLACE '&' WITH '＆' INTO E_STRING.
        IF SY-SUBRC <> 0.
          EXIT.
        ENDIF.
      ENDDO.
      DO.
        REPLACE ':' WITH '：' INTO E_STRING.
        IF SY-SUBRC <> 0.
          EXIT.
        ENDIF.
      ENDDO.
      IF LOWER IS INITIAL.
        TRANSLATE E_STRING TO UPPER CASE.
      ENDIF.
    WHEN 'D'."日期检查并转成YYYYMMDD
      CLEAR:T_YEAR,T_MONTH,T_DAY.
      SPLIT E_STRING AT '-' INTO T_YEAR T_MONTH T_DAY.
      IF T_YEAR IS INITIAL OR T_MONTH IS INITIAL OR T_DAY IS INITIAL.
        SPLIT E_STRING AT '.' INTO T_YEAR T_MONTH T_DAY.
        IF T_YEAR IS INITIAL OR T_MONTH IS INITIAL OR T_DAY IS INITIAL.
          SPLIT E_STRING AT '/' INTO T_YEAR T_MONTH T_DAY.
          IF T_YEAR IS INITIAL OR T_MONTH IS INITIAL OR T_DAY IS INITIAL.
            IF STRLEN( E_STRING ) = 8.
              T_YEAR = E_STRING(4).
              T_MONTH = E_STRING+4(2).
              T_DAY = E_STRING+6(2).
            ELSE.
              CLEAR E_MESSAGE.
              CONCATENATE '当前值： ' E_STRING ' 日期格式错误,必须是YYYYMMDD、YYYY-MM-DD、YYYY.MM.DD、YYYY/MM/DD' INTO E_MESSAGE.
              CLEAR E_STRING.
              RETURN.
            ENDIF.
          ENDIF.
        ENDIF.
      ENDIF.
      M_ALPHA T_YEAR T_YEAR.
      M_ALPHA T_MONTH T_MONTH.
      M_ALPHA T_DAY T_DAY.
      CONCATENATE T_YEAR T_MONTH T_DAY INTO T_DATE.
      TRY.
          CALL FUNCTION 'DATE_CHECK_PLAUSIBILITY'
            EXPORTING
              DATE                      = T_DATE
            EXCEPTIONS
              PLAUSIBILITY_CHECK_FAILED = 1
              OTHERS                    = 2.
          IF SY-SUBRC = 0.
            E_STRING = T_DATE.
          ELSE.
            CLEAR E_MESSAGE.
            CONCATENATE '当前值： ' E_STRING ' 日期格式错误,必须是YYYYMMDD、YYYY-MM-DD、YYYY.MM.DD、YYYY/MM/DD' INTO E_MESSAGE.
            CLEAR E_STRING.
            RETURN.
          ENDIF.
        CATCH CX_SY_DYN_CALL_ILLEGAL_TYPE INTO OREF.
          CLEAR E_MESSAGE.
          CONCATENATE '当前值： ' E_STRING ' 日期格式错误,必须是YYYYMMDD、YYYY-MM-DD、YYYY.MM.DD、YYYY/MM/DD' INTO E_MESSAGE.
          CLEAR E_STRING.
          RETURN.
      ENDTRY.
    WHEN 'T'."时间检查并转换为HHMMSS
      CLEAR:T_HH,T_MM,T_SS.
      SPLIT E_STRING AT ':' INTO T_HH T_MM T_SS.
      IF T_HH IS INITIAL OR T_MM IS INITIAL OR T_SS IS INITIAL.
        IF STRLEN( E_STRING ) = 6.
          T_HH = E_STRING(2).
          T_MM = E_STRING+2(2).
          T_SS = E_STRING+4(2).
        ELSE.
          CLEAR E_MESSAGE.
          CONCATENATE '当前值： ' E_STRING ' 时间格式错误，格式为HH:MM:SS' INTO E_MESSAGE.
          CLEAR E_STRING.
          RETURN.
        ENDIF.
      ENDIF.
      M_ALPHA T_HH T_HH.
      M_ALPHA T_MM T_MM.
      M_ALPHA T_SS T_SS.
      CONCATENATE T_HH T_MM T_SS INTO T_TIME.
      TRY.
          CALL FUNCTION 'TIME_CHECK_PLAUSIBILITY'
            EXPORTING
              TIME                      = T_TIME
            EXCEPTIONS
              PLAUSIBILITY_CHECK_FAILED = 1
              OTHERS                    = 2.
          IF SY-SUBRC = 0.
            E_STRING = T_TIME.
          ELSE.
            CLEAR E_MESSAGE.
            CONCATENATE '当前值： ' E_STRING ' 时间格式错误，格式应为HHMMSS或HH:MM:SS' INTO E_MESSAGE.
            CLEAR E_STRING.
            RETURN.
          ENDIF.
        CATCH CX_SY_DYN_CALL_ILLEGAL_TYPE INTO OREF.
          CLEAR E_MESSAGE.
          CONCATENATE '当前值： ' E_STRING ' 时间格式错误，格式应为HHMMSS或HH:MM:SS' INTO E_MESSAGE.
          CLEAR E_STRING.
          RETURN.
      ENDTRY.
    WHEN 'P' OR 'F'."金额过滤逗号
      DO.
        REPLACE ',' WITH '' INTO E_STRING.
        IF SY-SUBRC <> 0.
          EXIT.
        ENDIF.
      ENDDO.
      CONDENSE E_STRING NO-GAPS.
      IF CL_ABAP_MATCHER=>MATCHES(
          PATTERN = '^(-?[1-9]\d*(\.\d*[0-9])?)|(-?0\.\d*[0-9])|0$'
          TEXT = E_STRING ) = ABAP_FALSE.
        CLEAR E_MESSAGE.
        CONCATENATE '当前值： ' E_STRING ' 非数值字段' INTO E_MESSAGE.
        CLEAR E_STRING.
        RETURN.
      ENDIF.
    WHEN 'I'.
      DO.
        REPLACE ',' WITH '' INTO E_STRING.
        IF SY-SUBRC <> 0.
          EXIT.
        ENDIF.
      ENDDO.
      CONDENSE E_STRING NO-GAPS.
      IF CL_ABAP_MATCHER=>MATCHES(
          PATTERN = '^-?[1-9]\d*|0|[1-9]\d*-?$'
          TEXT = E_STRING ) = ABAP_FALSE.
        CLEAR E_MESSAGE.
        CONCATENATE '当前值： ' E_STRING ' 非整数字段' INTO E_MESSAGE.
        CLEAR E_STRING.
        RETURN.
      ENDIF.
    WHEN 'N'.
*      TRY.
      "此函数不能校验P类型
      CALL FUNCTION 'NUMERIC_CHECK'
        EXPORTING
          STRING_IN = E_STRING
        IMPORTING
          HTYPE     = T_HTYPE.
      IF T_HTYPE <> 'NUMC'.
        CLEAR E_MESSAGE.
        CONCATENATE '当前值： ' E_STRING ' 非数值字段' INTO E_MESSAGE.
        CLEAR E_STRING.
        RETURN.
      ENDIF.
*        CATCH UC_OBJECTS_NOT_CHARLIKE INTO OREF.
*          E_MESSAGE = '非数值字段'.
*          CLEAR E_STRING.
*          RETURN.
*     ENDTRY.
    WHEN OTHERS.
      "E_MESSAGE = '此类型暂不支持'.
  ENDCASE.
ENDFUNCTION.
脑花儿
关注
ABAP校验时间日期格式
weixin_43734184的博客
03-02 2916
通过一种简单的方法可校验时间日期格式是否正确： 1.判断是否有特殊符号 2.判断是否为8位 *&---------------------------------------------------------------------* *& Report Z_ZHANGM_006 *& *&---------------------------------------------------------------------* *&日期格式校验 *& *
利用 selection table 优雅实现 ABAP WHERE IN 过滤 —— IN @seltab 深度解析
最新发布
2007 年 ~ 2025 年，深耕 SAP 技术 18 年
06-05 241
SAP 官方将IN @seltab描述为：判断左侧字段值是否（不）属于 selection table 描述的结果集，selection table 行结构需符合SIGNOPTIONLOWHIGH四字段规范(SIGNI为包含，E为排除(OPTIONEQBTCP等，对LOWHIGH给出单值或区间(LOWHIGH则保存比较值，其数据类型需与被比较字段可无损赋值，否则在严格语法检查模式下会触发异常(只要内表行结构满足上述四字段，即可被视作 selection table 并用于IN逻辑，无论它来自RANGES。
ABAP如何检查字符串是否为日期或时间格式
ChampaignWolf的专栏
05-19 9721
1、下面函数是检查日期的合法性的函数 CALL FUNCTION 'DATE_CHECK_PLAUSIBILITY' EXPORTING date = v_date EXCEPTIONS plausibility_check_failed = 1 OTHERS = 2. IF sy-subrc NE 0. "如果返回非0，则日期不合法 . . ENDIF. 2、下面函数是检查时间合法性的函数 CALL FUNCTION 'TIME_CHECK_PLAUSIBILITY' EXPORTING time =
SAP ABAP判断日期是否合法
matinal 當冬夜漸暖 。公众号：matinal
08-01 1441
1、下面函数是检查日期的合法性的函数2、下面函数是检查时间合法性的函数。
ABAP检查日期and时间合法性的函数
少年休闲海
08-03 4231
项目中经常需要检查手工输入的时间或日期的合法性，可以调用标准函数 'DATE_CHECK_PLAUSIBILITY' 或'TIME_CHECK_PLAUSIBILITY'检查日期和时间值是否合法。 用法如下： CALL FUNCTION 'TIME_CHECK_PLAUSIBILITY' EXPORTING time = v_time EXCEPTIONS
ABAP 时间检验
Shmily_GYN的博客
10-29 1314
导入 excel 报表 到 内表后，我们需要对时间进行校验，看看输入的时间是否合理，合法。
零基础 ABAP 学习教程系列文章的目录
热门推荐
2007 年 ~ 2025 年，深耕 SAP 技术 18 年
05-04 2万+
曾几何时，ABAP 就是 SAP 的代名词。ABAP 这门编程语言造就了 SAP 名噪一时的 R/3 产品，同时也是如今 SAP 旗舰级产品，SAP S/4HANA 底层的实现语言。 ABAP 不仅代表着 SAP 这家公司在企业级管理软件市场辉煌的过去，ABAP 自身也在不断地进化着。SAP 不仅在本地部署(On-Premise)领域继续保持着自己绝对的统治地位，而且在云应用领域（Software-as-a-Service, 简称 SaaS), 也推出了自己的解决方案，比如 SAP S/4HANA Clo
SAP ABAP开发常用函数大全
"本资源是关于SAP ABAP开发中常用的一些函数的集合，涵盖了数据读取、格式转换、用户交互、错误处理等多个方面。这些函数对于进行SAP ABAP编程来说是至关重要的，能够帮助开发者高效地完成各种任务。" 在SAP ABAP...
abap函数
03-11
### 关于ABAP函数的使用教程、示例及其语法说明 #### ABAP中的函数概念 ABAP 中的函数通过功能模块(Function Modules, FM)实现，这些模块封装了一组特定的任务逻辑。与过程式编程语言不同的是，在ABAP里，除了标准...
什么是 ABAP 数据字典中的 Search Help
2007 年 ~ 2025 年，深耕 SAP 技术 18 年
03-29 221
在 ABAP 程序中，往往有多个地方需要让用户选择物料编码。下面给出一个独立可运行的示例程序，名字为。可在 SE38 事务码里创建后直接激活运行。" 如果需要默认值或其他逻辑，可以在这里进行" 在用户按下 F4 时，系统会自动调用我们在 PARAMETERS 里定义的 Search Help" 如果想要做更细微的逻辑控制，也可以使用下面这种调用方式WRITE: / '您选择的物料编码为: ', p_matnr.ELSE.WRITE: / '您还没有输入物料编码'.ENDIF.
SAP ABAP DATE_CHECK_PLAUSIBILITY 检查日期合法性 源码
GAVIN
11-09 575
【代码】SAP ABAP DATE_CHECK_PLAUSIBILITY源码。
ABAP-日期和时间检查函数
qq_42489747的博客
07-01 209
1 DATA:lv_date TYPE sy-datum, 2 lv_time TYPE sy-uzeit. 3 4 IF lv_date IS NOT INITIAL . 5 6 CALL FUNCTION 'DATE_CHECK_PLAUSIBILITY' 7 EXPORTING 8 date ...
ABAP检查日期时间合法性的函数
matinal 當冬夜漸暖 。公众号：matinal
08-31 1071
ABAP检查日期时间合法性的函数
ABAP 日期 时间 函数
wenyitao880901的专栏
11-16 4418
一 、 日期校验         DATE_CHECK_PLAUSIBILITY     日期有效性检查         TIME_CHECK_PLAUSIBILITY     判断是不是时间     二 、 日期计算         RP_CALC_DATE_IN_INTERVAL          年月日加减         SD_DATETIME_DIFFERENCE
ABAP - 日期格式转换 & ABAP常用日期处理函数
zhangzaig的专栏
08-12 2417
ABAP - 日期格式转换 现在提供以下一些日期格式转换的函数； Below are several FMs which can be used to convert date format. 1. CONVERSION_EXIT_IDATE_OUTPUT     INPUT:      20080203     OUTPUT:   03FEB2008 2. C
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值