文本相连和不相连求助

鹏书

csc123 发表于 2025-2-14 19:20
感谢回复,结果和上面那位大佬相同,可能是我需求没表达清楚,抱歉

相连6次可以理解 不连为什么会是2次？

haoren1212

  

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

子程序_文本连续性 (“1,1,0,1,0,1,1,0,1,1,0,1,1,1,1,0,1,1,0,0,0,0,0,1,1,0,1,0,”, 1, , )

子程序名	返回值类型	公开	备 注
子程序_文本连续性
参数名	类 型	参考	可空	数组	备 注
文本	文本型				文本型
判断参数	整数型				整数型
连续次数	整数型				整数型，返回连续次数
不连续次数	整数型				整数型，返回不连续次数

变量名	类 型	静态	数组	备 注
文本	文本型
文本数组	文本型		0
i	整数型

文本 ＝ “1,1,0,1,0,1,1,0,1,1,0,1,1,1,1,0,1,1,0,0,0,0,0,1,1,0,1,0,”
文本数组 ＝ 分割文本 (文本, “,”, )
计次循环首 (取数组成员数 (文本数组), i)
如果真 (文本数组 [i] ＝ 到文本 (判断参数))  ' 文本参数判断0或1
如果真 (i ＝ 1)  ' 判断i的大小防止小于数组成员数或大于数组成员数
判断 (文本数组 [i] ＝ 文本数组 [i ＋ 1])
连续次数 ＝ 连续次数 ＋ 1



如果真 (i ＝ 取数组成员数 (文本数组))  ' 判断i的大小防止小于数组成员数或大于数组成员数
判断 (文本数组 [i] ＝ 文本数组 [i － 1])
连续次数 ＝ 连续次数 ＋ 1



如果真 (i ≠ 1 且 i ≠ 取数组成员数 (文本数组))
判断 (文本数组 [i] ≠ 文本数组 [i － 1] 且 文本数组 [i] ＝ 文本数组 [i ＋ 1])
连续次数 ＝ 连续次数 ＋ 1
判断 (文本数组 [i] ≠ 文本数组 [i － 1] 且 文本数组 [i] ≠ 文本数组 [i ＋ 1])
不连续次数 ＝ 不连续次数 ＋ 1





计次循环尾 ()
调试输出 (连续次数)
调试输出 (不连续次数)

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

.版本 2<br /> .支持库 spec<br /> <br /> .子程序 _按钮1_被单击<br /> <br /> 子程序_文本连续性 (“1,1,0,1,0,1,1,0,1,1,0,1,1,1,1,0,1,1,0,0,0,0,0,1,1,0,1,0,”, 1, , )<br /> <br /> <br /> .子程序 子程序_文本连续性<br /> .参数 文本, 文本型, , 文本型<br /> .参数 判断参数, 整数型, , 整数型<br /> .参数 连续次数, 整数型, 参考 可空, 整数型，返回连续次数<br /> .参数 不连续次数, 整数型, 参考 可空, 整数型，返回不连续次数<br /> .局部变量 文本, 文本型<br /> .局部变量 文本数组, 文本型, , "0"<br /> .局部变量 i, 整数型<br /> <br /> 文本 ＝ “1,1,0,1,0,1,1,0,1,1,0,1,1,1,1,0,1,1,0,0,0,0,0,1,1,0,1,0,”<br /> 文本数组 ＝ 分割文本 (文本, “,”, )<br /> .计次循环首 (取数组成员数 (文本数组), i)<br />     .如果真 (文本数组 <i> ＝ 到文本 (判断参数))  ' 文本参数判断0或1<br />         .如果真 (i ＝ 1)  ' 判断i的大小防止小于数组成员数或大于数组成员数<br />             .判断开始 (文本数组 <i> ＝ 文本数组 [i ＋ 1])<br />                 连续次数 ＝ 连续次数 ＋ 1<br />             .默认<br /> <br />             .判断结束<br /> <br />         .如果真结束<br />         .如果真 (i ＝ 取数组成员数 (文本数组))  ' 判断i的大小防止小于数组成员数或大于数组成员数<br />             .判断开始 (文本数组 <i> ＝ 文本数组 [i － 1])<br />                 连续次数 ＝ 连续次数 ＋ 1<br />             .默认<br /> <br />             .判断结束<br /> <br />         .如果真结束<br />         .如果真 (i ≠ 1 且 i ≠ 取数组成员数 (文本数组))<br />             .判断开始 (文本数组 <i> ≠ 文本数组 [i － 1] 且 文本数组 <i> ＝ 文本数组 [i ＋ 1])<br />                 连续次数 ＝ 连续次数 ＋ 1<br />             .判断 (文本数组 <i> ≠ 文本数组 [i － 1] 且 文本数组 <i> ≠ 文本数组 [i ＋ 1])<br />                 不连续次数 ＝ 不连续次数 ＋ 1<br />             .默认<br /> <br />             .判断结束<br /> <br />         .如果真结束<br /> <br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> 调试输出 (连续次数)<br /> 调试输出 (不连续次数)

补充内容 (2025-2-14 21:10):
测试结果1连续次数6不连续次数2,0连续次数1不连续次数6,判断文本数组尾部的时候有问题，在第二个如果真下的判断不成立加一句不连续次数+1就行

csc123

鹏书 发表于 2025-2-14 20:20
相连6次可以理解 不连为什么会是2次？

两次0,1,0,不就是两次吗?

csc123

haoren1212 发表于 2025-2-14 21:02
[e=1].版本 2
.支持库 spec

差一点点,基本上了,上面的基础上加上后面两个1试下.
文本 ＝ “1,1,0,1,0,1,1,0,1,1,0,1,1,1,1,0,1,1,0,0,0,0,0,1,1,0,1,0,1,1,”
直接变成8次了