文本相连和不相连求助

csc123

一段文本:    "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不相连的次数

大漠小鸟

  

文本相连和不相连求助 (“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”, 0, 0)

子程序名	返回值类型	公开	备 注
文本相连和不相连求助
参数名	类 型	参考	可空	数组	备 注
文本	文本型
相连数	整数型
不相连数	整数型

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

连续赋值 (0, 相连数, 不相连数)
分割的文本 ＝ 分割文本 (子文本替换 (文本, “,”, , , , 真), “0”, )
计次循环首 (取数组成员数 (分割的文本), i)
i ＝ 取文本长度 (分割的文本 [i])
判断 (i ＞ 1)
相连数 ＝ 相连数 ＋ 1
判断 (i ＝ 1)
不相连数 ＝ 不相连数 ＋ 1



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

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

.版本 2<br /> .支持库 spec<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”, 0, 0)<br /> <br /> .子程序 文本相连和不相连求助<br /> .参数 文本, 文本型<br /> .参数 相连数, 整数型, 可空<br /> .参数 不相连数, 整数型, 参考 可空<br /> .局部变量 分割的文本, 文本型, , "0"<br /> .局部变量 i, 整数型<br /> <br /> 连续赋值 (0, 相连数, 不相连数)<br /> 分割的文本 ＝ 分割文本 (子文本替换 (文本, “,”, , , , 真), “0”, )<br /> .计次循环首 (取数组成员数 (分割的文本), i)<br />     i ＝ 取文本长度 (分割的文本 <i>)<br />     .判断开始 (i ＞ 1)<br />         相连数 ＝ 相连数 ＋ 1<br />     .判断 (i ＝ 1)<br />         不相连数 ＝ 不相连数 ＋ 1<br />     .默认<br /> <br />     .判断结束<br /> <br /> .计次循环尾 ()<br /> 调试输出 (相连数, 不相连数)

高先生

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

变量名	类 型	静态	数组	备 注
文本	文本型
text	文本型		0
x	整数型
开始连续	逻辑型
次数	整数型
不连续	逻辑型
不连次数	整数型

文本 ＝ “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,”
text ＝ 分割文本 (文本, “,”, )
计次循环首 (取数组成员数 (text), x)
如果真 (text [x] ＝ “0”)
开始连续 ＝ 假
不连次数 ＝ 不连次数 ＋ 1
如果真 (开始连续 ＝ 真)
次数 ＝ 次数 ＋ 1
如果真 (text [x] ＝ “1”)
开始连续 ＝ 真
不连续 ＝ 真

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

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

.版本 2<br /> .支持库 spec<br /> <br /> .程序集 窗口程序集_启动窗口<br /> <br /> .子程序 __启动窗口_创建完毕<br /> .局部变量 文本, 文本型<br /> .局部变量 text, 文本型, , "0"<br /> .局部变量 x, 整数型<br /> .局部变量 开始连续, 逻辑型<br /> .局部变量 次数, 整数型<br /> .局部变量 不连续, 逻辑型<br /> .局部变量 不连次数, 整数型<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 /> text ＝ 分割文本 (文本, “,”, )<br /> .计次循环首 (取数组成员数 (text), x)<br />     .如果真 (text [x] ＝ “0”)<br />         开始连续 ＝ 假<br />         不连次数 ＝ 不连次数 ＋ 1<br />     .如果真结束<br />     .如果真 (开始连续 ＝ 真)<br />         次数 ＝ 次数 ＋ 1<br />     .如果真结束<br />     .如果真 (text [x] ＝ “1”)<br />         开始连续 ＝ 真<br />         不连续 ＝ 真<br /> <br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> 调试输出 (次数)<br /> 调试输出 (不连次数)

补充内容 (2025-2-14 19:05):
如果不只有1和0 就改 上面的text[x]<>0 不等于0

csc123

高先生 发表于 2025-2-14 19:01
[e=2].版本 2
.支持库 spec

感谢回复,但这不是我相要的
文本 ＝ “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和1,1,1,1,这些是算是连1次,不是连几次
肉眼看:结果是相连 6 次  不连 2次

补充内容 (2025-2-14 19:18):
这数据只是小部分而已,只有0和1,没其它数字了

算法艺术家

  

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

变量名	类 型	静态	数组	备 注
文本	文本型
分割1	文本型		0
分割2	文本型		0

文本 ＝ “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,1”, )
分割2 ＝ 分割文本 (文本, “0,”, )
调试输出 (取数组成员数 (分割1))  ' 连续次数
调试输出 (取数组成员数 (分割2))  ' 不连续次数

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

.版本 2<br /> .支持库 spec<br /> <br /> .子程序 aaa<br /> .局部变量 文本, 文本型<br /> .局部变量 分割1, 文本型, , "0"<br /> .局部变量 分割2, 文本型, , "0"<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 /> 分割1 ＝ 分割文本 (文本, “1,1”, )<br /> 分割2 ＝ 分割文本 (文本, “0,”, )<br /> 调试输出 (取数组成员数 (分割1))  ' 连续次数<br /> 调试输出 (取数组成员数 (分割2))  ' 不连续次数

csc123

算法艺术家 发表于 2025-2-14 19:18
[e=0].版本 2
.支持库 spec

感谢回复,结果和上面那位大佬相同,可能是我需求没表达清楚,抱歉

高先生

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

变量名	类 型	静态	数组	备 注
文本	文本型
text	文本型		0
x	整数型
开始连续	逻辑型
次数	整数型
不连续	逻辑型
不连次数	整数型
tsxt	整数型
加过	逻辑型

