|
楼主 |
发表于 2024-8-9 10:15:31
|
显示全部楼层
湖北省荆州市
.版本 2
.支持库 spec
.子程序 _按钮1_被单击
.局部变量 你的内容, 文本型
.局部变量 结果内容, 文本型
.局部变量 计次, 整数型
.局部变量 i, 整数型
.局部变量 数组, 文本型, , "0"
.局部变量 Q号, 文本型
.局部变量 完整群号, 文本型
.局部变量 x, 整数型
.局部变量 Q号长度, 整数型
.局部变量 总长度, 整数型
.局部变量 字母, 文本型
.局部变量 群号, 文本型
你的内容 = 编辑框1.内容
调试输出 (你的内容)
数组 = 分割文本 (你的内容, #换行符, )
调试输出 (数组)
.计次循环首 (取数组成员数 (数组), 计次)
总长度 = 取文本长度 (数组 [计次])
调试输出 (总长度)
.判断开始 (总长度 = 44)
Q号 = 取文本左边 (数组 [计次], 取文本长度 (数组 [计次]) - 35)
调试输出 (Q号)
.判断 (总长度 = 48)
Q号 = 取文本左边 (数组 [计次], 取文本长度 (数组 [计次]) - 38)
调试输出 (Q号)
.默认
.判断结束
完整群号 = 取文本右边 (数组 [计次], 取文本长度 (数组 [计次]) - 30)
调试输出 (完整群号)
调试输出 (取文本长度 (完整群号))
.判断开始 (取文本长度 (完整群号) = 14)
群号 = 取文本左边 (完整群号, 4) ' '长度14 4 10
字母 = 取文本右边 (完整群号, 8)
字母 = 取文本左边 (字母, 6)
.判断 (取文本长度 (完整群号) = 18)
群号 = 取文本左边 (完整群号, 9) ' '长度18 9 9
字母 = 取文本右边 (完整群号, 7)
字母 = 取文本左边 (字母, 6)
.默认
.判断结束
调试输出 (群号)
调试输出 (字母)
.判断开始 (字母 = “asdasd”)
x = 1111
.判断 (字母 = “abcabc”)
x = 2222
.默认
.判断结束
调试输出 (x)
结果内容 = 结果内容 + Q号 + “ ” + 群号 + “ ” + “(” + 到文本 (x) + “)” + #换行符
调试输出 (结果内容)
.计次循环尾 ()
编辑框2.内容 = 结果内容
|
|