请大师指点合适的方法

hxw555

我黏贴带有后区组合好的号码，过滤结果直接干掉了整组，本意是只想排除指定的后区组合。每次黏贴的接近18万注，感觉速度还能接受
请老师指点哪写错了，我只想去掉指定的后区组合

我用的易语言5.9，上一个帖子有老师给出的是火山，我也不懂

a2083657

你这问题大概率是“寻找文本”模糊匹配干的。比如后区组合“01 02”，你写寻找文本(整行,“01 02”)会把“01 02 03”也匹配上导致整行干掉。要精确匹配，用分割取后区部分再直接用“=”比较。

看你这截图里号码可能是用空格或+分隔，后区是最后两个数。简单写法：

把要排除的组合放到数组里。循环每行，用分割文本取出来，只比对后区部分。如果后区等于排除组合中的任何一个，则跳过，否则保留。

例子代码（假设行格式是“前区 后区”中间有空格，后区是最后两个数字）：

.版本 2
.子程序 过滤后区, 文本型
.参数 源文本, 文本型
.参数 排除组合, 文本型, 数组
.局部变量 行, 文本型, 0
.局部变量 i, 整数型
.局部变量 列, 文本型, 0
.局部变量 后区, 文本型
.局部变量 j, 整数型
.局部变量 跳, 逻辑型
.局部变量 结果, 文本型

