_起始位置, 整数型 .局部变量 _结束位置, 整数型 .局部变量 _文本长度, 整数型 .局部变量 _i, 整数型 .局部变量 _1的出现次数, 整数型 .局部变量 _6嘚出现次数, 整数型 .局部变量 _代码, 整数型 _结束位置 ＝ 寻找文本 (文本, #换行符, , 假) _文本长度 ＝ 取文本长度 (文本) .如果真 (_文本长度 ＞ 0) .循环判断首 () .如果真 (_結束位置 ＝ -1) _结束位置 ＝ _文本长度 .如果真结束 _文本 ＝ 取文本中间 (文本, _起始位置 ＋ 1, _结束位置 － _起始位置) _1的出现次数 ＝ 0 _6的出现次数 ＝ 0 .计次循环首 (取文本长度 (_文本), _i) _代码 ＝ 取代码 (_文本, _i) .判断开始 (_代码 ＝ 49) _1的出现次数 ＝ _1的出现次数 ＋ 1 .判断 (_代码 ＝ 54) _6的出现次数 ＝ _6的出现次数 ＋ 1 .默认 .判断结束 .计次循環尾 () .如果真 (_1的出现次数 ＝ 1 且 _6的出现次数 ＝ 1) .如果 (_文本1 ≠ “”) _文本1 ＝ _文本1 ＋ #换行符 ＋ _文本 .否则 _文本1 ＝ _文本 .如果结束 .如果真结束 _起始位置 ＝ _结束位置 _结束位置 ＝ 寻找文本 (文本, #换行符, _结束位置 ＋ 2, 假) .循环判断尾 (_起始位置 ≠ _文本长度) 编辑框2.内容 ＝ _文本1 调试输出 (_文本1) .如果真结束

之前回答过伱的问题,不是稍微改一下就可以用了吗?

.子程序 _按钮1_被单击

.参数 文本, 文本型
.局部变量 _文本长度, 整数型
.局部变量 _文本长度1, 整数型
.局部变量 _起始位置, 整数型
.局部变量 _结束位置, 整数型
.局部变量 _文本, 文本型
.局部变量 _文本1, 文本型
.局部变量 _i, 整数型
.局部变量 _j, 整数型
.局部变量 _加数, 整数型
.局部变量 _成立, 逻辑型
.局部变量 _等于6的文本, 整数型

_文本长度 ＝ 取文本长度 (文本)
_结束位置 ＝ _文本长度

_文本 ＝ 取文本中间 (文本, _起始位置 ＋ 1, _结束位置 － _起始位置)
.如果真 (_文本 ≠ “”)
_文本长度1 ＝ 取文本长度 (_文本)

_起始位置 ＝ _结束位置 ＋ 2
_结束位置 ＝ 寻找文本 (文本, #换行符, _结束位置 ＋ 3, 假) － 1
.循环判断尾 (_起始位置 ＜ _文本长度)
编辑框2.内容 ＝ _文本1

_起始位置, 整数型 .局部变量 _结束位置, 整数型 .局部变量 _文本长度, 整数型 .局部变量 _i, 整数型 .局部变量 _1的出现次数, 整数型 .局部变量 _6嘚出现次数, 整数型 .局部变量 _代码, 整数型 _结束位置 ＝ 寻找文本 (文本, #换行符, , 假) _文本长度 ＝ 取文本长度 (文本) .如果真 (_文本长度 ＞ 0) .循环判断首 () .如果真 (_結束位置 ＝ -1) _结束位置 ＝ _文本长度 .如果真结束 _文本 ＝ 取文本中间 (文本, _起始位置 ＋ 1, _结束位置 － _起始位置) _1的出现次数 ＝ 0 _6的出现次数 ＝ 0 .计次循环首 (取文本长度 (_文本), _i) _代码 ＝ 取代码 (_文本, _i) .判断开始 (_代码 ＝ 49) _1的出现次数 ＝ _1的出现次数 ＋ 1 .判断 (_代码 ＝ 54) _6的出现次数 ＝ _6的出现次数 ＋ 1 .默认 .判断结束 .计次循環尾 () .如果真 (_1的出现次数 ＝ 1 且 _6的出现次数 ＝ 1) .如果 (_文本1 ≠ “”) _文本1 ＝ _文本1 ＋ #换行符 ＋ _文本 .否则 _文本1 ＝ _文本 .如果结束 .如果真结束 _起始位置 ＝ _结束位置 _结束位置 ＝ 寻找文本 (文本, #换行符, _结束位置 ＋ 2, 假) .循环判断尾 (_起始位置 ≠ _文本长度) 编辑框2.内容 ＝ _文本1 调试输出 (_文本1) .如果真结束

之前回答过伱的问题,不是稍微改一下就可以用了吗?

.子程序 _按钮1_被单击

.参数 文本, 文本型
.局部变量 _文本长度, 整数型
.局部变量 _文本长度1, 整数型
.局部变量 _起始位置, 整数型
.局部变量 _结束位置, 整数型
.局部变量 _文本, 文本型
.局部变量 _文本1, 文本型
.局部变量 _i, 整数型
.局部变量 _j, 整数型
.局部变量 _加数, 整数型
.局部变量 _成立, 逻辑型
.局部变量 _等于6的文本, 整数型

_文本长度 ＝ 取文本长度 (文本)
_结束位置 ＝ _文本长度

_文本 ＝ 取文本中间 (文本, _起始位置 ＋ 1, _结束位置 － _起始位置)
.如果真 (_文本 ≠ “”)
_文本长度1 ＝ 取文本长度 (_文本)

_起始位置 ＝ _结束位置 ＋ 2
_结束位置 ＝ 寻找文本 (文本, #换行符, _结束位置 ＋ 3, 假) － 1
.循环判断尾 (_起始位置 ＜ _文本长度)
编辑框2.内容 ＝ _文本1