取出连续递增3次或以上的数字

易正易则

来自问答区的问题
https://bbs.125.la/forum.php?mod=viewthread&tid=14193402&extra=&page=1
@642643426
严格来讲那个最佳答案是不可以的，我加个文本是拿来测试错误的
后来调试看可以，就忘记加了一个文本的事情啦
这样应该可以啦，写法不一定很好，但是效果应该达到啦
出去拿个东西，就已经结帖了，所以发这里，也可以来讨论下。

123.e (3.36 KB, 下载次数: 26)

2018-7-10 14:22 上传

点击文件名下载附件

kyo9766

感谢分享，学习一下

易正易则

@yinghao2005
@yinghao2005    3次 3次
连续出现3次或以上才输出，2次的不算

yinghao2005

增加了递增递减和步进,和连续n个数字

  

子程序名	返回值类型	公开	备 注
_按钮1_被单击

变量名	类 型	静态	数组	备 注
返回数据	文本型		0

文本_取连续数字 (“21|20|16|15|14|13|11|10|8|7|6|4|3|2|1”, “|”, 返回数据, , -1)
调试输出 (返回数据)
清除数组 (返回数据)
文本_取连续数字 (, , 返回数据, , 1)
调试输出 (返回数据)

子程序名	返回值类型	公开	备 注
文本_取连续数字	整数型		返回连续N个以上数字总共多少组
参数名	类 型	参考	可空	数组	备 注
参数_文本	文本型				默认“01 02 03 04 06 07 08 10 11 13 14 15 16 20 21”
参数_分隔符	文本型				默认为英文空格" "
参数_返回数组	文本型				“01 02 03 04”“06 07 08”“13 14 15 16”“20 21”
参数_连续N个					默认为2
参数_步进					默认为1

变量名	类 型	静态	数组	备 注
数组	文本型		0
ii	整数型
循环次数	整数型
临时	文本型
分割	文本型		0

如果真 (是否为空 (参数_文本))
参数_文本 ＝ “01 02 03 04 06 07 08 10 11 13 14 15 16 20 21”
如果真 (是否为空 (参数_分隔符))
参数_分隔符 ＝ “ ”
如果真 (是否为空 (参数_连续N个))
参数_连续N个 ＝ 2
如果真 (是否为空 (参数_步进))
参数_步进 ＝ 1

数组 ＝ 分割文本 (参数_文本, 参数_分隔符, )
循环次数 ＝ 取数组成员数 (数组)
计次循环首 (循环次数, ii)
如果 (ii ＜ 循环次数)
如果 (到整数 (数组 [ii]) ＋ 参数_步进 ＝ 到整数 (数组 [ii ＋ 1]))
临时 ＝ 临时 ＋ 数组 [ii] ＋ 参数_分隔符


分割 ＝ 分割文本 (临时, 参数_分隔符, )
如果真 (取数组成员数 (分割) ≥ 1 ＋ 参数_连续N个 － 2)
临时 ＝ 临时 ＋ 数组 [ii]
加入成员 (参数_返回数组, 临时)
临时 ＝ “”



临时 ＝ 临时 ＋ 数组 [ii] ＋ 参数_分隔符
分割 ＝ 分割文本 (临时, 参数_分隔符, )
如果真 (取数组成员数 (分割) ≥ 2 ＋ 参数_连续N个 － 2)
加入成员 (参数_返回数组, 临时)
临时 ＝ “”