行 ＝ 分割文本(源文本, #换行符, )
结果 ＝ “”
计次循环首(取数组成员数(行), i)
    如果真(行[i] ＝ “”) 到循环尾()
    列 ＝ 分割文本(行[i], “ ”, )  ‘假设空格分隔
    如果真(取数组成员数(列) ＜ 2) 到循环尾()
    后区 ＝ 列[取数组成员数(列)-1] ＋ “ ” ＋ 列[取数组成员数(列)]  ‘后区两个数
    跳 ＝ 假
    计次循环首(取数组成员数(排除组合), j)
        如果真(后区 ＝ 排除组合[j])
            跳 ＝ 真
            跳出循环()
        如果真结束
    计次循环尾()
    如果真(跳 ＝ 假)
        结果 ＝ 结果 ＋ 行[i] ＋ #换行符
    如果真结束
计次循环尾()
返回(结果)

注意调整分割符和取后区的位置（按你实际格式改）。这样只删精确匹配的后区，不会误删整组。

你的猫

  

子程序名	返回值类型	公开	备 注
_按钮1_被单击

变量名	类 型	静态	数组	备 注
全部内容	文本型
每行	文本型		0
排除列表	文本型		0
最终内容	文本型
i	整数型
当前行	文本型
后区号码	文本型
n	整数型
保留	逻辑型
排除项	文本型

全部内容 ＝ 编辑框3.内容
排除列表 ＝ 分割文本 (编辑框2.内容, “,”, )
计次循环首 (取数组成员数 (排除列表), i)
排除列表 [i] ＝ 删首尾空 (排除列表 [i])
计次循环尾 ()
每行 ＝ 分割文本 (全部内容, #换行符, )
最终内容 ＝ “”
计次循环首 (取数组成员数 (每行), i)
当前行 ＝ 删首尾空 (每行 [i])
如果真 (当前行 ＝ “”)
到循环尾 ()

保留 ＝ 真
后区号码 ＝ 删首尾空 (取文本右边 (当前行, 5))
计次循环首 (取数组成员数 (排除列表), n)
排除项 ＝ 排除列表 [n]
如果真 (后区号码 ＝ 排除项)
保留 ＝ 假
跳出循环 ()

计次循环尾 ()
如果真 (保留 ＝ 真)
最终内容 ＝ 最终内容 ＋ 当前行 ＋ #换行符

计次循环尾 ()
编辑框3.内容 ＝ 最终内容
信息框 (“过滤完成”, 0, , )

.版本 2<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 全部内容, 文本型<br /> .局部变量 每行, 文本型, , "0"<br /> .局部变量 排除列表, 文本型, , "0"<br /> .局部变量 最终内容, 文本型<br /> .局部变量 i, 整数型<br /> .局部变量 当前行, 文本型<br /> .局部变量 后区号码, 文本型<br /> .局部变量 n, 整数型<br /> .局部变量 保留, 逻辑型<br /> .局部变量 排除项, 文本型<br /> <br /> 全部内容 ＝ 编辑框3.内容<br /> 排除列表 ＝ 分割文本 (编辑框2.内容, “,”, )<br /> .计次循环首 (取数组成员数 (排除列表), i)<br />     排除列表 <i> ＝ 删首尾空 (排除列表 <i>)<br /> .计次循环尾 ()<br /> <br /> 每行 ＝ 分割文本 (全部内容, #换行符, )<br /> 最终内容 ＝ “”<br /> <br /> .计次循环首 (取数组成员数 (每行), i)<br />     当前行 ＝ 删首尾空 (每行 <i>)<br />     .如果真 (当前行 ＝ “”)<br />         到循环尾 ()<br />     .如果真结束<br /> <br />     保留 ＝ 真<br />     后区号码 ＝ 删首尾空 (取文本右边 (当前行, 5))<br /> <br />     .计次循环首 (取数组成员数 (排除列表), n)<br />         排除项 ＝ 排除列表 [n]<br />         .如果真 (后区号码 ＝ 排除项)<br />             保留 ＝ 假<br />             跳出循环 ()<br />         .如果真结束<br /> <br />     .计次循环尾 ()<br /> <br />     .如果真 (保留 ＝ 真)<br />         最终内容 ＝ 最终内容 ＋ 当前行 ＋ #换行符<br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> <br /> 编辑框3.内容 ＝ 最终内容<br /> 信息框 (“过滤完成”, 0, , )

cxl

还得去掉已经开奖的号码

hxw555

cxl 发表于 2026-7-13 21:21
还得去掉已经开奖的号码

那个先不计较

hxw555

你的猫 发表于 2026-7-13 18:31

  

子程序名	返回值类型	公开	备 注
_按钮1_被单击

[/quote]
[e=0].版本 2

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口
变量名	类 型	数组	备 注
全部内容	文本型		存放编辑框3原始文本
排除列表	文本型	0	存放标记框2拆分的排除关键词
i	整数型		内层遍历排除列表循环变量
每行	文本型	0	按换行拆分后的每行文本
n	整数型		外层遍历每行的循环变量
当前行	文本型		临时存储单行内容
保留	逻辑型		标记本行是否保留输出
排除项	文本型		临时存储单个排除关键词
最终内容	文本型		过滤完成后的结果文本

子程序名	返回值类型	公开	备 注
_按钮1_被单击			点击开始过滤触发

' 清空上次结果
最终内容 ＝ “”
' 读取左侧全部原始组合
全部内容 ＝ 编辑框3.内容
' 拆分右侧输入的排除数字（逗号分隔）
排除列表 ＝ 分割文本 (编辑框2.内容, “,”, )
' 清洗排除数字，去除空格
计次循环首 (取数组成员数 (排除列表), i)
排除列表 [i] ＝ 删首尾空 (排除列表 [i])
计次循环尾 ()
' 把所有原始组合按行拆分
每行 ＝ 分割文本 (全部内容, #换行符, )
' 逐行遍历过滤
计次循环首 (取数组成员数 (每行), n)
当前行 ＝ 删首尾空 (每行 [n])
' 空行直接跳过
如果真 (当前行 ＝ “”)
到循环尾 ()

保留 ＝ 真
' 检查当前行是否包含任意排除数字
计次循环首 (取数组成员数 (排除列表), i)
排除项 ＝ 排除列表 [i]
如果真 (寻找文本 (当前行, “+” ＋ 排除项, , 假) ≠ -1)
保留 ＝ 假
跳出循环 ()

计次循环尾 ()
' 不包含排除数字则保留本行
如果真 (保留 ＝ 真)
最终内容 ＝ 最终内容 ＋ 当前行 ＋ #换行符

计次循环尾 ()
' 过滤完成后，把剩余组合重新输出到左侧编辑框
编辑框3.内容 ＝ 最终内容

.版本 2<br /> <br /> .子程序 _按钮1_被单击</blockquote></div><br /> [e=0].版本 2<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 全部内容, 文本型, , , 存放编辑框3原始文本<br /> .程序集变量 排除列表, 文本型, , "0", 存放标记框2拆分的排除关键词<br /> .程序集变量 i, 整数型, , , 内层遍历排除列表循环变量<br /> .程序集变量 每行, 文本型, , "0", 按换行拆分后的每行文本<br /> .程序集变量 n, 整数型, , , 外层遍历每行的循环变量<br /> .程序集变量 当前行, 文本型, , , 临时存储单行内容<br /> .程序集变量 保留, 逻辑型, , , 标记本行是否保留输出<br /> .程序集变量 排除项, 文本型, , , 临时存储单个排除关键词<br /> .程序集变量 最终内容, 文本型, , , 过滤完成后的结果文本<br /> <br /> .子程序 _按钮1_被单击, , , 点击开始过滤触发<br /> <br /> ' 清空上次结果<br /> 最终内容 ＝ “”<br /> ' 读取左侧全部原始组合<br /> 全部内容 ＝ 编辑框3.内容<br /> ' 拆分右侧输入的排除数字（逗号分隔）<br /> 排除列表 ＝ 分割文本 (编辑框2.内容, “,”, )<br /> <br /> ' 清洗排除数字，去除空格<br /> .计次循环首 (取数组成员数 (排除列表), i)<br />     排除列表 <i> ＝ 删首尾空 (排除列表 <i>)<br /> .计次循环尾 ()<br /> <br /> ' 把所有原始组合按行拆分<br /> 每行 ＝ 分割文本 (全部内容, #换行符, )<br /> <br /> ' 逐行遍历过滤<br /> .计次循环首 (取数组成员数 (每行), n)<br />     当前行 ＝ 删首尾空 (每行 [n])<br />     ' 空行直接跳过<br />     .如果真 (当前行 ＝ “”)<br />         到循环尾 ()<br />     .如果真结束<br /> <br />     保留 ＝ 真<br />     ' 检查当前行是否包含任意排除数字<br />     .计次循环首 (取数组成员数 (排除列表), i)<br />         排除项 ＝ 排除列表 <i><br />         .如果真 (寻找文本 (当前行, “+” ＋ 排除项, , 假) ≠ -1)<br />             保留 ＝ 假<br />             跳出循环 ()<br />         .如果真结束<br /> <br />     .计次循环尾 ()<br /> <br />     ' 不包含排除数字则保留本行<br />     .如果真 (保留 ＝ 真)<br />         最终内容 ＝ 最终内容 ＋ 当前行 ＋ #换行符<br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> <br /> ' 过滤完成后，把剩余组合重新输出到左侧编辑框<br /> 编辑框3.内容 ＝ 最终内容

点击开始过滤，又在执行，用是也算正常，但是，并没有过滤掉要滤除的后区

华庭大哥

18万组数据粘贴进编辑框很卡吧

hxw555

华庭大哥 发表于 2026-7-13 23:05
18万组数据粘贴进编辑框很卡吧

3分钟
可以接受

cxl

hxw555 发表于 2026-7-13 23:35
3分钟
可以接受

有个霸主双色球瞬间就完成了