求助！超级列表框删除标题中包含的关键字！

q120505901

超级列表框删除标题中包含的关键字！

例子.rar (33.58 KB, 下载次数: 18)

2017-1-9 00:38 上传

点击文件名下载附件
取编辑框中每行的关键词
搜索超级列表框中的标题 如果包含关键词删除列表框所在行

求告知怎么解！

nddb

q120505901

找了好多例子都不行！ 求各路大神显下神通！~

nddb

什么意思啊！计次循环 在套一个循环把相同的行号记录下来 在删除掉 是比较简单的！或者在计次循环判断的时候删除也可以的！

lianzuo123

随手写个通用的给你.

  

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

调试输出 (筛选超级列表框_ (超级列表框_自定义关键词, 1, 编辑框1.内容, 真, 假, 假))

子程序名	返回值类型	公开	备 注
筛选超级列表框_	整数型		成功返回删除数量,失败返回-1
参数名	类 型	参考	可空	数组	备 注
超级列表框	超级列表框
关键字所在列索引	整数型				从0开始
关键字	文本型				可多行,一行一个关键字
操作模式	逻辑型				真为删除匹配的表项,假为删除不匹配的表项
匹配模式	逻辑型				真为完全匹配,假为模糊匹配
是否区分大小写	逻辑型				真为区分,假为不区分

变量名	类 型	静态	数组	备 注
DelNum	整数型
Arr	文本型		0
ArrNum	整数型
Str	文本型
i	整数型
n	整数型
Title	文本型
Flag	逻辑型

如果真 (超级列表框.取表项数 () ＝ 0)
返回 (-1)  ' 列表内无数据
Arr ＝ 分割文本 (关键字, #换行符, )
ArrNum ＝ 取数组成员数 (Arr)
如果真 (ArrNum ＝ 0)
返回 (-1)  ' 没有待筛选文字

DelNum ＝ 0
处理事件 ()
计次循环首 (超级列表框.取表项数 (), i)
Title ＝ 超级列表框.取标题 (i － 1 － DelNum, 关键字所在列索引)
计次循环首 (ArrNum, n)
Str ＝ 删首尾空 (Arr [n])
如果真 (Str ＝ “”)  ' 跳过空白行
Flag ＝ 假
到循环尾 ()

如果真 (是否区分大小写)
Title ＝ 到小写 (Title)
Str ＝ 到小写 (Str)

如果 (匹配模式)
如果 (Str ＝ Title)  ' 完全匹配
Flag ＝ 真
到循环尾 ()
Flag ＝ 假

如果 (寻找文本 (Title, Str, , 假) ≠ -1)  ' 模糊.上面已经转换过大小写了,这里就不区分了
Flag ＝ 真
到循环尾 ()
Flag ＝ 假


计次循环尾 ()
如果真 (操作模式 ＝ Flag)
调试输出 (i － 1 － DelNum)  ' 输出被删除的表项索引
超级列表框.删除表项 (i － 1 － DelNum)
DelNum ＝ DelNum ＋ 1

计次循环尾 ()
返回 (DelNum)

i支持库列表	支持库注释
spec	特殊功能支持库
iext	扩展界面支持库一

.版本 2<br /> .支持库 spec<br /> .支持库 iext<br /> <br /> .子程序 _按钮1_被单击<br /> <br /> 调试输出 (筛选超级列表框_ (超级列表框_自定义关键词, 1, 编辑框1.内容, 真, 假, 假))<br /> <br /> .子程序 筛选超级列表框_, 整数型, , 成功返回删除数量,失败返回-1<br /> .参数 超级列表框, 超级列表框<br /> .参数 关键字所在列索引, 整数型, , 从0开始<br /> .参数 关键字, 文本型, , 可多行,一行一个关键字<br /> .参数 操作模式, 逻辑型, , 真为删除匹配的表项,假为删除不匹配的表项<br /> .参数 匹配模式, 逻辑型, , 真为完全匹配,假为模糊匹配<br /> .参数 是否区分大小写, 逻辑型, , 真为区分,假为不区分<br /> .局部变量 DelNum, 整数型<br /> .局部变量 Arr, 文本型, , "0"<br /> .局部变量 ArrNum, 整数型<br /> .局部变量 Str, 文本型<br /> .局部变量 i, 整数型<br /> .局部变量 n, 整数型<br /> .局部变量 Title, 文本型<br /> .局部变量 Flag, 逻辑型<br /> <br /> .如果真 (超级列表框.取表项数 () ＝ 0)<br />     返回 (-1)  ' 列表内无数据<br /> .如果真结束<br /> Arr ＝ 分割文本 (关键字, #换行符, )<br /> ArrNum ＝ 取数组成员数 (Arr)<br /> .如果真 (ArrNum ＝ 0)<br />     返回 (-1)  ' 没有待筛选文字<br /> .如果真结束<br /> <br /> DelNum ＝ 0<br /> 处理事件 ()<br /> .计次循环首 (超级列表框.取表项数 (), i)<br />     Title ＝ 超级列表框.取标题 (i － 1 － DelNum, 关键字所在列索引)<br />     .计次循环首 (ArrNum, n)<br />         Str ＝ 删首尾空 (Arr [n])<br />         .如果真 (Str ＝ “”)  ' 跳过空白行<br />             Flag ＝ 假<br />             到循环尾 ()<br />         .如果真结束<br /> <br /> <br />         .如果真 (是否区分大小写)<br />             Title ＝ 到小写 (Title)<br />             Str ＝ 到小写 (Str)<br />         .如果真结束<br /> <br /> <br />         .如果 (匹配模式)<br />             .如果 (Str ＝ Title)  ' 完全匹配<br />                 Flag ＝ 真<br />                 到循环尾 ()<br />             .否则<br />                 Flag ＝ 假<br />             .如果结束<br /> <br />         .否则<br />             .如果 (寻找文本 (Title, Str, , 假) ≠ -1)  ' 模糊.上面已经转换过大小写了,这里就不区分了<br />                 Flag ＝ 真<br />                 到循环尾 ()<br />             .否则<br />                 Flag ＝ 假<br />             .如果结束<br /> <br />         .如果结束<br /> <br /> <br /> <br />     .计次循环尾 ()<br /> <br />     .如果真 (操作模式 ＝ Flag)<br />         调试输出 (i － 1 － DelNum)  ' 输出被删除的表项索引<br />         超级列表框.删除表项 (i － 1 － DelNum)<br />         DelNum ＝ DelNum ＋ 1<br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> 返回 (DelNum)

lianzuo123

剩下的自己看吧