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

最新推荐文章于 2023-04-18 15:16:20 发布
最新推荐文章于 2023-04-18 15:16:20 发布
阅读量1.7k 收藏 1
点赞数
CC 4.0 BY-SA版权
分类专栏： SAP ABAP
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.youkuaiyun.com/yuqinying112/article/details/9253057
本文介绍了一种在35进制字符集中模拟字符串加法的方法，字符集包括0-9及A-Z，通过特定规则实现字符串的进位加法运算。适用于序列号生成等场景。

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

 字符串不能整体做加法 但是我们可以模拟加法
字符集就是 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
关注
专栏目录
算法题17 整数序列是否连续
在水一方
05-17 2014
题目：一个整数数列，元素取值可能是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最小值//********************
序列加法的讨论
rongyupan的博客
07-06 298
关于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...
序列连续的序列检测（牛客网）
cabinGGG的博客
06-27 382
输入序列连续的序列检测
DP问题之最优加法序列
MagicScaring的博客
08-09 1779
题目:有一个由1..9组成的数字串.问如果将m个加号插入到这个数字串中.使得所形成的算术表达式的值最小?例如这个数字串为12345，加号数为1时，最小值就是123+45=168；加法数为2时，最小值就是12+34+5=51，加法数为3时，最小值为12+3+4+5=24。 解题思路： 先找到定量。这一题中的定量是什么呢?因为是添入加号,那么添完加号后,表达式的最后一定是个数字串,这就是定量.从这
【力扣算法】128-最长连续序列
ZeromaXHe的博客
06-12 3116
题目 给定一个未排序的整数数组，找出最长连续序列的长度。 要求算法的时间复杂度为 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 2446
序列：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; ...
java8 校验list里元素是连续的工具类
果酱 の 博客
04-18 5674
java8 校验list里元素是连续的工具类
ABAP 7.4新特性(三)： VALUE 操作符
热门推荐
Huiyang的博客
06-06 2万+
关于VALUE前面也提到过了，其主要是用来给一个结构、内表等对象初始化值。主要有下面三个方式： ...value dtype\#()  构造一个任意类型的初始值 ...value dtype\#( comp1 = a1 comp2 = a2 ....) 构造一个任意类型的结构体的初始值 ...value dtype\#( ( ...) (...) ... )...  构造一个任意类型的内表的
正则匹配判断电话号码是否真实、几连号、几顺序号
weixin_44698389的博客
01-15 4854
正则匹配判断电话号码是否真实、几连号、几顺序号 正则匹配 1.主要是从输入的字符串中匹配出满足条件的字符串，即判断是否为电话号码。 2.电话号码的连号和顺序号判断，主要是通过正则匹配式将相应的字符串匹配出来，再根据匹配出的字符串长度去判断其为几连号、几顺序号。 3.各大运营商截止到目前的号段： 移动号段：134(0-8)、135、136、137、138、139、147、148 联通号段：130、1...
jqgrid 怎么获取当前行序号_连续序号（No）构建实用技巧解读！
weixin_32204235的博客
12-24 522
经常实用Excel的亲，都很清楚A列的作用，一般情况下就是序号（No），其实对于序号（No）的填充也有很多实用技巧哦，例如自动填充序号（NO）、保持序号（No）的连续性等……一、普通序号（No）的填充。方法：在目标单元格的第1、2单元格中输入起始序号，例如1、2，选定第1、2单元格并双击填充柄，填充其它行。解读：用此方法填充时其他类必须有内容哦！暨自动填充有内容的行。二、序列方式...
Java 校验是否为连续的区间
鸟不拉诗
09-28 1401
工作中遇到需要校验是否为连续 给出示例 0 100 100 600 600 -1 从0到正无穷的连续区间。 使用-1代表无穷大 可以考虑使用二维数组array来存放数据，同样使用二维数组比较数据是最方便的。 可以找到规则 array[0][0]=0，第一个数据总是等于0 array[0][1]=array[1][0] array[1][1]=array[2][0]，从第二个数据开始，等于下一个的第一个数据，以此类推 array[2][1]=.
shell脚本实现把不连续的序号扩成连续
Ear_Goth的博客
04-11 739
#!/bin/bash#sh replace2.sh demo.txt demo2.txtdeclare -i olddeclare -i iold=0cat $1 | while read line; do arr=(${line// / })  for (( i = $old+1; i &lt; ${arr[0]}; i++ )); do echo ${i} &gt;&gt; $2 done...
数组-----判断一个数组中的数是否连续
weixin_39916039的博客
07-24 4767
Python模块实现字母数字序列号智能递增与校验
资源摘要信息:"Python模块idstring可用于创建和验证带校验位的字母数字序列号字符串，并提供智能递增功能。以下是对该模块详细知识点的说明。 一、Python模块概述 idstring是一个Python库，它允许开发者生成带有...
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

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

抵扣说明：

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

余额充值