ABAP 判断字符串是否是数字

最新推荐文章于 2025-03-26 10:24:57 发布
最新推荐文章于 2025-03-26 10:24:57 发布
阅读量2.3k 收藏 4
点赞数
CC 4.0 BY-SA版权
原文链接：http://www.cnblogs.com/dy-debug/p/8057792.html
本文介绍了一个ABAP中的正则表达式用于判断字符串是否为有效数字的方法。该正则表达式能够准确地匹配包含整数、负数及小数的有效数值，并排除无效的数字格式。

摘要生成于 C知道 ，由 DeepSeek-R1 满血版支持， 前往体验 >

通过正则表达式：

IF cl_abap_matcher=>matches(
    pattern = '^(-?[1-9]\d*(\.\d*[1-9])?)|(-?0\.\d*[1-9])$'
    text = '1.01' ) = abap_true.

  WRITE '数字'.
ELSE.

  WRITE '非数字'.
ENDIF.
-?　　　　　　 ：负号
[1-9]\d*     ：整数部分(整数第一位不为0，后面的随意)
\.\d*[1-9]   ：小数部分(小数点最后一位不为0，中间的随意)
0\.\d*[1-9]  ：0.xxxx形式的小数
 

转载于:https://www.cnblogs.com/dy-debug/p/8057792.html

