统计出现的连续最大次数和当前连续次数

多多多多

如图

编辑框内的数字，要历史最大连续的次数和当前连续出的次数

洋滨

多多多多 发表于 2023-8-8 22:15
大哥，1当前出现次数算不出来，我调试了所有变量都不对。001110101001111   1当前出现了4次，如果号码变 ...

  

子程序名	返回值类型	公开	备 注
子程序1

变量名	类 型	静态	数组	备 注
str	文本型
文本数组	文本型		0
零最大出现次数	整数型
一最大出现次数	整数型
i	整数型

str ＝ “00111010100111101”
文本_取变化 (str, 文本数组)
计次循环首 (取数组成员数 (文本数组), i)
如果真 (寻找文本 (文本数组 [i], “0”, , 假) ≠ -1 且 取文本长度 (文本数组 [i]) ＞ 零最大出现次数)
零最大出现次数 ＝ 取文本长度 (文本数组 [i])

如果真 (寻找文本 (文本数组 [i], “1”, , 假) ≠ -1 且 取文本长度 (文本数组 [i]) ＞ 一最大出现次数)
一最大出现次数 ＝ 取文本长度 (文本数组 [i])

计次循环尾 ()
调试输出 (文本数组)
调试输出 (零最大出现次数, 一最大出现次数)

子程序名	返回值类型	公开	备 注
文本_取变化
参数名	类 型	参考	可空	数组	备 注
文本	文本型
返回数组	文本型

变量名	类 型	静态	数组	备 注
文本数组	文本型		0
变化文本	文本型		0
i	整数型
上一次文本	文本型
连续文本	文本型
本次文本	文本型
a	快速文本对象

文本_逐字分割 (文本, 文本数组)
' 调试输出 (文本数组)
计次循环首 (取数组成员数 (文本数组), i)
本次文本 ＝ 文本数组 [i]
如果真 (i ＝ 1)
连续文本 ＝ 本次文本

如果真 (i ＞ 1)
上一次文本 ＝ 文本数组 [i － 1]
如果真 (i ＝ 取数组成员数 (文本数组))
判断 (本次文本 ≠ 上一次文本)
加入成员 (变化文本, 连续文本)
连续文本 ＝ 本次文本
加入成员 (变化文本, 连续文本)



连续文本 ＝ 连续文本 ＋ 本次文本
加入成员 (变化文本, 连续文本)
跳出循环 ()

判断 (本次文本 ≠ 上一次文本)
加入成员 (变化文本, 连续文本)
连续文本 ＝ 本次文本



连续文本 ＝ 连续文本 ＋ 本次文本


计次循环尾 ()
返回数组 ＝ 变化文本

i支持库列表	支持库注释
spec	特殊功能支持库
commobj	通用对象支持库

