调试输出 (把一串数字符号统计称数字形式 (“11000100011100001110000110”, ))
调试输出 (“2,-3,1,-3,3,-4,3,-4,2,-1”)
调试输出 (把一串数字符号统计称数字形式 (“110001010110000111010100”, ))

子程序名	返回值类型	公开	备 注
把一串数字符号统计称数字形式	文本型
参数名	类 型	参考	可空	数组	备 注
来源	文本型
负数标识	文本型

变量名	类 型	静态	数组	备 注
a	字节集			来源
i1	整数型			循环次数
b	字节型			上一个字符
c	整数型			相同计数
d	整数型			计算正负数
e	文本型			最终组合
f	整数型			负数标识

a ＝ 到字节集 (来源) ＋ { 1 }
f ＝ 取代码 (选择 (是否为空 (负数标识), “0”, 负数标识), 1)
计次循环首 (取字节集长度 (a), i1)
判断 (b ＝ a [i1])
c ＝ c ＋ 1
判断 (i1 ＞ 1)
e ＝ e ＋ 到文本 (d － c) ＋ “,”
c ＝ 1
c ＝ 1
d ＝ 到整数 (a [i1] ≠ f) × c × 2
b ＝ a [i1]
计次循环尾 ()
返回 (取文本左边 (e, 取文本长度 (e) － 1))

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

.版本 2<br /> .支持库 spec<br /> <br /> 调试输出 (把一串数字符号统计称数字形式 (“11000100011100001110000110”, ))<br /> 调试输出 (“2,-3,1,-3,3,-4,3,-4,2,-1”)<br /> 调试输出 (把一串数字符号统计称数字形式 (“110001010110000111010100”, ))<br /> <br /> .子程序 把一串数字符号统计称数字形式, 文本型<br /> .参数 来源, 文本型<br /> .参数 负数标识, 文本型, 可空<br /> .局部变量 a, 字节集, , , 来源<br /> .局部变量 i1, 整数型, , , 循环次数<br /> .局部变量 b, 字节型, , , 上一个字符<br /> .局部变量 c, 整数型, , , 相同计数<br /> .局部变量 d, 整数型, , , 计算正负数<br /> .局部变量 e, 文本型, , , 最终组合<br /> .局部变量 f, 整数型, , , 负数标识<br /> <br /> a ＝ 到字节集 (来源) ＋ { 1 }<br /> f ＝ 取代码 (选择 (是否为空 (负数标识), “0”, 负数标识), 1)<br /> .计次循环首 (取字节集长度 (a), i1)<br />     .判断开始 (b ＝ a [i1])<br />         c ＝ c ＋ 1<br />     .判断 (i1 ＞ 1)<br />         e ＝ e ＋ 到文本 (d － c) ＋ “,”<br />         c ＝ 1<br />     .默认<br />         c ＝ 1<br />     .判断结束<br />     d ＝ 到整数 (a [i1] ≠ f) × c × 2<br />     b ＝ a [i1]<br /> .计次循环尾 ()<br /> 返回 (取文本左边 (e, 取文本长度 (e) － 1))

补充内容 (2022-10-25 10:20):
把一串数字符号统计称数字形式 (“11000100011100001110000110”, "1")
'如果在第二个参数填写”1”那么负号可以相反

  

子程序1 (“11000100011100001110000110”)

子程序名	返回值类型	公开	备 注
子程序1
参数名	类 型	参考	可空	数组	备 注
P_文本	文本型

变量名	类 型	静态	数组	备 注
长度	整数型
累计	整数型
上一个文本	文本型
当前文本	文本型
n	整数型
结果数组	文本型		0
符号	文本型

长度 ＝ 取文本长度 (P_文本)
计次循环首 (长度, n)
当前文本 ＝ 取文本中间 (P_文本, n, 1)
如果真 (n ＝ 1)
累计 ＝ 1
上一个文本 ＝ 当前文本
到循环尾 ()

