文本操作【找一串数字中有没有三个相连的数,每一个数字出现的次数】

魔仙明少 · 发表于 2014-3-23 13:35:24

找一串数字中有没有三个相连的数，三个相同的数
比如1298657456331298647154963216584
找出这串数字中有没有三个相连的数和相同的数
结果如：
正三顺：有    '456
倒三顺：有    '321
相同的数：9    ‘出现3次
               8    ’出现3次
               7    ‘出现2次

补充内容 (2014-3-23 13:40):
找三顺有个很烂的思路，比如直接在这一串数字中找123，没有的话继续找234，再找345，再找456这样一直找下去，这个思路可以用，但是不可取，是一个逻辑性很低的思路

riyuxiaozi · 发表于 2014-3-23 13:35:25

[e]
.版本 2
.支持库 spec

.程序集窗口程序集1

.子程序 _按钮1_被单击
.局部变量文本1, 文本型
.局部变量 m, 整数型
.局部变量 n, 整数型
.局部变量 k, 整数型
.局部变量数值1, 整数型, , "0"
.局部变量计数, 整数型
.局部变量标记1, 整数型

文本1 ＝ “1298657456331298647154963216584”
.计次循环首 (取文本长度 (文本1), m)
处理事件 ()
.如果真 (m ＞ 1 且 m ＜取文本长度 (文本1))
      .如果真 (寻找文本 (文本1, 到文本 (m － 1) ＋到文本 (m) ＋到文本 (m ＋ 1), , 假) ＞ -1)
         调试输出 (“正三顺: ” ＋到文本 (m － 1) ＋到文本 (m) ＋到文本 (m ＋ 1))
      .如果真结束
      .如果真 (寻找文本 (文本1, 到文本 (m ＋ 1) ＋到文本 (m) ＋到文本 (m － 1), , 假) ＞ -1)
         调试输出 (“倒三顺: ” ＋到文本 (m ＋ 1) ＋到文本 (m) ＋到文本 (m － 1))
      .如果真结束

.如果真结束

.计次循环尾 ()
计数＝ 0
.计次循环首 (10, n)
处理事件 ()
标记1 ＝ -1
.循环判断首 ()

      处理事件 ()
      标记1 ＝寻找文本 (文本1, 到文本 (n － 1), 标记1 ＋ 1, 假)
      .如果真 (标记1 ＞ -1)
         计数＝计数＋ 1
      .如果真结束

.循环判断尾 (标记1 ≠ -1)
调试输出 (到文本 (n － 1) ＋ “出现:” ＋到文本 (计数) ＋ “次”)
计数＝ 0

.计次循环尾 ()
[/e]