Question

易语言有多行数字，怎么筛选4位数字中任一两个数字之和为6出来

只要有两个数字和为6就筛选出来，比如1566 1515也在筛选范围，效果如下图，会的源码上传一下，谢谢

Answer 1

.版本 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) .如果真结束

追问

不对啊。能上传一下文件吗

Answer 2

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

.版本 2

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

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

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

_文本长度 ＝ 取文本长度 (文本)
.如果真 (_文本长度 ＞ 0)
_结束位置 ＝ 寻找文本 (文本, #换行符, , 假) － 1
.循环判断首 ()
.如果真 (_结束位置 ＜ 0)
_结束位置 ＝ _文本长度
.如果真结束

_文本 ＝ 取文本中间 (文本, _起始位置 ＋ 1, _结束位置 － _起始位置)
.如果真 (_文本 ≠ “”)
_文本长度1 ＝ 取文本长度 (_文本)
_成立 ＝ 假
.计次循环首 (_文本长度1 － 1, _i)  ' 两数对比,可以参考冒泡算法
_加数 ＝ 到整数 (取文本中间 (_文本, _i, 1))
.' 如果真 (_加数 ＝ 6)
' _成立 ＝ 真
' 跳出循环 ()
.如果真结束

.计次循环首 (_文本长度1 － _i, _j)
.如果真 (_加数 ＋ 到整数 (取文本中间 (_文本, _i ＋ _j, 1)) ＝ 6)
_成立 ＝ 真
跳出循环 ()
.如果真结束

.计次循环尾 ()
.如果真 (_成立)
.如果 (_文本1 ≠ “”)
_文本1 ＝ _文本1 ＋ #换行符 ＋ _文本
.否则
_文本1 ＝ _文本
.如果结束
跳出循环 ()
.如果真结束

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