SAP-ABAP-字符串操作示例解析
baidu_35680696的博客
05-28 2610
在ABAP的开发中会经常遇到需要对字符串进行操作的地方，ABAP字符串处理方式丰富多样，以下是几种常见的处理方式，按照功能分类进行归纳并且会有实例进行展示：
ABAP字符串处理
Happy_girl的专栏
06-01 1691
1、字符串移位代码块语法遵循标准markdown代码，例如：SHIFT <c> [BY <n> PLACES] [<modes>] <modes>: --空白，字符串往左移一位 --LEFT，字符串往左移n位 --right，字符串往右移n位。例如： 结果：ABCD123 CD1232、字符串移除SHIFT c LEFT DELETING LEADING c1 SHIFT c RIGHT DE
判断一个字符串或字符串中的一个字符是否为数字类型
03-22
有安全性、快捷、方便等不同的方式来判断一个字符或者一个字符串是否为整数类型。
SAP ABAP判断字符串中的数字案例学习
m0_45846097的博客
03-20 793
SAP ABAP判断字符串中的数字案例学习
ABAP判断字符串是否为数字
weixin_44911062的博客
09-22 3869
需求：批导一个CHAR类型的字段，字段由数字+符号组成，如：（1，2，3，4），要求在上载的时候检查数据是否都为数字，且逗号为英文逗号 DATA(l_value) = '2，2,1 ,1'."字段 SPLIT l_value AT ',' INTO TABLE DATA(lt_split)."用英文符号,拆分成多个 LOOP AT lt_split INTO DATA(ls_split). IF cl_abap_matcher=>matches( pattern = '^(-?[
ABAP 判断字符串中是否全部为数字的方法
yiyuzz的博客
03-20 1万+
判断字符串的数据类型，可以使用函数NUMERIC_CHECK， 使用方法也很简单 如果是纯数字 没有小数点，这么判断是可以的（注意NUMC是会自动补0的，仅用于判断类型没问题），但是如果有小数就会变成CHAR 还有另一种方法 IFcl_abap_matcher=>matches( pattern='^(-?[1-9]\d*(\.\d*[1-9])?)|(-?0\.\...
ABAP常用字符串操作
03-24
### ABAP常用字符串操作知识点详解 #### 一、字符串连接 在ABAP中，字符串连接是一种常见的操作方式，用于将两个或多个字符串合并成一个新的字符串。实现字符串连接的方法主要是通过`CONCATENATE`语句。 **语法...
如何在abap程序以及bw转换例程判断字段是否为数字(带小数位)
weixin_42102153的博客
01-09 1505
背景：最近项目上有个erp系统非SAP的，所以很多字段格式非常的乱，讲究的就是一个随意所以在运行计算逻辑的时候，需要将一个字段里面既有数值，也有文本的这样我们就需要把文本直接赋值为0，统一改成数值类型话不多说，了解需求之后，我们来看下SAP能用几中解决方案处理该问题。
SAP ABAP 判断字符串是否能转成整数、小数、其他字符串
csucoder_zone的博客
06-30 2540
FUNCTIONzhy_fm_check_dic. *"---------------------------------------------------------------------- *"*"本地接口： *"IMPORTING *"VALUE(INPUT)TYPESTRING *"EXPORTING *"VALUE(E_TYPE)TYPEZSTR_TYPE *"EXCEPTIONS *"NO_INPUT *"--------------...
ABAP中正则表达式的简单使用
03-01
ABAP中正则表达式的简单使用
ABAP 如何快速判断字符串是否是数值（整数和小数）
weixin_59431376的博客
03-03 393
NUMERIC_CHECK 会把小数识别成字符串，所以这个方法不好。WRITE: / LV_CHAR, ' 不是有效的数值'.WRITE: / LV_CHAR, ' 是整数'.WRITE: / LV_CHAR, ' 是小数'.
ABAP 判断数字大杂烩
'尤其是十月的风'的博客
06-07 4830
经常会在开发中判断输入的字串是否为数字的情况，比如上载文件中如果有金额、数量的时候，如果不做判断就直接将非数字的字串赋值给quan类型的变量会导致dump。下面将数字的判断方式做一下汇总： 1. 先来个最简单的 使用SPLIT通过‘.’分割，然后判断后面的部分是否大于0 DATA LV_ISINTEGER TYPE CHAR20. DATA INTEGER TYPE CHAR20. DATA DECIMAL TYPE CHAR20. "判断数量是否是小数 LV_ISINTEGER = GS_DATA-ME
判断字符串是否为数字
Leo Tin's Blog
03-21 1156
DATA:alpha(10) type c VALUE '0123456789 ' . DATA:str(5) type c VALUE '11' . if CL_ABAP_MATCHER=>MATCHES( PATTERN = '^{0,20}[.,]{0,1}{0,10}$' TEXT = str ) = ABAP_TRUE . write : 'true' . else .
abap判断是否为整数
李威威wiwi的博客
03-26 572
简单检查→IS NUMERIC（可能误判12.3最安全方式→转换为I严格匹配→ 使用正则表达式根据具体需求选择合适的方法！🚀。
ABAP数字类型合法性检查函数NUMERIC_CHECK
热门推荐
少年休闲海
06-30 1万+
通过 function module 检查字符串是否为数字并添加前置辅助零 程序代码： DATA:c TYPE c length 3 VALUE ’345′, n TYPE n LENGTH 5, type TYPE dd01v-datatype. CALL FUNCTION ‘NUMERIC_CHECK’ EXPORTING string_in 
ABAP 正则表达式检测
GAVIN
03-11 1917
DATA: matcher TYPE REF TO cl_abap_matcher, match TYPE C LENGTH 1. matcher = cl_abap_matcher=>create( pattern = '[0-9a-zA-Z]{1,18}$' TEXT = '000012345删除' ). match = matcher->match( ). 附：常用正则表达式 1.由数字、26个英文字母或者下划线组成的字符串: ^[.
正则表达式判断字符串是否为数字
ChampaignWolf的专栏
09-14 3073
IF cl_abap_matcher=&gt;matches( pattern = '^(-?[1-9]\d*(\.\d*[1-9])?)|(-?0\.\d*[1-9])$' text = '1.01' ) = abap_true. WRITE '数字'. ELSE. WRITE '非数字'. ENDIF.   -?　　　　　　 ：负号 [1-9]\d* ...
ABAP中正则表达式的简单使用 --- 转自老白的博客 Barry.bai
cuduo0053的博客
02-23 254
在一个论坛上面看到有人在问正则表达式的问题，特举例简单说明一下。另外，REPLACE也支持REGEX关键字。最后：只能是ECC6或者更高版本才可以(ABAP supports POSIX regular expressions ...
abap 补充字符串前导0 以补满总共10位字符长度 字段本身长度40位
最新发布
04-01
<think>好的，我需要帮助用户在ABAP中实现字符串前导补零，总长度达到10位，且字段长度是40。首先，我得回顾一下ABAP中处理字符串的相关函数和语句。 用户提到要填充前导零，所以应该使用前导零的填充方法。ABAP中有几种处理字符串的方式，比如使用CONVERSION_EXIT_ALPHA_INPUT函数，或者使用字符串函数和操作符。 我记得CONVERSION_EXIT_ALPHA_INPUT这个函数通常用于物料编号等需要前导零的情况。它会自动在输入时补零，输出时去掉前导零。这可能是一个直接的方法。例如，输入字符串'123'，使用这个函数后，如果目标长度是10，就会变成'0000000123'。不过需要注意，这个函数是否适用于任意字符串，还是仅限于特定类型的字段，比如数字类型。如果用户的原始数据是纯数字的，这个函数很合适；如果是字母数字混合的可能需要其他方法。 另外，ABAP中的WRITE语句可以使用NO-ZERO选项，但这里需要填充零，可能需要使用TO语句或者格式选项。例如，WRITE lv_str TO lv_padded USING EDIT MASK '=========='. 但不确定是否正确。 还有一种方法是使用字符串操作，比如计算当前字符串长度，然后用0填充到剩余长度。STRLEN函数可以获取字符串的实际长度（不包含尾部空格），然后使用CONCATENATE或者字符串表达式来拼接前导零。例如，lv_padded = repeat( '0', 10 - strlen( lv_str ) ) && lv_str. 但ABAP中是否有REPEAT函数？或者需要用其他方式生成前导零。 或者，可以使用SHIFT RIGHT命令，结合ADDING '0'，但这可能需要将字符串转换为数值类型，比如将字符串转换为数字，再输出为字符，自动补零。例如，如果原始字符串是数字类型，可以先将它转换为数字，再使用WRITE语句输出到字符变量，指定长度10，并补零。例如： DATA lv_num TYPE n LENGTH 10. lv_num = lv_str. WRITE lv_num TO lv_padded LEFT-JUSTIFIED. 但这里可能需要确认数据类型是否匹配。如果原始字符串包含非数字字符，这种方法会出错。 另外，用户提到字段长度是40，但需要填充到总长度10。可能用户的意思是目标字段的长度是40，但需要前导零填充到10位，剩下的30位如何处理？或者可能用户希望确保字符串总长度为10位，而字段声明为40字符，填充前导零后，后面可能有空格或其他内容？这里需要澄清，但根据问题描述，可能用户想要的是将字符串内容填充前导零到10位，而字段本身定义的是长度为40的字符字段，所以填充后的字符串长度为10，后面可能有空格，或者需要将整个字段填充到40位？但问题描述有点模糊。可能需要确认，但根据问题中的“总长度达到10位字符”，所以目标是将字符串内容变为10位，前导补零，不管字段长度是40，只要内容部分是前导零填充到10位即可。 可能的解决方案： 方法1：使用CONVERSION_EXIT_ALPHA_INPUT函数。例如： DATA lv_str TYPE string VALUE '123'. DATA lv_padded TYPE c LENGTH 40. CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT' EXPORTING input = lv_str IMPORTING output = lv_padded. 但需要注意，这个函数是否将结果填充到输入的参数长度，或者是否有其他限制。例如，如果lv_padded是40位，那么转换后的结果可能填充到40位的前导零？或者，该函数通常用于固定长度的字段，比如10位，所以可能需要先将lv_padded定义为长度10，然后再存储到40位字段中？但用户需要总长度为10位，所以可能需要将结果截断或填充到10位，然后赋给40位字段，此时右侧会有空格。 例如，假设字段lv_padded是CHAR40，那么如果转换后的字符串是10位，那么lv_padded会是前10位是补零后的字符串，后面30位是空格。这可能符合要求吗？或者用户希望整个40位字段都被填充到前导零，但总长度为40？这点需要明确。但问题明确说明“总长度达到10位字符”，所以可能用户希望内容部分（即左边开始的10位）是补零后的结果，剩下的30位可以是空格或其他内容，但通常ABAP中CHAR字段会用空格填充剩余部分。 方法2：使用字符串操作函数。例如，使用STRLEN计算原字符串长度，然后生成前导零。例如： DATA lv_original TYPE string VALUE 'ABC'. DATA lv_length TYPE i. DATA lv_padded TYPE c LENGTH 40. lv_length = strlen( lv_original ). IF lv_length < 10. lv_padded = |{ lv_original ALPHA = IN }|. " 可能需要使用其他方法 " 或者手动生成前导零 lv_padded = repeat( val = '0' occ = 10 - lv_length ) && lv_original. ELSE. lv_padded = lv_original. ENDIF. 但ABAP中没有内置的REPEAT函数，所以需要手动构造前导零。或者，可以使用以下方法： DATA lv_zeros TYPE string. lv_zeros = '0000000000'. " 10个零 lv_padded = lv_zeros+0(10 - lv_length) && lv_original. 这里，假设lv_original的长度不超过10。例如，如果lv_original长度是3，那么截取lv_zeros的前7位（10-3=7），然后连接原字符串，得到7个0加3位，总长度10。 但需要注意的是，如果原字符串长度超过10，可能需要截断。或者按照用户需求，如果原长度超过10，是否保持原样？或者是否需要截断到10位？这需要用户明确，但根据问题描述，用户可能希望总长度为10，所以原字符串如果超过的话可能需要处理，但问题可能更关注补零的情况。 另外，如果原字符串包含前导空格或其他字符，是否需要处理？例如，原字符串是' 123'，是否需要保留这些空格？或者是否需要先去除前导空格再补零？这可能需要根据用户的具体需求调整，但问题中没有说明，所以假设原字符串不需要处理，直接补零到总长度10。 因此，步骤可能是： 1. 获取原字符串长度。 2. 计算需要补零的数量：10 - 原长度。 3. 生成相应的前导零字符串。 4. 连接前导零和原字符串。 5. 将结果赋给长度为40的字段，前面是补零后的10位，后面是空格。 例如，原字符串是'ABC'，长度3，补7个零，得到'0000000ABC'，共10位，然后赋给lv_padded（C40），则前10位是补零后的字符串，后面30位是空格。 另一种方法是使用WRITE语句的格式选项。例如： DATA lv_str TYPE c LENGTH 40 VALUE '123'. DATA lv_padded TYPE c LENGTH 40. WRITE lv_str TO lv_padded LEFT-JUSTIFIED. WRITE lv_str TO lv_padded USING NO EDIT MASK '0000000000'. " 不确定是否正确 或者使用格式化输出，比如： WRITE lv_str TO lv_padded USING EDIT MASK 'AAAAAAAAAA'. " 这可能不适用 或者更简单的方式，使用数值类型转换。如果原字符串是数字，可以转换为n类型，例如： DATA lv_num TYPE n LENGTH 10. lv_num = lv_str. lv_padded = lv_num. 这会自动将数字补前导零到10位，然后赋给lv_padded，但要求lv_str是纯数字，否则会出错。如果原字符串包含非数字字符，这种方法不可行。 因此，综合来看，最可靠的方法可能是手动构造前导零，特别是当原字符串可能包含非数字字符时。例如： DATA: lv_original TYPE string, lv_padded TYPE c LENGTH 40. lv_original = 'ABC'. " 示例数据 lv_padded = |{ lv_original ALPHA = IN }|. " 这个可能仅适用于数字字符串？ 或者，如果原字符串是数字，可以使用CONVERSION_EXIT_ALPHA_INPUT函数，否则需要手动处理。 如果用户需要处理任意字符串（包括非数字字符），则必须手动填充前导零。例如： DATA: lv_original TYPE string, lv_length TYPE i, lv_zeros TYPE string VALUE '0000000000', lv_padded TYPE c LENGTH 40. lv_original = 'ABCDEFG'. lv_length = strlen( lv_original ). IF lv_length < 10. lv_padded = lv_zeros(10 - lv_length) && lv_original. ELSE. lv_padded = lv_original. ENDIF. 但ABAP中子字符串的语法是否正确？例如，lv_zeros(10 - lv_length)可能应该写成lv_zeros+0(10 - lv_length)。是的，正确的子字符串截取方式是用+offset(length)，例如： lv_zeros+0(10 - lv_length) 会从位置0开始，截取长度为10 - lv_length的部分。 因此，正确的代码应该是： lv_padded = lv_zeros+0(10 - lv_length) && lv_original. 但需要确保10 - lv_length不为负数，所以应该添加条件判断lv_length <=10。如果原字符串长度超过10，可能需要截断，但根据用户需求，可能只需要补零到10位，所以当原长度超过10时，直接保留原样？或者截断到10位？用户问题中没有说明，但原问题要求总长度达到10位，所以假设当原字符串长度不足10时补零，超过的话可能不需要处理，或者用户可能需要截断，但需要明确。这里可能需要假设用户希望补零到10位，即使原字符串超过长度，但补零只能填充到10位，所以如果原字符串超过10位，可能无法满足，此时可能需要截断。但用户可能更希望补零到总长度10，所以原字符串必须不超过10位，否则如何处理？比如，用户需要确保输出是10位，不管原字符串长度如何，如果原字符串超过10位，可能只保留后10位？或者报错？这需要进一步澄清，但可能用户的应用场景中，原字符串长度不会超过10，所以代码可以不做处理，或者添加错误检查。 综上，最终的解决方案可能是： - 使用手动构造前导零的方法，当原字符串长度小于10时，补零到10位；否则保持原样或者截断。 例如： DATA: lv_input TYPE c LENGTH 40, " 输入的字段，可能内容不足10位 lv_output TYPE c LENGTH 40. lv_input = '12345'. " 计算输入的实际长度（去除尾部空格） DATA(lv_length) = strlen( lv_input ). IF lv_length > 10. " 处理超出情况，比如截断或报错，但用户可能希望补零到10，所以这里可能不需要处理，或者抛出异常 " 假设用户输入不会超过10位，否则可能需要截断 lv_output = lv_input. ELSE. " 补前导零 DATA(lv_zeros_needed) = 10 - lv_length. lv_output = |{ repeat( val = '0' times = lv_zeros_needed ) }{ lv_input }|. ENDIF. 但ABAP 7.40以上版本支持内联声明和字符串模板，而REPEAT函数可能需要使用其他方式，因为在ABAP中可能没有REPEAT函数。因此，替代方法是构造一个足够长的零字符串，然后截取需要的部分： DATA: lv_zeros TYPE string VALUE '00000000000000000000'. " 足够长的零字符串 然后，截取前lv_zeros_needed位： lv_output = lv_zeros+0(lv_zeros_needed) && lv_input. 这样，不管原字符串长度如何，只要lv_zeros足够长，就能正确截取需要的零的数量。 综合以上，正确的ABAP代码可能是： DATA: lv_input TYPE c LENGTH 40, " 输入字段，长度40 lv_output TYPE c LENGTH 40, lv_length TYPE i. lv_input = 'ABCDE'. " 示例输入 lv_length = strlen( lv_input ). " 获取实际长度，不含尾部空格 IF lv_length < 10. " 补前导零 lv_output = |{ '0000000000'(10 - lv_length) }{ lv_input }|. " 使用固定零字符串截取所需部分 ELSE. lv_output = lv_input. ENDIF. 这里，'0000000000'是一个10位的零字符串，然后根据需要的数量截取前(10 - lv_length)位。例如，如果lv_length是5，那么截取前5位零，然后拼接原字符串，总长度10。 或者更明确的写法： CONSTANTS lc_zeros TYPE string VALUE '0000000000'. lv_output = lc_zeros+0(10 - lv_length) && lv_input. 这样就能正确生成前导零。 此外，如果原字符串中有尾部空格，strlen函数会忽略，所以如果输入字段是类型C，尾部可能包含空格，但strlen返回的是实际长度（到最后一个非空格字符）。例如，如果输入是'ABC '（后面有空格），strlen会返回3，所以补7个零，得到'0000000ABC '，但总长度可能超过10？或者，当拼接时，原字符串中的尾部空格会被保留，导致总长度超过10？这可能需要处理。 例如，假设输入是类型C LENGTH 40，其中存储'ABC '（有效长度3，后面是空格），strlen返回3，补7个零，拼接后是'0000000ABC '，总长度是7 + 3（有效字符） + 空格？或者原字符串中的空格会被保留吗？此时，拼接后的字符串长度是10，因为前面补了7个零，然后加上原字符串的有效部分（3个字符），总长度10？或者原字符串的有效长度加上补零后的长度？ 可能的问题：当输入字符串中有尾部空格时，strlen返回的是到最后一个非空格字符的位置。例如，输入是'ABC '，strlen返回3，所以补7个零，拼接后的字符串是'0000000ABC'，总长度10，而原字符串中的尾部空格会被忽略。这可能符合用户的需求，即只处理实际内容部分，忽略尾部空格。 因此，上述代码可以正确处理这种情况。 现在，关于字段长度的问题，用户希望输出字段是长度40，但内容部分前10位是补零后的字符串，后面是空格。这在ABAP中是自动处理的，因为当将字符串赋给固定长度的字符变量时，右侧会用空格填充。例如，lv_output定义为C LENGTH 40，那么将'0000000ABC'（长度10）赋给它后，后面30位会用空格填充，但内容的前10位是正确的补零后的字符串，满足用户需求。 因此，最终的解决方案是： 使用手动补零的方法，计算原字符串的有效长度，补足前导零，使总长度达到10位，然后将结果存储到长度为40的字段中，后面自动填充空格。 总结步骤： 1. 获取输入字符串的有效长度（使用STRLEN函数）。 2. 计算需要补零的数量：10 - 有效长度。 3. 如果有效长度小于10，补相应数量的前导零。 4. 将结果赋给长度为40的字段，右侧自动填充空格。 示例代码： DATA: lv_input TYPE c LENGTH 40 VALUE '12345', " 示例输入 lv_output TYPE c LENGTH 40. DATA(lv_length) = strlen( lv_input ). IF lv_length < 10. lv_output = |{ '0000000000'+0(10 - lv_length) }{ lv_input }|. ELSE. lv_output = lv_input. ENDIF. 这样，当lv_input是'12345'（长度5），lv_output的前10位是'0000012345'，后面30位是空格。 或者，使用CONVERSION_EXIT_ALPHA_INPUT函数，如果输入是数字字符串： CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT' EXPORTING input = lv_input IMPORTING output = lv_output. 这会自动补前导零，但仅适用于数字字符串。例如，输入'123'变成'0000000123'。但如果输入包含非数字字符，函数可能会出错或保留原样，所以需要根据输入类型选择方法。 因此，如果用户的字符串是数字类型，推荐使用CONVERSION_EXIT_ALPHA_INPUT；否则，使用手动补零的方法。</think>在ABAP中实现字符串前导补零至10位长度且存储到40位字段，可通过以下两种方法实现： ### 方法1：手动补零（适用于任意字符） ```abap DATA: lv_input TYPE c LENGTH 40 VALUE 'ABCDE', " 原始字符串 lv_output TYPE c LENGTH 40. " 输出字段 DATA(lv_length) = STRLEN( lv_input ). " 获取实际有效长度[^3] IF lv_length < 10. " 生成前导零部分（截取10位零字符串中所需长度） lv_output = |{ '0000000000'+0(10 - lv_length) }{ lv_input }|. ELSE. lv_output = lv_input. " 若长度≥10则直接赋值 ENDIF. ``` 此方法通过字符串截取和拼接实现前导补零，$lv_output$ 的前10位为补零后的字符串，剩余30位自动填充空格[^4]。 ### 方法2：使用标准函数（仅限数字字符） ```abap DATA: lv_input TYPE c LENGTH 40 VALUE '12345', " 需为纯数字 lv_output TYPE c LENGTH 40. CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT' EXPORTING input = lv_input IMPORTING output = lv_output. ``` 此函数自动为数字字符串补前导零至字段定义长度（需确保输入为数字，否则可能异常）[^1]。 ### 关键点说明 1. **有效长度计算**：使用$STRLEN$获取字符串实际长度（忽略尾部空格）[^3]。 2. **字段对齐**：结果字段为CHAR40类型，补零后的字符串左对齐，右侧自动填充空格。 3. **数值验证**：若使用函数$CONVERSION_EXIT_ALPHA_INPUT$，需确保输入为数值型字符串。
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

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

抵扣说明：

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

余额充值