易语言有多行数字,怎么把不包含1和6两个数字的行数提取出来放到编辑框2里面

.版本 2

.支持库 spec

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

子程序1 (“1671” ＋ #换行符 ＋ “1672” ＋ #换行符 ＋ “1567” ＋ #换行符 ＋ “1121” ＋ #换行符 ＋ “1651” ＋ #换行符 ＋ “1768”)

.子程序 子程序1

.参数 文本, 文本型

.局部变量 _文本, 文本型

.局部变量 _文本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)

.如果真结束