Question

易语言编辑框有多行数字 点击按钮怎么把所有包含1和1两个数字的行数提取出来显示在编辑框2里

一定要出现两个1才可以提取哦。效果如下图

Answer 1

.版本 2

.子程序 _按钮1_被单击
.局部变量 文本组, 文本型, , "0"
.局部变量 i, 整数型
.局部变量 index, 整数型

文本组 ＝ 分割文本 (编辑框1.内容, #换行符, )
编辑框2.内容 ＝ “”
.计次循环首 (取数组成员数 (文本组), i)
    index ＝ 寻找文本 (文本组 [i], “1”, , 假)
    .如果真 (index ≠ -1)
        .如果真 (寻找文本 (文本组 [i], “1”, index ＋ 1, 假) ≠ -1)
            编辑框2.加入文本 (文本组 [i] ＋ #换行符)
        .如果真结束

    .如果真结束

.计次循环尾 ()

试试看吧

追问

那要是取2 2数字怎么改 一定要出现两个2才可以提取哦。

追答

举一反三…… 你把里面的“1”改为“2”就好了

.版本 2



.子程序 查找数字, 文本型
.参数 原内容, 文本型
.参数 a, 文本型
.参数 b, 文本型
.局部变量 index, 整数型
.局部变量 文本组, 文本型, , "0"
.局部变量 wb, 文本型
.局部变量 i, 整数型

文本组 ＝ 分割文本 (原内容, #换行符, )
.计次循环首 (取数组成员数 (文本组), i)
    index ＝ 寻找文本 (文本组 [i], a, , 假)
    .如果真 (index ≠ -1)
        .如果真 (寻找文本 (文本组 [i], b, 选择 (a ＝ b, index ＋ 1, 1), 假) ≠ -1)
            wb ＝ wb ＋ 文本组 [i] ＋ #换行符
        .如果真结束

    .如果真结束

.计次循环尾 ()
返回 (wb)

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

编辑框2.内容=查找数字(编辑框1.内容，“2”，“2”)‘给你写了个通用的查找子程序 只要修改里面的两个数字就可以了 相同的不同的都可以查了’