.版本 2<br /> .支持库 spec<br /> .支持库 commobj<br /> <br /> .子程序 子程序1<br /> .局部变量 str, 文本型<br /> .局部变量 文本数组, 文本型, , "0"<br /> .局部变量 零最大出现次数, 整数型<br /> .局部变量 一最大出现次数, 整数型<br /> .局部变量 i, 整数型<br /> <br /> str ＝ “00111010100111101”<br /> 文本_取变化 (str, 文本数组)<br /> .计次循环首 (取数组成员数 (文本数组), i)<br /> <br />     .如果真 (寻找文本 (文本数组 <i>, “0”, , 假) ≠ -1 且 取文本长度 (文本数组 <i>) ＞ 零最大出现次数)<br />         零最大出现次数 ＝ 取文本长度 (文本数组 <i>)<br />     .如果真结束<br /> <br />     .如果真 (寻找文本 (文本数组 <i>, “1”, , 假) ≠ -1 且 取文本长度 (文本数组 <i>) ＞ 一最大出现次数)<br />         一最大出现次数 ＝ 取文本长度 (文本数组 <i>)<br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> <br /> 调试输出 (文本数组)<br /> 调试输出 (零最大出现次数, 一最大出现次数)<br /> <br /> .子程序 文本_取变化<br /> .参数 文本, 文本型<br /> .参数 返回数组, 文本型, 数组<br /> .局部变量 文本数组, 文本型, , "0"<br /> .局部变量 变化文本, 文本型, , "0"<br /> .局部变量 i, 整数型<br /> .局部变量 上一次文本, 文本型<br /> .局部变量 连续文本, 文本型<br /> .局部变量 本次文本, 文本型<br /> .局部变量 a, 快速文本对象<br /> <br /> 文本_逐字分割 (文本, 文本数组)<br /> ' 调试输出 (文本数组)<br /> .计次循环首 (取数组成员数 (文本数组), i)<br />     本次文本 ＝ 文本数组 <i><br />     .如果真 (i ＝ 1)<br />         连续文本 ＝ 本次文本<br />     .如果真结束<br /> <br />     .如果真 (i ＞ 1)<br />         上一次文本 ＝ 文本数组 [i － 1]<br /> <br />         .如果真 (i ＝ 取数组成员数 (文本数组))<br /> <br />             .判断开始 (本次文本 ≠ 上一次文本)<br />                 加入成员 (变化文本, 连续文本)<br />                 连续文本 ＝ 本次文本<br />                 加入成员 (变化文本, 连续文本)<br /> <br />             .默认<br /> <br />                 连续文本 ＝ 连续文本 ＋ 本次文本<br />                 加入成员 (变化文本, 连续文本)<br /> <br /> <br />             .判断结束<br />             跳出循环 ()<br />         .如果真结束<br /> <br />         .判断开始 (本次文本 ≠ 上一次文本)<br /> <br />             加入成员 (变化文本, 连续文本)<br />             连续文本 ＝ 本次文本<br /> <br />         .默认<br /> <br />             连续文本 ＝ 连续文本 ＋ 本次文本<br />         .判断结束<br /> <br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> 返回数组 ＝ 变化文本

Suky

核心代码：寻找文本（）

多多多多

Suky 发表于 2023-8-8 19:10
核心代码：寻找文本（）

我寻找到了，又能怎么样。。。

Suky

多多多多 发表于 2023-8-8 19:13
我寻找到了，又能怎么样。。。

找到了就计数+1   没找到就记录之前计数的值，然后计数清零重新开始

Suky

或者计次循环    取文本长度（）作为循环次数
循环内   取文本中间（）  取出每个字符用来判断
寻找文本可能不好操作     用这个循环可能会简单一些

洋滨

  

子程序名	返回值类型	公开	备 注
子程序1

变量名	类 型	静态	数组	备 注
str	文本型
文本数组	文本型		0
零最大出现次数	整数型
一最大出现次数	整数型
i	整数型

str ＝ “001110101001111”
文本_取变化 (str, 文本数组)
计次循环首 (取数组成员数 (文本数组), i)
如果真 (寻找文本 (文本数组 [i], “0”, , 假) ≠ -1 且 取文本长度 (文本数组 [i]) ＞ 零最大出现次数)
零最大出现次数 ＝ 取文本长度 (文本数组 [i])

如果真 (寻找文本 (文本数组 [i], “1”, , 假) ≠ -1 且 取文本长度 (文本数组 [i]) ＞ 一最大出现次数)
一最大出现次数 ＝ 取文本长度 (文本数组 [i])

计次循环尾 ()
调试输出 (文本数组)
调试输出 (零最大出现次数, 一最大出现次数)

子程序名	返回值类型	公开	备 注
文本_取变化
参数名	类 型	参考	可空	数组	备 注
文本	文本型
返回数组	文本型

变量名	类 型	静态	数组	备 注
文本数组	文本型		0
变化文本	文本型		0
i	整数型
上一次文本	文本型
连续文本	文本型
本次文本	文本型

文本_逐字分割 (文本, 文本数组)
' 调试输出 (文本数组)
计次循环首 (取数组成员数 (文本数组), i)
本次文本 ＝ 文本数组 [i]
如果真 (i ＝ 1)
连续文本 ＝ 本次文本

