字符串加法(判断序列号是否连续)

最新推荐文章于 2023-04-18 15:16:20 发布
最新推荐文章于 2023-04-18 15:16:20 发布
阅读量1.7k 收藏 1
点赞数
分类专栏： SAP ABAP
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/yuqinying112/article/details/9253057
版权
 字符串不能整体做加法 但是我们可以模拟加法
字符集就是 0 1 2 3 4 5 6 7 8 9 A B C D E F G …… Z （按顺序排列）
你可以认为这是一个35进制的数字
然后在最后1位+1 如果不是Z 就得到后一位数字
（比如 2 + 1 = 3，9 + 1 = A ，X + 1 = Y，Y + 1 = Z 我相信你们要求的相邻也是这样的顺序）
如果最后一位是Z ， 那+1就等于 0了， 往前1位加一 （做进位）
规则也是这样的，把进位做完了以后，这个字符串的+1操作就结束了。 

*&---------------------------------------------------------------------*
*& Report  ZIAN01
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*

REPORT  zian01 .


TYPE-POOLS :slis .

PERFORM getdata .

*&---------------------------------------------------------------------*
*&      Form  getdata
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
FORM getdata .
   DATA : BEGIN  OF  line ,
    sernr  LIKE objk -sernr ,
     END  OF  line .
   DATA :itab  LIKE  TABLE  OF  line  WITH  HEADER  LINE .
   line -sernr  =  '12348' .
   APPEND  line  TO itab .
   line -sernr  =  '12350' .
   APPEND  line  TO itab .
   line -sernr  =  '12351' .
   APPEND  line  TO itab .
   line -sernr  =  '12352' .
   APPEND  line  TO itab .
   line -sernr  =  '12356' .
   APPEND  line  TO itab .
   line -sernr  =  '12357' .
   APPEND  line  TO itab .
   line -sernr  =  '12358' .
   APPEND  line  TO itab .
   line -sernr  =  '12360' .
   APPEND  line  TO itab .
   line -sernr  =  '12361' .
   APPEND  line  TO itab .

   DATA :s_sernr  TYPE string .
   DATA :n1  TYPE  i .
  n1  =  0 .
