去除IP重复

liuqiqi87

看论坛里关于出IP段重复的例子，处理多IP 情况下会很卡，基本没法处理，所以就写了个，其实就是用了 哈希表去重的原理所以就引用了鱼刺多线程的哈希表类，其实也可以用节点来代替的。由于数据要写到超级列表框里，可自带的超级列表框导入速度堪忧，就用了虚表操作模块。

  

子程序名	返回值类型	公开	备 注
去重复

变量名	类 型	静态	数组	备 注
局_IP数	整数型
局_分割数组	文本型		0
局_处理段	文本型
局_计次	整数型
局_节点数	文本型		0

时钟1.时钟周期 ＝ 10
' 集_进度 ＝ 0
' 集_重复数量 ＝ 0
' 标签_状态.标题 ＝ “”
删除哈希表所有节点 ()
初始化 ()
集_启动时间旧 ＝ 取启动时间 ()
局_IP数 ＝ 取数组成员数 (集_IP数组)
如果真 (局_IP数 ≠ 0)
标签_状态.标题 ＝ “正在处理”

计次循环首 (局_IP数, 局_计次)
局_分割数组 ＝ 分割文本 (集_IP数组 [局_计次], “.”, )
如果 (取数组成员数 (局_分割数组) ＝ 4)
判断 (单选框_A段.选中 ＝ 真)
局_处理段 ＝ 局_分割数组 [1]




判断 (单选框_AB段.选中 ＝ 真)
局_处理段 ＝ 局_分割数组 [1] ＋ “.” ＋ 局_分割数组 [2]



判断 (单选框_ABC段.选中 ＝ 真)
局_处理段 ＝ 局_分割数组 [1] ＋ “.” ＋ 局_分割数组 [2] ＋ “.” ＋ 局_分割数组 [3]



判断 (单选框_ABCD段.选中 ＝ 真)
局_处理段 ＝ 局_分割数组 [1] ＋ “.” ＋ 局_分割数组 [2] ＋ “.” ＋ 局_分割数组 [3] ＋ “.” ＋ 局_分割数组 [3]



判断 (集_哈希表.是否已创建 () ＝ 假)
集_哈希表.创建 ( #文本型, #文本型 )


如果 (集_哈希表.是否包含键 (局_处理段) ＝ 假)
集_哈希表.添加 (局_处理段, 集_IP数组 [局_计次])
集_标记数组 [局_计次] ＝ “”


集_标记数组 [局_计次] ＝ “重复”
集_重复数量 ＝ 集_重复数量 ＋ 1





跳出循环 ()

集_启动时间新 ＝ 取启动时间 ()
集_进度 ＝ 四舍五入 (到数值 (局_计次) ÷ 到数值 (局_IP数) × 100, 2)
处理事件 ()
计次循环尾 ()
集_超列_虚表.刷新显示 ()
标签_状态.标题 ＝ “处理完毕”
按钮_去重复.禁止 ＝ 假
按钮_导入.禁止 ＝ 假
按钮_导出.禁止 ＝ 假

.版本 2<br /> <br /> .子程序 去重复, , , <br /> .局部变量 局_IP数, 整数型<br /> .局部变量 局_分割数组, 文本型, , "0"<br /> .局部变量 局_处理段, 文本型<br /> .局部变量 局_计次, 整数型<br /> .局部变量 局_节点数, 文本型, , "0"<br /> <br /> <br /> 时钟1.时钟周期 ＝ 10<br /> <br /> ' 集_进度 ＝ 0<br /> ' 集_重复数量 ＝ 0<br /> ' 标签_状态.标题 ＝ “”<br /> 删除哈希表所有节点 ()<br /> 初始化 ()<br /> 集_启动时间旧 ＝ 取启动时间 ()<br /> 局_IP数 ＝ 取数组成员数 (集_IP数组)<br /> .如果真 (局_IP数 ≠ 0)<br />     标签_状态.标题 ＝ “正在处理”<br /> .如果真结束<br /> <br /> .计次循环首 (局_IP数, 局_计次)<br />     局_分割数组 ＝ 分割文本 (集_IP数组 [局_计次], “.”, )<br />     .如果 (取数组成员数 (局_分割数组) ＝ 4)<br /> <br /> <br />         .判断开始 (单选框_A段.选中 ＝ 真)<br />             局_处理段 ＝ 局_分割数组 [1]<br /> <br />         .默认<br /> <br />         .判断结束<br /> <br />         .判断开始 (单选框_AB段.选中 ＝ 真)<br />             局_处理段 ＝ 局_分割数组 [1] ＋ “.” ＋ 局_分割数组 [2]<br />         .默认<br /> <br />         .判断结束<br /> <br />         .判断开始 (单选框_ABC段.选中 ＝ 真)<br />             局_处理段 ＝ 局_分割数组 [1] ＋ “.” ＋ 局_分割数组 [2] ＋ “.” ＋ 局_分割数组 [3]<br />         .默认<br /> <br />         .判断结束<br /> <br />         .判断开始 (单选框_ABCD段.选中 ＝ 真)<br />             局_处理段 ＝ 局_分割数组 [1] ＋ “.” ＋ 局_分割数组 [2] ＋ “.” ＋ 局_分割数组 [3] ＋ “.” ＋ 局_分割数组 [3]<br /> <br />         .默认<br /> <br />         .判断结束<br />         .判断开始 (集_哈希表.是否已创建 () ＝ 假)<br />             集_哈希表.创建 (#文本型, #文本型)<br /> <br />         .默认<br /> <br />             .如果 (集_哈希表.是否包含键 (局_处理段) ＝ 假)<br />                 集_哈希表.添加 (局_处理段, 集_IP数组 [局_计次])<br />                 集_标记数组 [局_计次] ＝ “”<br />             .否则<br /> <br />                 集_标记数组 [局_计次] ＝ “重复”<br />                 集_重复数量 ＝ 集_重复数量 ＋ 1<br /> <br />             .如果结束<br /> <br />         .判断结束<br /> <br /> <br />     .否则<br /> <br />         跳出循环 ()<br />     .如果结束<br /> <br />     集_启动时间新 ＝ 取启动时间 ()<br />     集_进度 ＝ 四舍五入 (到数值 (局_计次) ÷ 到数值 (局_IP数) × 100, 2)<br />     处理事件 ()<br /> .计次循环尾 ()<br /> 集_超列_虚表.刷新显示 ()<br /> 标签_状态.标题 ＝ “处理完毕”<br /> 按钮_去重复.禁止 ＝ 假<br /> 按钮_导入.禁止 ＝ 假<br /> 按钮_导出.禁止 ＝ 假

运行效果图



[url=]IP去重复.zip[/url]

30345

精易论坛，YYDS！

xjshuaishuai

谢谢分享！

AFK

集_哈希表.创建 (#文本型, #文本型, , )
放到循环上面,否则第一次去重 就会不准确,会少一个

liuqiqi87

AFK 发表于 2022-9-7 16:00
集_哈希表.创建 (#文本型, #文本型, , )
放到循环上面,否则第一次去重 就会不准确,会少一个 ...

感谢大佬指出错误哈，

liuqiqi87

有下载源码的朋友麻烦自行更改下  集_哈希表.创建 (#文本型, #文本型, , ) 放到循环上面,否则第一次去重 就会不准确,会少一个，这里感谢AFK大佬指出错误

QQ1329127360

开源精神必须支持~

永痕

如果用HashSet不知道能不能更快

恐怖的奴隶主

开源精神必须支持~

q1512960733

谢谢分享。