ABAP中如何检查字母数字类型(alpha numeric)的变量

最新推荐文章于 2024-05-14 10:04:16 发布

转载最新推荐文章于 2024-05-14 10:04:16 发布 · 2.3k 阅读

ABAP技巧专栏收录该内容

33 篇文章

订阅专栏

本文介绍如何使用ABAP程序检查并去除字符串中的非字母数字字符，通过实例展示实现过程。

Business requirment经常要求某个ID的值只能包含26个字母和10个数字字符，这就要求ABAP程序能够检查相应变量内容，辨别特殊字符。sap-img上的一个例子提供了这样的功能：

REPORT ZCHECK_ALPHA_NUMERIC.

* Declare the variable

* For Length 
data: serial_length type i.

* For Alpha numeric 
data: str type string.
data: valid_characters type string.

* Fill in those valid characters you need to check 
concatenate ’0123456789′ ‘ABCDEFGHIJKLMNOPQRSTUVWXYZ’
‘abcdefghijklmnopqrstuvwxyz’ into valid_characters.

* User Input 
parameters testchar(10) default ’12345abc’.

* Get User Input 
str = testchar.

* The Checks 
if str co valid_characters.
write: / str, ‘Characters are OK’.
else.
write: / str, ‘Characters are NOT OK’.
endif.

*– End Program

基于同样的原理，下面这个subroutine可以去掉一个字符串中的所有特殊字符

*&———————————————————————*
*&      Form  convert_character_entities
*&———————————————————————*
*  This form removes all non-alpha-numeric characters from a string
*———————————————————————-*
*      <–
*———————————————————————-*
FORM remove_non_alpha_numeric_char.
DATA: l_teststr       TYPE string,
l_alpha_numeric TYPE string.
DATA: l_strlen TYPE i.

DATA: l_char TYPE c.

l_teststr = ‘ref0 0@2$45*8′.
l_strlen = strlen( l_teststr ).
WRITE: / l_teststr, ‘length:’, l_strlen.

l_alpha_numeric = ’0123456789abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ’.

WHILE l_strlen <> 0.
l_strlen = l_strlen – 1.
l_char = l_teststr+l_strlen(1).
IF l_alpha_numeric NA l_char.
REPLACE SECTION OFFSET l_strlen LENGTH 1 OF l_teststr WITH ”.
ENDIF.
ENDWHILE.
l_strlen = strlen( l_teststr ).
WRITE: / l_teststr, ‘length:’, l_strlen.

ENDFORM.