判断 (当前文本 ＝ 上一个文本)
累计 ＝ 累计 ＋ 1
如果真 (n ＝ 长度)
符号 ＝ 选择 (当前文本 ＝ “1”, “”, “-”)
加入成员 (结果数组, 符号 ＋ 到文本 (累计))

符号 ＝ 选择 (上一个文本 ＝ “1”, “”, “-”)
加入成员 (结果数组, 符号 ＋ 到文本 (累计))
累计 ＝ 1
上一个文本 ＝ 当前文本
如果真 (n ＝ 长度)
符号 ＝ 选择 (当前文本 ＝ “1”, “”, “-”)
加入成员 (结果数组, 符号 ＋ 到文本 (累计))


计次循环尾 ()
调试输出 (结果数组)

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

.版本 2<br /> .支持库 spec<br /> <br /> 子程序1 (“11000100011100001110000110”)<br /> <br /> .子程序 子程序1<br /> .参数 P_文本, 文本型<br /> .局部变量 长度, 整数型<br /> .局部变量 累计, 整数型<br /> .局部变量 上一个文本, 文本型<br /> .局部变量 当前文本, 文本型<br /> .局部变量 n, 整数型<br /> .局部变量 结果数组, 文本型, , "0"<br /> .局部变量 符号, 文本型<br /> <br /> 长度 ＝ 取文本长度 (P_文本)<br /> .计次循环首 (长度, n)<br />     当前文本 ＝ 取文本中间 (P_文本, n, 1)<br />     .如果真 (n ＝ 1)<br />         累计 ＝ 1<br />         上一个文本 ＝ 当前文本<br />         到循环尾 ()<br />     .如果真结束<br /> <br />     .判断开始 (当前文本 ＝ 上一个文本)<br />         累计 ＝ 累计 ＋ 1<br />         .如果真 (n ＝ 长度)<br />             符号 ＝ 选择 (当前文本 ＝ “1”, “”, “-”)<br />             加入成员 (结果数组, 符号 ＋ 到文本 (累计))<br />         .如果真结束<br /> <br />     .默认<br />         符号 ＝ 选择 (上一个文本 ＝ “1”, “”, “-”)<br />         加入成员 (结果数组, 符号 ＋ 到文本 (累计))<br />         累计 ＝ 1<br />         上一个文本 ＝ 当前文本<br />         .如果真 (n ＝ 长度)<br />             符号 ＝ 选择 (当前文本 ＝ “1”, “”, “-”)<br />             加入成员 (结果数组, 符号 ＋ 到文本 (累计))<br />         .如果真结束<br /> <br />     .判断结束<br /> <br /> .计次循环尾 ()<br /> 调试输出 (结果数组)

  

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

calc (“01111000111”)
calc (“011011000111”)
calc (“111001101”)

子程序名	返回值类型	公开	备 注
calc
参数名	类 型	参考	可空	数组	备 注
req	文本型

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

文本_逐字分割 (req, arr)
加入成员 (res, 0)
调试输出 (arr)
' ======================= start =======================
计次循环首 (取数组成员数 (arr), i)
如果真 (到数值 (arr [i]) ＝ 1 且 res [取数组下标 (res, )] ＜ 0)
加入成员 (res, 0)
如果真 (到数值 (arr [i]) ＝ 0 且 res [取数组下标 (res, )] ＞ 0)
加入成员 (res, 0)
res [取数组下标 (res, )] ＝ res [取数组下标 (res, )] ＋ 选择 (到数值 (arr [i]) ＝ 1, 1, -1)
计次循环尾 ()
调试输出 (res)

子程序名	返回值类型	公开	备 注
文本_逐字分割	整数型		将给定的指定文本,逐字分割出来,目前只支持半角格式[V雪落有声V],支持换行符，由论坛用户[CakeEternal ]修改
参数名	类 型	参考	可空	数组	备 注
文本	文本型				需要取出来的汉字
返回的数组	文本型				保存取出结果的数组变量