计次循环尾 ()
返回 (取数组成员数 (参数_返回数组))

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 返回数据, 文本型, , "0"<br /> <br /> 文本_取连续数字 (“21|20|16|15|14|13|11|10|8|7|6|4|3|2|1”, “|”, 返回数据, , -1)<br /> 调试输出 (返回数据)<br /> 清除数组 (返回数据)<br /> 文本_取连续数字 (, , 返回数据, , 1)<br /> 调试输出 (返回数据)<br /> <br /> <br /> .子程序 文本_取连续数字, 整数型, 公开, 返回连续N个以上数字总共多少组<br /> .参数 参数_文本, 文本型, 可空, 默认“01 02 03 04 06 07 08 10 11 13 14 15 16 20 21”<br /> .参数 参数_分隔符, 文本型, 可空, 默认为英文空格" "<br /> .参数 参数_返回数组, 文本型, 参考 可空 数组, “01 02 03 04”“06 07 08”“13 14 15 16”“20 21”<br /> .参数 参数_连续N个, , 可空, 默认为2<br /> .参数 参数_步进, , 可空, 默认为1<br /> .局部变量 数组, 文本型, , "0"<br /> .局部变量 ii, 整数型<br /> .局部变量 循环次数, 整数型<br /> .局部变量 临时, 文本型<br /> .局部变量 分割, 文本型, , "0"<br /> <br /> .如果真 (是否为空 (参数_文本))<br />     参数_文本 ＝ “01 02 03 04 06 07 08 10 11 13 14 15 16 20 21”<br /> .如果真结束<br /> .如果真 (是否为空 (参数_分隔符))<br />     参数_分隔符 ＝ “ ”<br /> .如果真结束<br /> .如果真 (是否为空 (参数_连续N个))<br />     参数_连续N个 ＝ 2<br /> .如果真结束<br /> .如果真 (是否为空 (参数_步进))<br />     参数_步进 ＝ 1<br /> .如果真结束<br /> <br /> 数组 ＝ 分割文本 (参数_文本, 参数_分隔符, )<br /> 循环次数 ＝ 取数组成员数 (数组)<br /> .计次循环首 (循环次数, ii)<br />     .如果 (ii ＜ 循环次数)<br />         .如果 (到整数 (数组 [ii]) ＋ 参数_步进 ＝ 到整数 (数组 [ii ＋ 1]))<br />             临时 ＝ 临时 ＋ 数组 [ii] ＋ 参数_分隔符<br />         .否则<br /> <br />             分割 ＝ 分割文本 (临时, 参数_分隔符, )<br />             .如果真 (取数组成员数 (分割) ≥ 1 ＋ 参数_连续N个 － 2)<br />                 临时 ＝ 临时 ＋ 数组 [ii]<br />                 加入成员 (参数_返回数组, 临时)<br />             .如果真结束<br />             临时 ＝ “”<br />         .如果结束<br /> <br />     .否则<br /> <br />         临时 ＝ 临时 ＋ 数组 [ii] ＋ 参数_分隔符<br />         分割 ＝ 分割文本 (临时, 参数_分隔符, )<br />         .如果真 (取数组成员数 (分割) ≥ 2 ＋ 参数_连续N个 － 2)<br />             加入成员 (参数_返回数组, 临时)<br />         .如果真结束<br />         临时 ＝ “”<br />     .如果结束<br /> <br /> .计次循环尾 ()<br /> 返回 (取数组成员数 (参数_返回数组))

yinghao2005

增加了递增递减和步进,和连续n个数字

  

子程序名	返回值类型	公开	备 注
_按钮1_被单击

变量名	类 型	静态	数组	备 注
返回数据	文本型		0

文本_取连续数字 (“21|20|16|15|14|13|11|10|8|7|6|4|3|2|1”, “|”, 返回数据, , -1)
调试输出 (返回数据)
清除数组 (返回数据)
文本_取连续数字 (, , 返回数据, , 1)
调试输出 (返回数据)

子程序名	返回值类型	公开	备 注
文本_取连续数字	整数型		返回连续N个以上数字总共多少组
参数名	类 型	参考	可空	数组	备 注
参数_文本	文本型				默认“01 02 03 04 06 07 08 10 11 13 14 15 16 20 21”
参数_分隔符	文本型				默认为英文空格" "
参数_返回数组	文本型				“01 02 03 04”“06 07 08”“13 14 15 16”“20 21”
参数_连续N个					默认为2
参数_步进					默认为1

变量名	类 型	静态	数组	备 注
数组	文本型		0
ii	整数型
循环次数	整数型
临时	文本型
分割	文本型		0

如果真 (是否为空 (参数_文本))
参数_文本 ＝ “01 02 03 04 06 07 08 10 11 13 14 15 16 20 21”
如果真 (是否为空 (参数_分隔符))
参数_分隔符 ＝ “ ”
如果真 (是否为空 (参数_连续N个))
参数_连续N个 ＝ 2
如果真 (是否为空 (参数_步进))
参数_步进 ＝ 1

数组 ＝ 分割文本 (参数_文本, 参数_分隔符, )
循环次数 ＝ 取数组成员数 (数组)
计次循环首 (循环次数, ii)
如果 (ii ＜ 循环次数)
如果 (到整数 (数组 [ii]) ＋ 参数_步进 ＝ 到整数 (数组 [ii ＋ 1]))
临时 ＝ 临时 ＋ 数组 [ii] ＋ 参数_分隔符