文本 ＝ “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,1,1,1,0,1,1,0,0,0,0,0,1,1,1,1,1,0,1,1,0,0,0,0,0,1”
text ＝ 分割文本 (文本, “,”, )
开始连续 ＝ 假
计次循环首 (取数组成员数 (text), x)
如果真 (开始连续 ＝ 真)
如果真 (加过 ≠ 真)
如果真 (text [x] ＝ “1”)
次数 ＝ 次数 ＋ 1
加过 ＝ 真

如果真 (text [x] ＝ “0”)
不连次数 ＝ 不连次数 ＋ 1
开始连续 ＝ 假
加过 ＝ 假

如果真 (text [x] ＝ “1”)
开始连续 ＝ 真

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

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

.版本 2<br /> .支持库 spec<br /> <br /> .程序集 窗口程序集_启动窗口<br /> <br /> .子程序 __启动窗口_创建完毕<br /> .局部变量 文本, 文本型<br /> .局部变量 text, 文本型, , "0"<br /> .局部变量 x, 整数型<br /> .局部变量 开始连续, 逻辑型<br /> .局部变量 次数, 整数型<br /> .局部变量 不连续, 逻辑型<br /> .局部变量 不连次数, 整数型<br /> .局部变量 tsxt, 整数型<br /> .局部变量 加过, 逻辑型<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,1,1,1,0,1,1,0,0,0,0,0,1,1,1,1,1,0,1,1,0,0,0,0,0,1”<br /> text ＝ 分割文本 (文本, “,”, )<br /> 开始连续 ＝ 假<br /> .计次循环首 (取数组成员数 (text), x)<br />     .如果真 (开始连续 ＝ 真)<br />         .如果真 (加过 ≠ 真)<br />             .如果真 (text [x] ＝ “1”)<br />                 次数 ＝ 次数 ＋ 1<br />                 加过 ＝ 真<br />             .如果真结束<br /> <br />         .如果真结束<br />         .如果真 (text [x] ＝ “0”)<br />             不连次数 ＝ 不连次数 ＋ 1<br />             开始连续 ＝ 假<br />             加过 ＝ 假<br />         .如果真结束<br /> <br /> <br />     .如果真结束<br />     .如果真 (text [x] ＝ “1”)<br />         开始连续 ＝ 真<br /> <br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> 调试输出 (次数)<br /> 调试输出 (不连次数)

洋滨

  

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

变量名	类 型	静态	数组	备 注
文本	文本型
text	文本型		0
x	整数型
相连中	逻辑型
相连次数	整数型
len	整数型

文本 ＝ “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,”
text ＝ 分割文本 (文本, “,”, )
len ＝ 取数组成员数 (text)
计次循环首 (len, x)
如果真 (x ＝ len)
跳出循环 ()

判断 (text [x ＋ 1] ＝ text [x] 且 text [x] ＝ “1”)
如果真 (相连中 ＝ 假)
相连次数 ＝ 相连次数 ＋ 1
调试输出 (x)
相连中 ＝ 真



相连中 ＝ 假

计次循环尾 ()
调试输出 (“相连次数”, 相连次数)

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

.版本 2<br /> .支持库 spec<br /> <br /> .子程序 __启动窗口_创建完毕<br /> .局部变量 文本, 文本型<br /> .局部变量 text, 文本型, , "0"<br /> .局部变量 x, 整数型<br /> .局部变量 相连中, 逻辑型<br /> .局部变量 相连次数, 整数型<br /> .局部变量 len, 整数型<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 /> text ＝ 分割文本 (文本, “,”, )<br /> len ＝ 取数组成员数 (text)<br /> <br /> .计次循环首 (len, x)<br />     .如果真 (x ＝ len)<br />         跳出循环 ()<br />     .如果真结束<br /> <br />     .判断开始 (text [x ＋ 1] ＝ text [x] 且 text [x] ＝ “1”)<br />         .如果真 (相连中 ＝ 假)<br />             相连次数 ＝ 相连次数 ＋ 1<br />             调试输出 (x)<br />             相连中 ＝ 真<br /> <br />         .如果真结束<br /> <br />     .默认<br /> <br />         相连中 ＝ 假<br />     .判断结束<br /> <br /> .计次循环尾 ()<br /> 调试输出 (“相连次数”, 相连次数)

aiky123

正则匹配  (1,){2,}  匹配数量就是连续1的连续数量

匹配不连续   (1,){2,}(0,)+   不清楚你不相连次数具体指什么

wangood

.版本 2
.支持库 spec

.子程序 __启动窗口_创建完毕
.局部变量 文本, 文本型
.局部变量 text, 文本型, , "0"
.局部变量 x, 整数型
.局部变量 连续, 逻辑型
.局部变量 相连次数, 整数型
.局部变量 不连次数, 整数型
.局部变量 当前字符, 文本型

文本 ＝ "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"
text ＝ 分割文本 (文本, ",", )

连续 ＝ 假
相连次数 ＝ 0
不连次数 ＝ 0

.计次循环首 (取数组成员数 (text), x)
    当前字符 ＝ text[x]
   
    .如果 (当前字符 ＝ "1")
        .如果 (连续 ＝ 假)
            相连次数 ＝ 相连次数 + 1
        连续 ＝ 真
    .否则
        连续 ＝ 假
        不连次数 ＝ 不连次数 + 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"，程序会输出：
相连次数: 6
不连次数: 11