变量名	类 型	静态	数组	备 注
A	整数型
V	文本型
C	整数型
D	整数型
E	文本型
F	整数型

A ＝ 1
E ＝ 到半角 (文本)
重定义数组 (返回的数组, 假, 取文本长度 (E))
判断循环首 (A ≤ 取文本长度 (E))
V ＝ 取文本中间 (E, A, 1)
C ＝ 取代码 (V, )
如果真 (C ＝ 13)
如果真 (取代码 (取文本中间 (E, A ＋ 1, 1), ) ＝ 10)
V ＝ #换行符
A ＝ A ＋ 1

如果真 (C ＜ 0)
V ＝ 取文本中间 (E, A, 2)
A ＝ A ＋ 1
F ＝ F ＋ 1
返回的数组 [F] ＝ V
A ＝ A ＋ 1
判断循环尾 ()
重定义数组 (返回的数组, 真, F)
返回 (取数组成员数 (返回的数组))

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

.版本 2<br /> .支持库 spec<br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> calc (“01111000111”)<br /> calc (“011011000111”)<br /> calc (“111001101”)<br /> <br /> .子程序 calc<br /> .参数 req, 文本型<br /> .局部变量 arr, 文本型, , "0"<br /> .局部变量 res, 整数型, , "0"<br /> .局部变量 i, 整数型<br /> <br /> 文本_逐字分割 (req, arr)<br /> 加入成员 (res, 0)<br /> 调试输出 (arr)<br /> ' ======================= start =======================<br /> .计次循环首 (取数组成员数 (arr), i)<br />     .如果真 (到数值 (arr <i>) ＝ 1 且 res [取数组下标 (res, )] ＜ 0)<br />         加入成员 (res, 0)<br />     .如果真结束<br />     .如果真 (到数值 (arr <i>) ＝ 0 且 res [取数组下标 (res, )] ＞ 0)<br />         加入成员 (res, 0)<br />     .如果真结束<br />     res [取数组下标 (res, )] ＝ res [取数组下标 (res, )] ＋ 选择 (到数值 (arr <i>) ＝ 1, 1, -1)<br /> .计次循环尾 ()<br /> 调试输出 (res)<br /> <br /> .子程序 文本_逐字分割, 整数型, 公开, 将给定的指定文本,逐字分割出来,目前只支持半角格式[V雪落有声V],支持换行符，由论坛用户[CakeEternal ]修改<br /> .参数 文本, 文本型, , 需要取出来的汉字<br /> .参数 返回的数组, 文本型, 参考 可空 数组, 保存取出结果的数组变量<br /> .局部变量 A, 整数型<br /> .局部变量 V, 文本型<br /> .局部变量 C, 整数型<br /> .局部变量 D, 整数型<br /> .局部变量 E, 文本型<br /> .局部变量 F, 整数型<br /> <br /> A ＝ 1<br /> E ＝ 到半角 (文本)<br /> 重定义数组 (返回的数组, 假, 取文本长度 (E))<br /> .判断循环首 (A ≤ 取文本长度 (E))<br />     V ＝ 取文本中间 (E, A, 1)<br />     C ＝ 取代码 (V, )<br />     .如果真 (C ＝ 13)<br />         .如果真 (取代码 (取文本中间 (E, A ＋ 1, 1), ) ＝ 10)<br />             V ＝ #换行符<br />             A ＝ A ＋ 1<br />         .如果真结束<br /> <br />     .如果真结束<br />     .如果真 (C ＜ 0)<br />         V ＝ 取文本中间 (E, A, 2)<br />         A ＝ A ＋ 1<br />     .如果真结束<br />     F ＝ F ＋ 1<br />     返回的数组 [F] ＝ V<br />     A ＝ A ＋ 1<br /> .判断循环尾 ()<br /> 重定义数组 (返回的数组, 真, F)<br /> 返回 (取数组成员数 (返回的数组))