分割 ＝ 分割文本 (临时, 参数_分隔符, )
如果真 (取数组成员数 (分割) ≥ 1 ＋ 参数_连续N个 － 2)
临时 ＝ 临时 ＋ 数组 [ii]
加入成员 (参数_返回数组, 临时)
临时 ＝ “”



临时 ＝ 临时 ＋ 数组 [ii] ＋ 参数_分隔符
分割 ＝ 分割文本 (临时, 参数_分隔符, )
如果真 (取数组成员数 (分割) ≥ 2 ＋ 参数_连续N个 － 2)
加入成员 (参数_返回数组, 临时)
临时 ＝ “”

计次循环尾 ()
返回 (取数组成员数 (参数_返回数组))

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 返回数据, 文本型, , "0"<br /> <br /> 文本_取连续数字 (“21|20|16|15|14|13|11|10|8|7|6|4|3|2|1”, “|”, 返回数据, , -1)<br /> 调试输出 (返回数据)<br /> 清除数组 (返回数据)<br /> 文本_取连续数字 (, , 返回数据, , 1)<br /> 调试输出 (返回数据)<br /> <br /> <br /> .子程序 文本_取连续数字, 整数型, 公开, 返回连续N个以上数字总共多少组<br /> .参数 参数_文本, 文本型, 可空, 默认“01 02 03 04 06 07 08 10 11 13 14 15 16 20 21”<br /> .参数 参数_分隔符, 文本型, 可空, 默认为英文空格" "<br /> .参数 参数_返回数组, 文本型, 参考 可空 数组, “01 02 03 04”“06 07 08”“13 14 15 16”“20 21”<br /> .参数 参数_连续N个, , 可空, 默认为2<br /> .参数 参数_步进, , 可空, 默认为1<br /> .局部变量 数组, 文本型, , "0"<br /> .局部变量 ii, 整数型<br /> .局部变量 循环次数, 整数型<br /> .局部变量 临时, 文本型<br /> .局部变量 分割, 文本型, , "0"<br /> <br /> .如果真 (是否为空 (参数_文本))<br />     参数_文本 ＝ “01 02 03 04 06 07 08 10 11 13 14 15 16 20 21”<br /> .如果真结束<br /> .如果真 (是否为空 (参数_分隔符))<br />     参数_分隔符 ＝ “ ”<br /> .如果真结束<br /> .如果真 (是否为空 (参数_连续N个))<br />     参数_连续N个 ＝ 2<br /> .如果真结束<br /> .如果真 (是否为空 (参数_步进))<br />     参数_步进 ＝ 1<br /> .如果真结束<br /> <br /> 数组 ＝ 分割文本 (参数_文本, 参数_分隔符, )<br /> 循环次数 ＝ 取数组成员数 (数组)<br /> .计次循环首 (循环次数, ii)<br />     .如果 (ii ＜ 循环次数)<br />         .如果 (到整数 (数组 [ii]) ＋ 参数_步进 ＝ 到整数 (数组 [ii ＋ 1]))<br />             临时 ＝ 临时 ＋ 数组 [ii] ＋ 参数_分隔符<br />         .否则<br /> <br />             分割 ＝ 分割文本 (临时, 参数_分隔符, )<br />             .如果真 (取数组成员数 (分割) ≥ 1 ＋ 参数_连续N个 － 2)<br />                 临时 ＝ 临时 ＋ 数组 [ii]<br />                 加入成员 (参数_返回数组, 临时)<br />             .如果真结束<br />             临时 ＝ “”<br />         .如果结束<br /> <br />     .否则<br /> <br />         临时 ＝ 临时 ＋ 数组 [ii] ＋ 参数_分隔符<br />         分割 ＝ 分割文本 (临时, 参数_分隔符, )<br />         .如果真 (取数组成员数 (分割) ≥ 2 ＋ 参数_连续N个 － 2)<br />             加入成员 (参数_返回数组, 临时)<br />         .如果真结束<br />         临时 ＝ “”<br />     .如果结束<br /> <br /> .计次循环尾 ()<br /> 返回 (取数组成员数 (参数_返回数组))

LBrowser

伸手拿了，顺便亲了你一下