如果真 (i ＞ 1)
上一次文本 ＝ 文本数组 [i － 1]
判断 (本次文本 ≠ 上一次文本 或 i ＝ 取数组成员数 (文本数组))
如果真 (本次文本 ＝ 上一次文本 且 i ＝ 取数组成员数 (文本数组))
连续文本 ＝ 连续文本 ＋ 本次文本
加入成员 (变化文本, 连续文本)
连续文本 ＝ 本次文本



连续文本 ＝ 连续文本 ＋ 本次文本
' 调试输出 (上一次文本, 本次文本, i)

计次循环尾 ()
返回数组 ＝ 变化文本

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

.版本 2<br /> .支持库 spec<br /> <br /> .子程序 子程序1<br /> .局部变量 str, 文本型<br /> .局部变量 文本数组, 文本型, , "0"<br /> .局部变量 零最大出现次数, 整数型<br /> .局部变量 一最大出现次数, 整数型<br /> .局部变量 i, 整数型<br /> <br /> str ＝ “001110101001111”<br /> 文本_取变化 (str, 文本数组)<br /> .计次循环首 (取数组成员数 (文本数组), i)<br /> <br />     .如果真 (寻找文本 (文本数组 <i>, “0”, , 假) ≠ -1 且 取文本长度 (文本数组 <i>) ＞ 零最大出现次数)<br />         零最大出现次数 ＝ 取文本长度 (文本数组 <i>)<br />     .如果真结束<br /> <br />     .如果真 (寻找文本 (文本数组 <i>, “1”, , 假) ≠ -1 且 取文本长度 (文本数组 <i>) ＞ 一最大出现次数)<br />         一最大出现次数 ＝ 取文本长度 (文本数组 <i>)<br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> <br /> 调试输出 (文本数组)<br /> 调试输出 (零最大出现次数, 一最大出现次数)<br /> <br /> .子程序 文本_取变化<br /> .参数 文本, 文本型<br /> .参数 返回数组, 文本型, 数组<br /> .局部变量 文本数组, 文本型, , "0"<br /> .局部变量 变化文本, 文本型, , "0"<br /> .局部变量 i, 整数型<br /> .局部变量 上一次文本, 文本型<br /> .局部变量 连续文本, 文本型<br /> .局部变量 本次文本, 文本型<br /> <br /> 文本_逐字分割 (文本, 文本数组)<br /> ' 调试输出 (文本数组)<br /> .计次循环首 (取数组成员数 (文本数组), i)<br />     本次文本 ＝ 文本数组 <i><br />     .如果真 (i ＝ 1)<br />         连续文本 ＝ 本次文本<br />     .如果真结束<br /> <br />     .如果真 (i ＞ 1)<br />         上一次文本 ＝ 文本数组 [i － 1]<br />         .判断开始 (本次文本 ≠ 上一次文本 或 i ＝ 取数组成员数 (文本数组))<br />             .如果真 (本次文本 ＝ 上一次文本 且 i ＝ 取数组成员数 (文本数组))<br />                 连续文本 ＝ 连续文本 ＋ 本次文本<br />             .如果真结束<br />             加入成员 (变化文本, 连续文本)<br />             连续文本 ＝ 本次文本<br /> <br />         .默认<br /> <br />             连续文本 ＝ 连续文本 ＋ 本次文本<br />         .判断结束<br />         ' 调试输出 (上一次文本, 本次文本, i)<br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> 返回数组 ＝ 变化文本

xianggu

历史最大连挂和当前连挂吗~以前我写过

补充内容 (2023-8-8 23:37):
你好像已经解决了~不需要我的了

多多多多

xianggu 发表于 2023-8-8 21:33
历史最大连挂和当前连挂吗~以前我写过

还有吗大佬

多多多多

洋滨 发表于 2023-8-8 20:09
[e=0].版本 2
.支持库 spec

大哥，1当前出现次数算不出来，我调试了所有变量都不对。001110101001111   1当前出现了4次，如果号码变成00111010100111101，那么1当前出现次数为1次