关于超级列表框取指定进程的问题

sn7039764

如图 我想实现 比如现在有两个为“测试.exe”的进程和三个为"功能.exe"的进程已经加入到了超级列表框中 那么现在我又打开一个“测试.exe”进程名  我现在想实现 在不删除前5个已经存在的再在超级列表框中加入这个新打开的"测试.exe"的进程


大致意思就是对比(应该是对比PID) 如果进程已经存在于超级列表框中 则不删除 如果不在就删除  如果有新加入的指定进程名也加入


求大佬再给改改


@zainex

zainex

先备份, 做标记, 最后更新:

  

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

变量名	类 型	静态	数组	备 注
数组	文本型		0
进程ID	整数型		0
目标	文本型		0
数	整数型
索引	整数型
值	整数型
正则	正则表达式
备份	文本型		0
数量	整数型
量	整数型
存在	逻辑型

进程_枚举 (数组, 进程ID)
目标 ＝ { “e(.*)\.exe”, “测试(.*)\.exe”, “功能(.*)\.exe” }
数量 ＝ 超级列表框1.取表项数 ()
如果真 (数量 ＞ 0)
重定义数组 (备份, 假, 数量, 3)
计次循环首 (数量, 数)
备份 [数] [1] ＝ 超级列表框1.取标题 (数 － 1, 0)
备份 [数] [2] ＝ 超级列表框1.取标题 (数 － 1, 1)
计次循环尾 ()
计次循环首 (取数组成员数 (数组), 数)
计次循环首 (取数组成员数 (目标), 值)
正则.创建 (到小写 (目标 [值]), )
如果真 (正则.匹配 (到小写 (数组 [数])))
存在 ＝ 假
计次循环首 (数量, 量)
如果真 (备份 [量] [1] ＝ 到文本 (进程ID [数]))
存在 ＝ 真
备份 [量] [3] ＝ “保留”
跳出循环 ()

计次循环尾 ()
如果真 (存在 ＝ 假)
数量 ＝ 数量 ＋ 1
重定义数组 (备份, 真, 数量, 3)
备份 [数量] [1] ＝ 到文本 (进程ID [数])
备份 [数量] [2] ＝ 数组 [数] ＋ “|” ＋ 窗口_取标题 (进程_ID取窗口句柄 (进程ID [数]))
备份 [数量] [3] ＝ “保留”


计次循环尾 ()
计次循环尾 ()
调试输出 (“------”)
超级列表框1.全部删除 ()
计次循环首 (数量, 数)
调试输出 (备份 [数] [1], 备份 [数] [2], 备份 [数] [3])
如果真 (备份 [数] [3] ＝ “保留”)
索引 ＝ 超级列表框1.插入表项 (, , , , , )
超级列表框1.置标题 (索引, 0, 备份 [数] [1])
超级列表框1.置标题 (索引, 1, 备份 [数] [2])

计次循环尾 ()

i支持库列表	支持库注释
RegEx	正则表达式支持库
iext	扩展界面支持库一
spec	特殊功能支持库

.版本 2<br /> .支持库 RegEx<br /> .支持库 iext<br /> .支持库 spec<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 数组, 文本型, , "0"<br /> .局部变量 进程ID, 整数型, , "0"<br /> .局部变量 目标, 文本型, , "0"<br /> .局部变量 数, 整数型<br /> .局部变量 索引, 整数型<br /> .局部变量 值, 整数型<br /> .局部变量 正则, 正则表达式<br /> .局部变量 备份, 文本型, , "0"<br /> .局部变量 数量, 整数型<br /> .局部变量 量, 整数型<br /> .局部变量 存在, 逻辑型<br /> <br /> 进程_枚举 (数组, 进程ID)<br /> 目标 ＝ { “e(.*)\.exe”, “测试(.*)\.exe”, “功能(.*)\.exe” }<br /> 数量 ＝ 超级列表框1.取表项数 ()<br /> .如果真 (数量 ＞ 0)<br />     重定义数组 (备份, 假, 数量, 3)<br /> .如果真结束<br /> .计次循环首 (数量, 数)<br />     备份 [数] [1] ＝ 超级列表框1.取标题 (数 － 1, 0)<br />     备份 [数] [2] ＝ 超级列表框1.取标题 (数 － 1, 1)<br /> .计次循环尾 ()<br /> .计次循环首 (取数组成员数 (数组), 数)<br />     .计次循环首 (取数组成员数 (目标), 值)<br />         正则.创建 (到小写 (目标 [值]), )<br />         .如果真 (正则.匹配 (到小写 (数组 [数])))<br />             存在 ＝ 假<br />             .计次循环首 (数量, 量)<br />                 .如果真 (备份 [量] [1] ＝ 到文本 (进程ID [数]))<br />                     存在 ＝ 真<br />                     备份 [量] [3] ＝ “保留”<br />                     跳出循环 ()<br />                 .如果真结束<br /> <br />             .计次循环尾 ()<br />             .如果真 (存在 ＝ 假)<br />                 数量 ＝ 数量 ＋ 1<br />                 重定义数组 (备份, 真, 数量, 3)<br />                 备份 [数量] [1] ＝ 到文本 (进程ID [数])<br />                 备份 [数量] [2] ＝ 数组 [数] ＋ “|” ＋ 窗口_取标题 (进程_ID取窗口句柄 (进程ID [数]))<br />                 备份 [数量] [3] ＝ “保留”<br /> <br />             .如果真结束<br /> <br />         .如果真结束<br /> <br />     .计次循环尾 ()<br /> .计次循环尾 ()<br /> 调试输出 (“------”)<br /> 超级列表框1.全部删除 ()<br /> .计次循环首 (数量, 数)<br />     调试输出 (备份 [数] [1], 备份 [数] [2], 备份 [数] [3])<br />     .如果真 (备份 [数] [3] ＝ “保留”)<br />         索引 ＝ 超级列表框1.插入表项 (, , , , , )<br />         超级列表框1.置标题 (索引, 0, 备份 [数] [1])<br />         超级列表框1.置标题 (索引, 1, 备份 [数] [2])<br />     .如果真结束<br /> <br /> .计次循环尾 ()

sn7039764

@zainex  大佬看到帮改改 谢谢！