sort itab by sernr.
   LOOP  AT itab .
     DATA :  i  TYPE  i , len  TYPE  i .
     DATA : s_forward  TYPE  i .
     i  =  1 .
    len  =  0 .
    s_forward  =  1 .
     DATA :serialitem  TYPE string .
     DATA :nextserial  TYPE string .
     DATA :flag  TYPE  i .
    flag  =  0 .
    serialitem  = itab -sernr .


     DATA : s1  TYPE string , s2  TYPE string .
     DATA : itablen  TYPE  i .
    itablen  =  lines ( itab  ) .

     IF itablen  =  1 .
      s_sernr  = serialitem .    "只有一条序列号
     ENDIF .
     IF itablen >  1 .    "有多个序列号
       IF n1  =  1  AND serialitem  = nextserial .   "循环到第二个数据并且这个数据和前第一个数据算出来的下一个序列号相等
        s1  = s2 .
       ENDIF .
       IF n1  =  1  AND serialitem <> nextserial .   "循环到第二个数据并且这个数据和前第一个数据算出来的下一个序列号不相等
        s1  = serialitem .
         CONCATENATE s_sernr s2   INTO s_sernr .
       ENDIF .
       IF n1 >  1  AND serialitem <> nextserial  AND n1 <> itablen  -  1 .  "循环到第二个序列号后面的序列号，并且当前序列号和上个序列号算出来的下个序列号不等并且不是最后一个序列号
         CONCATENATE s_sernr  ','  s1  '-' s2  INTO s_sernr .
        s1  = serialitem .
       ENDIF .
       IF n1  = itablen  -  1  AND serialitem  = nextserial . "如果是最后一个序列号并且最后一个序列号和倒数第二个序列号算出来的下一个序列号相等
        s2  = serialitem .
         CONCATENATE s_sernr  ',' s1  '-' s2  INTO s_sernr .
       ENDIF .
       IF n1  = itablen  -  1  AND serialitem <> nextserial . "如果是最后一个序列号并且最后一个序列号和倒数第二个序列号算出来的下一个序列号不相等
         CONCATENATE s_sernr  ',' s1  '-' s2  ',' serialitem  INTO s_sernr .
       ENDIF .
     ENDIF .

     "判断字符串是不是全是‘Z''，如果全是'Z'进位1
    len  =  strlen ( serialitem  ) .
     DATA :zflag  TYPE  i , t  TYPE  i , zchar  TYPE  c .
     DATA : zstring  TYPE string .
    zstring  =  '' .
    zflag  =  0 .
    t  =  0 .
     WHILE t < len .
      zchar  = serialitem+t ( 1 ) .
       CONCATENATE zstring  'Z'  INTO zstring .
      t  = t +  1 .
     ENDWHILE .

     IF zstring  = serialitem .  "如果字符串是全'Z'，则进位1，后补0
      t  =  0 .
      zstring  =  '1' .
       WHILE t < len .
         CONCATENATE zstring  '0'  INTO zstring .
        t  = t +  1 .
       ENDWHILE .
      nextserial  =  zstring .
     ENDIF .

     WHILE   i <= len   AND s_forward  =  1 .
       DATA :strstart  TYPE string , strmid  TYPE string , strend  TYPE string .
       DATA :endchar  TYPE  c .
       DATA :point  TYPE  i , p1  TYPE  i , n  TYPE  i .
      point  = len  -  i .
      p1  = point +  1 .
      n  =  i  -  1 .
      endchar  = serialitem+point ( 1 ) .
       IF endchar <>  'Z' .    "如果字符不为’Z‘’
        s_forward  =  0 .    "s_forward为0则不进行while循环了
        strstart  = serialitem+0 (point ) .
         IF flag  =  0 .           "flag为0表示不需要进位加 1
          strend  = serialitem+p1 (n ) .
           CASE endchar .
             WHEN  '0' .
               CONCATENATE strstart  '1' strend  INTO nextserial .
             WHEN  '1' .
               CONCATENATE strstart  '2' strend  INTO nextserial .
             WHEN  '2' .
               CONCATENATE strstart  '3' strend  INTO nextserial .
             WHEN  '3' .
               CONCATENATE strstart  '4' strend  INTO nextserial .
             WHEN  '4' .
               CONCATENATE strstart  '5' strend  INTO nextserial .
             WHEN  '5' .
               CONCATENATE strstart  '6' strend  INTO nextserial .
             WHEN  '6' .
               CONCATENATE strstart  '7' strend  INTO nextserial .
             WHEN  '7' .
               CONCATENATE strstart  '8' strend  INTO nextserial .
             WHEN  '8' .
               CONCATENATE strstart  '9' strend  INTO nextserial .
             WHEN  '9' .
               CONCATENATE strstart  'A' strend  INTO nextserial .
             WHEN  'A' .
               CONCATENATE strstart  'B' strend  INTO nextserial .
             WHEN  'B' .
               CONCATENATE strstart  'C' strend  INTO nextserial .
             WHEN  'C' .
               CONCATENATE strstart  'D' strend  INTO nextserial .
             WHEN  'D' .
               CONCATENATE strstart  'E' strend  INTO nextserial .
             WHEN  'E' .
               CONCATENATE strstart  'F' strend  INTO nextserial .
             WHEN  'F' .
               CONCATENATE strstart  'G' strend  INTO nextserial .
             WHEN  'G' .
               CONCATENATE strstart  'H' strend  INTO nextserial .
             WHEN  'H' .
               CONCATENATE strstart  'I' strend  INTO nextserial .
             WHEN  'I' .
               CONCATENATE strstart  'J' strend  INTO nextserial .
             WHEN  'J' .
               CONCATENATE strstart  'K' strend  INTO nextserial .
             WHEN  'K' .
               CONCATENATE strstart  'L' strend  INTO nextserial .
             WHEN  'L' .
               CONCATENATE strstart  'M' strend  INTO nextserial .
             WHEN  'M' .
               CONCATENATE strstart  'N' strend  INTO nextserial .
             WHEN  'N' .
               CONCATENATE strstart  'O' strend  INTO nextserial .
             WHEN  'O' .
               CONCATENATE strstart  'P' strend  INTO nextserial .
             WHEN  'P' .
               CONCATENATE strstart  'Q' strend  INTO nextserial .
             WHEN  'Q' .
               CONCATENATE strstart  'R' strend  INTO nextserial .
             WHEN  'R' .
               CONCATENATE strstart  'S' strend  INTO nextserial .
             WHEN  'S' .
               CONCATENATE strstart  'T' strend  INTO nextserial .
             WHEN  'T' .
               CONCATENATE strstart  'U' strend  INTO nextserial .
             WHEN  'U' .
               CONCATENATE strstart  'V' strend  INTO nextserial .
             WHEN  'V' .
               CONCATENATE strstart  'W' strend  INTO nextserial .
             WHEN  'W' .
               CONCATENATE strstart  'X' strend  INTO nextserial .
             WHEN  'X' .
               CONCATENATE strstart  'Y' strend  INTO nextserial .
             WHEN  'Y' .
               CONCATENATE strstart  'Z' strend  INTO nextserial .
           ENDCASE .
         ELSE .         "flag为 1 需要进位加 1 ，如123Z 进位变为1240
           DATA : m  TYPE  i .
           m  =  0 .
           WHILE  m <  i  -  1 .
             CONCATENATE strend  '0'  INTO strend .
             m  =  m +  1 .
           ENDWHILE .

           CASE endchar .
             WHEN  '0' .
               CONCATENATE strstart  '1' strend  INTO nextserial .
             WHEN  '1' .
               CONCATENATE strstart  '2' strend  INTO nextserial .
             WHEN  '2' .
               CONCATENATE strstart  '3' strend  INTO nextserial .
             WHEN  '3' .
               CONCATENATE strstart  '4' strend  INTO nextserial .
             WHEN  '4' .
               CONCATENATE strstart  '5' strend  INTO nextserial .
             WHEN  '5' .
               CONCATENATE strstart  '6' strend  INTO nextserial .
             WHEN  '6' .
               CONCATENATE strstart  '7' strend  INTO nextserial .
             WHEN  '7' .
               CONCATENATE strstart  '8' strend  INTO nextserial .
             WHEN  '8' .
               CONCATENATE strstart  '9' strend  INTO nextserial .
             WHEN  '9' .
               CONCATENATE strstart  'A' strend  INTO nextserial .
             WHEN  'A' .
               CONCATENATE strstart  'B' strend  INTO nextserial .
             WHEN  'B' .
               CONCATENATE strstart  'C' strend  INTO nextserial .
             WHEN  'C' .
               CONCATENATE strstart  'D' strend  INTO nextserial .
             WHEN  'D' .
               CONCATENATE strstart  'E' strend  INTO nextserial .
             WHEN  'E' .
               CONCATENATE strstart  'F' strend  INTO nextserial .
             WHEN  'F' .
               CONCATENATE strstart  'G' strend  INTO nextserial .
             WHEN  'G' .
               CONCATENATE strstart  'H' strend  INTO nextserial .
             WHEN  'H' .
               CONCATENATE strstart  'I' strend  INTO nextserial .
             WHEN  'I' .
               CONCATENATE strstart  'J' strend  INTO nextserial .
             WHEN  'J' .
               CONCATENATE strstart  'K' strend  INTO nextserial .
             WHEN  'K' .
               CONCATENATE strstart  'L' strend  INTO nextserial .
             WHEN  'L' .
               CONCATENATE strstart  'M' strend  INTO nextserial .
             WHEN  'M' .
               CONCATENATE strstart  'N' strend  INTO nextserial .
             WHEN  'N' .
               CONCATENATE strstart  'O' strend  INTO nextserial .
             WHEN  'O' .
               CONCATENATE strstart  'P' strend  INTO nextserial .
             WHEN  'P' .
               CONCATENATE strstart  'Q' strend  INTO nextserial .
             WHEN  'Q' .
               CONCATENATE strstart  'R' strend  INTO nextserial .
             WHEN  'R' .
               CONCATENATE strstart  'S' strend  INTO nextserial .
             WHEN  'S' .
               CONCATENATE strstart  'T' strend  INTO nextserial .
             WHEN  'T' .
               CONCATENATE strstart  'U' strend  INTO nextserial .
             WHEN  'U' .
               CONCATENATE strstart  'V' strend  INTO nextserial .
             WHEN  'V' .
               CONCATENATE strstart  'W' strend  INTO nextserial .
             WHEN  'W' .
               CONCATENATE strstart  'X' strend  INTO nextserial .
             WHEN  'X' .
               CONCATENATE strstart  'Y' strend  INTO nextserial .
             WHEN  'Y' .
               CONCATENATE strstart  'Z' strend  INTO nextserial .
           ENDCASE .
         ENDIF .
       ELSE .
        s_forward  =  1 .    "有 'Z''字符需要查找前一个字符
        flag  =  1 .
       ENDIF .
       i  =  i  +  1 .
     ENDWHILE .
    s2  = serialitem .
    n1  = n1 +  1 .
   ENDLOOP .

   SHIFT s_sernr  LEFT DELETING  LEADING  ',' .
   WRITE : 's_sernr'  ,s_sernr .
