请看这个统计出阶梯个数，怎么写？

清华博士

A
B
B
B
－－－上面是阶梯
阶梯子.e (644.75 KB, 下载次数: 7)

2017-11-14 21:30 上传

点击文件名下载附件


补充内容 (2017-11-14 22:25):
A
B
B
B
A
B
B
B
－上面是正确－计数
连续BBBB就阶梯中断连续AA也是阶梯中断。
－下面是错误－
B
B
B
B
A
A

易赐源

清华博士 发表于 2017-11-15 14:24
你说的是这样吗？

我还是没有搞明白，请问怎么弄呀？

计算个数(子文本替换(编辑框1.内容，#换行符，""))

拉面

看不明白   
A
B
B
B
H
H
A
B
B
B

那这又怎么算  

A
B
A
B
B
这样没有3个B又算吗

拉面

阶梯子.e (158.52 KB, 下载次数: 4)

2017-11-14 21:40 上传

点击文件名下载附件

我猜这个应该解决不了问题吧

猥琐小胖子

直接寻找A 寻找B 多少个  再加起来啊

清华博士

猥琐小胖子 发表于 2017-11-14 21:54
直接寻找A 寻找B 多少个  再加起来啊

A
B
B
B
A
B
B
B
－上面是正确－计数
连续BBBB就阶梯中断连续AA也是阶梯中断。
－下面是错误－
B
B
B
B
A
A

易赐源

  

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

变量名	类 型	静态	数组	备 注
ls	整数型
临时文本	文本型
计数	整数型
计数A	整数型
计数B	整数型
开始	逻辑型

计数 ＝ 0
计数A ＝ 0
计数B ＝ 0
开始 ＝ 假
计次循环首 (取文本长度 (参数1), ls)
临时文本 ＝ 取文本中间 (参数1, ls, 1)
判断 (临时文本 ＝ “A”)
计数A ＝ 计数A ＋ 1
如果 (计数A ＝ 2)
跳出循环 ()
如果 (开始)
如果 (计数B ＝ 3)
计数 ＝ 计数 ＋ 1
计数B ＝ 0
跳出循环 ()

计数 ＝ 计数 ＋ 1
计数B ＝ 0


如果真 (开始 ＝ 假)
开始 ＝ 真

判断 (临时文本 ＝ “B”)
计数B ＝ 计数B ＋ 1
如果 (计数B ＝ 4)
跳出循环 ()
计数 ＝ 计数 ＋ 1
计数A ＝ 0


跳出循环 ()

计次循环尾 ()
返回 (计数)

.版本 2<br /> <br /> .子程序 计算个数, 整数型<br /> .参数 参数1, 文本型<br /> .局部变量 ls, 整数型<br /> .局部变量 临时文本, 文本型<br /> .局部变量 计数, 整数型<br /> .局部变量 计数A, 整数型<br /> .局部变量 计数B, 整数型<br /> .局部变量 开始, 逻辑型<br /> <br /> 计数 ＝ 0<br /> 计数A ＝ 0<br /> 计数B ＝ 0<br /> 开始 ＝ 假<br /> <br /> .计次循环首 (取文本长度 (参数1), ls)<br />     临时文本 ＝ 取文本中间 (参数1, ls, 1)<br /> <br />     .判断开始 (临时文本 ＝ “A”)<br /> <br />         计数A ＝ 计数A ＋ 1<br /> <br />         .如果 (计数A ＝ 2)<br />             跳出循环 ()<br />         .否则<br />             .如果 (开始)<br />                 .如果 (计数B ＝ 3)<br />                     计数 ＝ 计数 ＋ 1<br />                     计数B ＝ 0<br />                 .否则<br />                     跳出循环 ()<br />                 .如果结束<br /> <br />             .否则<br />                 计数 ＝ 计数 ＋ 1<br />                 计数B ＝ 0<br />             .如果结束<br /> <br /> <br />         .如果结束<br /> <br />         .如果真 (开始 ＝ 假)<br />             开始 ＝ 真<br /> <br />         .如果真结束<br /> <br />     .判断 (临时文本 ＝ “B”)<br />         计数B ＝ 计数B ＋ 1<br />         .如果 (计数B ＝ 4)<br />             跳出循环 ()<br />         .否则<br />             计数 ＝ 计数 ＋ 1<br />             计数A ＝ 0<br />         .如果结束<br /> <br /> <br />     .默认<br />         跳出循环 ()<br />     .判断结束<br /> <br /> .计次循环尾 ()<br /> <br /> 返回 (计数)

猫咪执事

不错不错，刚才下的没有支持库很尴尬

清华博士

易赐源 发表于 2017-11-14 22:49
[e=0].版本 2

.子程序 计算个数, 整数型

阶梯子2.e (646.4 KB, 下载次数: 0)

2017-11-15 12:03 上传

点击文件名下载附件

易赐源

清华博士 发表于 2017-11-15 12:09

把换行符替换为空