|
发表于 2017-3-26 16:04:46
|
显示全部楼层
湖北省武汉市
.版本 2
.支持库 spec
.子程序 _按钮2_被单击
.局部变量 s, 文本型, , "0"
.局部变量 数组, 文本型, , "0"
.局部变量 一维
.局部变量 二维
.局部变量 i, 整数型
.局部变量 ls, 文本型
数组 = 分割文本 (#常量2, #换行符, )
一维 = 文本_取出现次数 (#常量2, “B”)
二维 = 取维 (#常量2, “B”, 一维)
重定义数组 (s, 假, 一维 + 1, 二维)
一维 = 1
二维 = 1
.计次循环首 (取数组成员数 (数组), i)
ls = 取文本左边 (数组 , 1)
.判断开始 (ls = “B”)
一维 = 一维 + 1
二维 = 1
.默认
二维 = 二维 + 1
.判断结束
调试输出 (一维, 二维)
s [一维] [二维] = 数组
.计次循环尾 ()
调试输出 (s)
.子程序 取维, 整数型
.参数 原文本, 文本型
.参数 标识, 文本型
.参数 一维, 整数型
.局部变量 位置1
.局部变量 位置2
.局部变量 临时维
.局部变量 记录维
.局部变量 临时, 文本型
位置1 = 0
.判断循环首 (位置1 ≠ -1)
位置1 = 位置2
位置2 = 寻找文本 (原文本, 标识, 位置1 + 1, 假)
一维 = 一维 + 1
临时 = 取文本中间 (原文本, 位置1, 位置2 - 位置1)
临时维 = 文本_取出现次数 (临时, #换行符)
' 调试输出 (临时维, 二维)
.如果真 (临时维 > 记录维)
记录维 = 临时维
.如果真结束
.判断循环尾 ()
返回 (记录维)
补充内容 (2017-3-26 16:52):
感觉 差不多是这样的 楼主试试看
补充内容 (2017-3-26 16:57):
话说 我发现个有趣的bug 本来 那个取维里面的 二维 我是用的参数返回的 ,,结果 貌似一维有返回 二维却没有返回 真特么奇怪 最后才改成 子程序本身返回二维。。。
补充内容 (2017-3-26 16:57):
话说 我发现个有趣的bug 本来 那个取维里面的 二维 我是用的参数返回的 ,,结果 貌似一维有返回 二维却没有返回 真特么奇怪 最后才改成 子程序本身返回二维。。。 |
评分
-
参与人数 2 | 好评 +1 |
精币 +1 |
荣誉 +1 |
收起
理由
|
笨潴
| |
|
+ 1 |
热心帮助他人,荣誉+1,希望继续努力(*^__^*) 嘻嘻! |
soul741
| + 1 |
+ 1 |
|
新技能已get√ |
查看全部评分
|