ENDFORM .                     "getdata*&---------------------------------------------------------------------*
Ian
关注
  • 0
    点赞
  • 踩
  • 1
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
专栏目录
算法题17 整数序列是否连续
在水一方
05-17 1937
题目：一个整数数列，元素取值可能是0~65535中的任意一个数，相同数值不会重复出现；0是例外，可以反复出现。 请设计一个算法，当你从该数列中随意选取5个数值，判断这5个数值是否连续相邻注意： 5个数值允许是乱序的。比如： 8 7 5 0 6 0可以通配任意数值。比如：8 7 5 0 6 中的0可以通配成9或者4 0可以多次出现。 分析：由于数列不允许重复，那么非0序列中n个元素中，如果最大值-最小值=n-1，那么数列有序，如果有0的序列，非0的最大值-非0最小值//********************
序列连续的序列检测（牛客网）
cabinGGG的博客
06-27 300
输入序列连续的序列检测
SQL 取出某个表序列号中不连续的数字
SoalChess的博客
12-26 1068
SQL 取出某个表序列号中不连续的数字 WITH table1(A) as (SELECT cast( xx as integer) FROM [dbo].[xxxxx] where xx like'010209%') ,t AS ( SELECT A, ROW_NUMBER() OVER(ORDER BY A) rn FROM table1 ) ,r A...
序列加法的讨论
rongyupan的博客
07-06 249
关于100+1:100*2的讨论 我们直观去想，会认为结果是：101、102、……300； 但是，实际结果却是：101、102、……200；共100列，上限是200而非300； 1:100*2：结果是1、2、……200； 1:100*2 +100：结果是1、2、……300； 也就是说，如果100放在左边，那么下限就会加上100；如果放在右边，上限会加上100。 比如100+1:100*2...
DP问题之最优加法序列
MagicScaring的博客
08-09 1667
题目:有一个由1..9组成的数字串.问如果将m个加号插入到这个数字串中.使得所形成的算术表达式的值最小?例如这个数字串为12345，加号数为1时，最小值就是123+45=168；加法数为2时，最小值就是12+34+5=51，加法数为3时，最小值为12+3+4+5=24。 解题思路： 先找到定量。这一题中的定量是什么呢?因为是添入加号,那么添完加号后,表达式的最后一定是个数字串,这就是定量.从这
【力扣算法】128-最长连续序列
ZeromaXHe的博客
06-12 2769
题目 给定一个未排序的整数数组，找出最长连续序列的长度。 要求算法的时间复杂度为 O(n)。 示例: 输入: [100, 4, 200, 1, 3, 2] 输出: 4 解释: 最长连续序列是 [1, 2, 3, 4]。它的长度为 4。 来源：力扣（LeetCode） 链接：https://leetcode-cn.com/problems/longest-consecutive-sequence ...
斐波那契数列，1 2 3 5 8......两种方式（JavaScript）
清平调、其N 的博客
10-10 2268
序列：1，2，3，5，8，13...。找出第20个数是多少?得出前20个数之和是多少？ 方法一:            var i=1, j=1,sum=0;            for(var k=0;k&lt;20;k++){                    j=j+i;                    i=j-i;                   sum=sum+i; ...
易语言原文密码序列号源码-易语言
06-13
易语言采用了“易懂”的命名规则，比如“取整”代表将数值四舍五入到整数，“字符串连接”用于合并两个或多个字符串等。在编写密码和序列号处理代码时，会频繁用到这些基本操作。 对于密码的处理，易语言提供了加密...
tc.rar_lisp
09-19
描述提到的功能是“CAD的字符串中数字加1或加任意步长”，这可能是用于自动更新图纸上的序列号或编号，例如在绘制多条相同的生产线、设备列表或建筑楼层时，能够快速连续地调整序号，提高工作效率。 LISP是一种动态...
C#数字+字母生成递增号
12-07
在C#中，可以使用`ToString()`方法将整数转换为字符串，`Convert.ToInt32()`或`int.Parse()`方法则用于将字符串转换为整数。 2. **位数控制**：为了确保生成的序列具有固定位数，你可以使用字符串的`PadLeft()`方法...
用MD5算法创建6位数字密码
07-12
1. 获取当前日期（如年月日或者只取日），并加上一个序列号或随机数，形成一个字符串作为MD5的输入。 2. 对该字符串进行MD5计算，得到16进制的32位摘要。 3. 选择摘要的一部分，比如前8位或后8位，确保这部分在所有...
PHP 数字左侧自动补0
10-30
`str_pad`函数接收四个参数：需要填充的原始字符串、期望的总长度、填充字符串和填充类型。`STR_PAD_LEFT`表示填充在左侧，`STR_PAD_RIGHT`表示填充在右侧，`STR_PAD_BOTH`表示同时在两侧填充。这个方法更加灵活，且...
java8 校验list里元素是连续的工具类
果酱 の 博客
04-18 5129
java8 校验list里元素是连续的工具类
记录js-判断一串数字数组，是否是连续的
奇想派
10-24 9578
场景 假如有一组数组，如[1,2,3,4,5,6]，可以看出这数组是连续的，那么如[1,2,3,5,6]，这串数组就不是连续的了，用js写判断方法 实现代码 //判断一串数字是否是连续的 function isContinuityNum(num){ let array=[]; if(num instanceo......
Java获取保证唯一的递增的序列号字符串
ywb201314的专栏
04-25 6302
Java /** * @return 形如 yyyyMMddHHmmssSSS-Z0000019558195832297 的(38位)保证唯一的递增的序列号字符串， * 主要用于数据库的主键，方便基于时间点的跨数据库的异步数据同步。 * 前半部分是currentTimeMillis，后半部分是nanoTime（正数）补齐20位的字符串， * 如果通过Sys
web前端常见面试题-js如何判断一组数据是否连续
weixin_41778380的博客
12-20 2354
当数组中出现连续的数字的时候以‘-’输出 原数组： [1,2,3,4,6,8,9,10] 期望结果： [“1-4”,6,“8-10”] // 代码如下 var a = [1, 2, 3, 4, 6, 8, 9, 10] var start = '' var newArr = [] a.forEach((item, index) => { if (item + 1 == a[index + ...
数组：判断一个数组中数值是否连续相邻
weixin_38108266的博客
08-21 1853
问题描述： 一个数组序列，元素取值可能是0--65535中的任意一个数，相同数值不会重复出现。0可以重复出现。当从该数组序列中随机选取5个数值，判断这5个数值是否连续相邻。 需要注意4点：  1.） 5个数值允许是乱序的，例如{8,7,5,0,6}  2.） 0可以通配任意数值，例如{8,7,5,0,6}中的0可以通配成9或4  3. ）0可以多次出现  4. ）全0算连续，只有一个非0算连续...
TCP序列号和确认号详解
热门推荐
webnumen的专栏
03-26 2万+
TCP序列号和确认号详解在网络分析中，读懂TCP序列号和确认号在的变化趋势，可以帮助我们学习TCP协议以及排查通讯故障，如通过查看序列号和确认号可以确定数据传输是否乱序。但我在查阅了当前很多资料后发现，它们大多只简单介绍了TCP通讯的过程，并没有对序列号和确认号进行详细介绍，结合实例的讲解就更没有了。近段时间由于工作的原因，需要对TCP的序列号和确认号进行深入学习，下面便是我学习后的一些知识点总结
ASSIGN COMPONENT <comp> OF STRUCTURE <s> TO <FS>.
01-17 1万+
可以用ASSIGN语句将字段串的特殊组件分配给字段符号，过程如下： 语法 ASSIGNCOMPONENTOFSTRUCTURETO. 系统将字符串的组件分配给字段符号 可以用 ASSIGN 语句将字段 串的特殊组 件分配给字 段符号，过 程如下： 语法 ASSIGN COMPONENT  OF STRUCTURE  TO . 系统将字符 串  的组件  分配给字段 符号 。 可
matlab字符串加法
最新发布
07-27
在MATLAB中，可以使用字符串加法来连接多个字符串。字符串加法使用加号（+）操作符来实现。当两个字符串相加时，它们将被连接在一起形成一个新的字符串。如果其中一个字符串是空字符串，则结果将是另一个非空字符串...

“相关推荐”对你有帮助么？

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

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

抵扣说明：

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

余额充值