编辑框逐行对比删除相同数据

洛洛ya

新手小白闲来无事，想写一个对比数据并删除的小工具，翻了下论坛，用了好多位大佬的代码也没写出满意的效果，于是自己随便研究了一会，写了一个简单的小循环，帮助有需要的朋友，大佬勿喷，入门小白，写的不好多指点

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口

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

变量名	类 型	静态	数组	备 注
数组1	文本型		0
数组2	文本型		0
i	整数型
t	整数型
n	整数型

编辑框3.内容 ＝ “”
数组1 ＝ 分割文本 (编辑框1.内容, #换行符, )
数组2 ＝ 分割文本 (编辑框2.内容, #换行符, )
计次循环首 (取数组成员数 (数组2), i)
' 原理就是用需要运行数组2的成员数次，再循环取数组成员数 (数组1)的次数用来数组2[1]和数组1的每一个对比一下,如果相同，就删除，跳出循环，否则继续对比
计次循环首 (取数组成员数 (数组1), t)
如果真 (数组2 [i] ＝ 数组1 [t])
删除成员 (数组1, t, )
跳出循环 ()  ' 要不然数组成员下标引用超出范围

计次循环尾 ()
计次循环尾 ()
计次循环首 (取数组成员数 (数组1), n)
编辑框3.内容 ＝ 编辑框3.内容 ＋ 数组1 [n] ＋ #换行符
计次循环尾 ()
调试输出 (编辑框3.内容)

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

置剪辑板文本 (编辑框3.内容)

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .程序集 窗口程序集_启动窗口<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 数组1, 文本型, , "0"<br /> .局部变量 数组2, 文本型, , "0"<br /> .局部变量 i, 整数型<br /> .局部变量 t, 整数型<br /> .局部变量 n, 整数型<br /> <br /> 编辑框3.内容 ＝ “”<br /> 数组1 ＝ 分割文本 (编辑框1.内容, #换行符, )<br /> 数组2 ＝ 分割文本 (编辑框2.内容, #换行符, )<br /> <br /> <br /> .计次循环首 (取数组成员数 (数组2), i)<br /> <br />     ' 原理就是用需要运行数组2的成员数次，再循环取数组成员数 (数组1)的次数用来数组2[1]和数组1的每一个对比一下,如果相同，就删除，跳出循环，否则继续对比<br /> <br />     .计次循环首 (取数组成员数 (数组1), t)<br />         .如果真 (数组2 <i> ＝ 数组1 [t])<br />             删除成员 (数组1, t, )<br />             跳出循环 ()  ' 要不然数组成员下标引用超出范围<br />         .如果真结束<br /> <br />     .计次循环尾 ()<br /> .计次循环尾 ()<br /> <br /> <br /> .计次循环首 (取数组成员数 (数组1), n)<br />     编辑框3.内容 ＝ 编辑框3.内容 ＋ 数组1 [n] ＋ #换行符<br /> .计次循环尾 ()<br /> 调试输出 (编辑框3.内容)<br /> <br /> .子程序 _按钮2_被单击<br /> 置剪辑板文本 (编辑框3.内容)

aeszyl

支持支持

笨来无一悟

用哈希表 把删除 改成加入 速度绝对会快很多很多 编辑框 用超级编辑框 也会更快

浅黑

这个数据要是很大，跑到什么时候

KD飞飞

支持✊