一段文本数字 如何合并？

lostme02

2,2,1,1,1,1,5,1,1,1,1,1

如上，如果有两个相同的数字，比如这一段有两个 2 ，就将2个2合并，以后变成 如下格式

3,0,1,1,1,1,5,1,1,1,1,1

企鹅号525150138

.版本 2

.子程序 __启动窗口_创建完毕

输出调试文本 (出现相同替换 (“2,2,1,1,1,1,5,1,1,1,1,1”, 2))

.子程序 出现相同替换, 文本型
.参数 a, 文本型
.参数 合并的数字, 整数型
.局部变量 c, 文本型, , "0"
.局部变量 i, 整数型
.局部变量 a1, 文本型
.局部变量 a2, 文本型
.局部变量 text, 文本型


c ＝ 分割文本 (a, “,”, )
.计次循环首 (取数组成员数 (c), i)
    a1 ＝ c [i]
    .如果 (i ＜ 取数组成员数 (c))
        a2 ＝ c [i ＋ 1]
        .如果 (a1 ＝ a2 且 a1 ＝ “2”)
            输出调试文本 (666)
            text ＝ text ＋ 到文本 (到整数 (a1) ＋ 1) ＋ “,0,”
        .否则
            text ＝ text ＋ a1 ＋ “,”
        .如果结束

    .否则
        .如果 (取数组成员数 (c) ≠ i)
            text ＝ text ＋ a1 ＋ “,”
        .否则
            text ＝ text ＋ a1
        .如果结束

    .如果结束


.计次循环尾 ()
返回 (text)

白嫖之黑

没看懂操作。你的意思是有两个2，然后前面的2进1，后面的2归零。也就是前面的数+1.后面的数清零吗。还是咋地。

lostme02

lan枫 发表于 2020-3-6 07:56
没看懂操作。你的意思是有两个2，然后前面的2进1，后面的2归零。也就是前面的数+1.后面的数清零吗。还是咋 ...

有两个相同的数字， 其中一个递增1  另一个变成0.  2只是举例子。

白嫖之黑

lostme02 发表于 2020-3-6 07:58
有两个相同的数字， 其中一个递增1  另一个变成0.  2只是举例子。

如果是我理解的这样。那很简单。判断文本出现次数。如果真等于2次。那么替换子文本一次（递增）。再次替换子文本（归零）

幻月工作室

上次都来提问过，还没搞定么~

lostme02

lan枫 发表于 2020-3-6 08:02
如果是我理解的这样。那很简单。判断文本出现次数。如果真等于2次。那么替换子文本一次（递增）。再次替 ...

不是很理想，因为相同的数字 可能会有0-999，不能一个数字一个数字判断出现次数吧

lostme02

企鹅号525150138 发表于 2020-3-6 08:19
.版本 2

.子程序 __启动窗口_创建完毕

老哥代码有点问题，12位长度的数字 弄完成了19位了。最好是不需要输入 欲合并数字，代码自行判断任意相同数字就处理。一次 只合并两个数字。不是一次把所有的都合并掉

陈道友

用循环判断呗

走一回

1,1,1,1   算不算属于要合并的数呢? 按你的标准应该合并成 2,0,2,0   所以你的标准好像有问题,因为你只合并了最前面两个相同的数.