ABAP取字符串中的连续数字
2013-10-28 16:39
204 查看
尝试过用FM:PREPARE_STRING无法实现!
尝试过用SRELEN(Text)取长度的方法,繁琐!
后因为缜密思考,记录代码如下:
*&---------------------------------------------------------------------*
*& Report ZTEST_NUM
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*
REPORT ZTEST_NUM.
DATA : SENT TYPE STRING VALUE '中国人民银行02520321456-25支行'.
DATA : NUMS TYPE STRING VALUE '1234567890-'.
DATA : LEN TYPE I.
DATA : POS TYPE I.
DATA : RESULT TYPE STRING.
LEN = STRLEN( SENT ).
POS = 0.
WHILE POS LT LEN.
IF SENT+POS(1) CA NUMS.
CONCATENATE RESULT SENT+POS(1) INTO RESULT.
CONDENSE RESULT NO-GAPS.
ENDIF.
POS = POS + 1.
ENDWHILE.
WRITE : SENT.
WRITE : / RESULT.
运行结果:
少年休闲海-2013/10/28记录
尝试过用SRELEN(Text)取长度的方法,繁琐!
后因为缜密思考,记录代码如下:
*&---------------------------------------------------------------------*
*& Report ZTEST_NUM
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*
REPORT ZTEST_NUM.
DATA : SENT TYPE STRING VALUE '中国人民银行02520321456-25支行'.
DATA : NUMS TYPE STRING VALUE '1234567890-'.
DATA : LEN TYPE I.
DATA : POS TYPE I.
DATA : RESULT TYPE STRING.
LEN = STRLEN( SENT ).
POS = 0.
WHILE POS LT LEN.
IF SENT+POS(1) CA NUMS.
CONCATENATE RESULT SENT+POS(1) INTO RESULT.
CONDENSE RESULT NO-GAPS.
ENDIF.
POS = POS + 1.
ENDWHILE.
WRITE : SENT.
WRITE : / RESULT.
运行结果:
少年休闲海-2013/10/28记录
相关文章推荐
- 关于static const int可以在 声明时初始化的思考
- FFmpeg 2.1 发布
- php 备份和还原数据库
- 计算机网络笔试题
- 应用程序之间的启动
- 数据结构上机题目--MST
- 不要告诉我你懂margin,margin介绍
- php定时执行任务的几个方法
- 碧桃的夏季修剪技术
- 嵌入式之LINUX--C学生管理系统
- ORACLE DELETE & TRUNCATE 区别
- C#反射详解
- OCP-1Z0-053-V12.02-628题
- 安装SQL Server时出现在创建窗口句柄之前,不能在控件上调用 Invoke 或 BeginInvoke的错误解决办法
- 总结随笔
- SQL Server 事务隔离级别
- 清除messages
- 扁桃的栽培技术
- 数据结构上机题目--搜索
- 大数乘方取余