最快的去重复 排序后标记去重复 比一般速度更快（取重复

APPLEUFO

去重复 取重复有这几个模式  




网上代码集合了几种   1-2以前写的
都是没有飘逸 网友的快 方法3
最近想出了标记的方法  就是方法5  （能用，不排序去重复还是可以的）
然后，把排序和标记结合  ，这回能跑赢  飘逸网友的代码了 ，数据量大的时候快一倍


还有谁，有更快的发出来看看

  

子程序名	返回值类型	公开	备 注
数组模块_去重复6_排序后标记法			排序过的
参数名	类 型	参考	可空	数组	备 注
参数_文本	文本型
参数_重复数组	文本型

变量名	类 型	静态	数组	备 注
局变_标记	整数型		0
n1	整数型
局变_对比a	文本型
m1	整数型

清除数组 (参数_重复数组)
排序模块_快速排序_文本 (参数_文本)
重定义数组 (局变_标记, 假, 取数组成员数 (参数_文本))
计次循环首 (取数组成员数 (参数_文本) － 1, n1)
如果 (参数_文本 [n1] ＝ 参数_文本 [n1 ＋ 1])
连续赋值 (1, 局变_标记 [n1], 局变_标记 [n1 ＋ 1])  ' 1  是重复的

' 0 是 无重复数据

计次循环尾 ()
计次循环首 (取数组成员数 (参数_文本) － 1, n1)
如果 (局变_标记 [n1] ＝ 1)
局变_标记 [n1] ＝ 3
局变_对比a ＝ 参数_文本 [n1]
变量循环首 (n1 ＋ 1, 取数组成员数 (参数_文本), 1, m1)
如果 (局变_对比a ＝ 参数_文本 [m1])
局变_标记 [m1] ＝ 2


跳出循环 ()

变量循环尾 ()

' 3  2   0  跳过

计次循环尾 ()
' ===========================================================    这段能让添加返回值时更快
重定义数组 (参数_重复数组, 假, 取数组成员数 (参数_文本))
m1 ＝ 0
计次循环首 (取数组成员数 (参数_文本), n1)
如果 (局变_标记 [n1] ＝ 0 或 局变_标记 [n1] ＝ 3)
m1 ＝ m1 ＋ 1
参数_重复数组 [m1] ＝ 参数_文本 [n1]



计次循环尾 ()
重定义数组 (参数_重复数组, 真, m1)
' ===========================================================   下面 原始 思路
. ' 计次循环首 (取数组成员数 (参数_文本), n1)
. ' 如果 (局变_标记 [n1] ＝ 0 或 局变_标记 [n1] ＝ 3)
' 加入成员 (参数_重复数组, 参数_文本 [n1])


. ' 如果 (局变_标记 [n1] ＝ 1)
' ' 暂停 ()


. ' 如果 (局变_标记 [n1] ＝ 2)


' ' 暂停 ()  ' 不可能到这里


' ' 1 不存在
' ' 2  跳过

. ' 计次循环尾 ()

.版本 2<br /> <br /> .子程序 数组模块_去重复6_排序后标记法, , 公开, 排序过的<br /> .参数 参数_文本, 文本型, 数组<br /> .参数 参数_重复数组, 文本型, 数组<br /> .局部变量 局变_标记, 整数型, , "0"<br /> .局部变量 n1, 整数型<br /> .局部变量 局变_对比a, 文本型<br /> .局部变量 m1, 整数型<br /> <br /> <br /> 清除数组 (参数_重复数组)<br /> 排序模块_快速排序_文本 (参数_文本)<br /> <br /> 重定义数组 (局变_标记, 假, 取数组成员数 (参数_文本))<br /> <br /> .计次循环首 (取数组成员数 (参数_文本) － 1, n1)<br /> <br />     .如果 (参数_文本 [n1] ＝ 参数_文本 [n1 ＋ 1])<br />         连续赋值 (1, 局变_标记 [n1], 局变_标记 [n1 ＋ 1])  ' 1  是重复的<br /> <br />     .否则<br />         ' 0 是 无重复数据<br />     .如果结束<br /> <br /> .计次循环尾 ()<br /> <br /> .计次循环首 (取数组成员数 (参数_文本) － 1, n1)<br /> <br />     .如果 (局变_标记 [n1] ＝ 1)<br /> <br />         局变_标记 [n1] ＝ 3<br />         局变_对比a ＝ 参数_文本 [n1]<br /> <br />         .变量循环首 (n1 ＋ 1, 取数组成员数 (参数_文本), 1, m1)<br /> <br />             .如果 (局变_对比a ＝ 参数_文本 [m1])<br />                 局变_标记 [m1] ＝ 2<br />             .否则<br /> <br />                 跳出循环 ()<br />             .如果结束<br /> <br />         .变量循环尾 ()<br /> <br />     .否则<br />         ' 3  2   0  跳过<br />     .如果结束<br /> <br /> .计次循环尾 ()<br /> <br /> ' ===========================================================    这段能让添加返回值时更快<br /> <br /> 重定义数组 (参数_重复数组, 假, 取数组成员数 (参数_文本))<br /> <br /> m1 ＝ 0<br /> .计次循环首 (取数组成员数 (参数_文本), n1)<br /> <br />     .如果 (局变_标记 [n1] ＝ 0 或 局变_标记 [n1] ＝ 3)<br />         m1 ＝ m1 ＋ 1<br />         参数_重复数组 [m1] ＝ 参数_文本 [n1]<br />     .否则<br /> <br />     .如果结束<br /> <br /> .计次循环尾 ()<br /> <br /> 重定义数组 (参数_重复数组, 真, m1)<br /> <br /> ' ===========================================================   下面 原始 思路<br /> .' 计次循环首 (取数组成员数 (参数_文本), n1)<br /> <br />     .' 如果 (局变_标记 [n1] ＝ 0 或 局变_标记 [n1] ＝ 3)<br /> <br />         ' 加入成员 (参数_重复数组, 参数_文本 [n1])<br />     .否则<br /> <br />         .' 如果 (局变_标记 [n1] ＝ 1)<br />             ' ' 暂停 ()<br />         .否则<br /> <br />             .' 如果 (局变_标记 [n1] ＝ 2)<br /> <br />             .否则<br /> <br />                 ' ' 暂停 ()  ' 不可能到这里<br />             .如果结束<br /> <br />         .如果结束<br /> <br />         ' ' 1 不存在<br />         ' ' 2  跳过<br />     .如果结束<br /> <br /> .' 计次循环尾 ()

  

子程序名	返回值类型	公开	备 注
数组模块_去重复3_排序后	整数型		对文本排序后 ，再循环去重复  ，会对原来顺序产生影响///' 飘逸_yjwfdc  写的去重复
参数名	类 型	参考	可空	数组	备 注
参数_数组	文本型				传入要处理的数组，返回处理的结果

变量名	类 型	静态	数组	备 注
i	整数型
记录位置	整数型
成员数	整数型

数组模块_快速排序_文本 (参数_数组, 真)
成员数 ＝ 取数组成员数 (参数_数组)
记录位置 ＝ 1
判断循环首 (记录位置 ≤ 成员数)
i ＝ i ＋ 1
参数_数组 [i] ＝ 参数_数组 [记录位置]
循环判断首 ()
记录位置 ＝ 记录位置 ＋ 1
如果真 (记录位置 ＞ 成员数)
跳出循环 ()

循环判断尾 (参数_数组 [i] ＝ 参数_数组 [记录位置])
判断循环尾 ()
重定义数组 (参数_数组, 真, i)
返回 (取数组成员数 (参数_数组))
' 飘逸_yjwfdc  写的去重复

.版本 2<br /> <br /> .子程序 数组模块_去重复3_排序后, 整数型, 公开, 对文本排序后 ，再循环去重复  ，会对原来顺序产生影响///' 飘逸_yjwfdc  写的去重复 <br /> .参数 参数_数组, 文本型, 参考 数组, 传入要处理的数组，返回处理的结果<br /> .局部变量 i, 整数型<br /> .局部变量 记录位置, 整数型<br /> .局部变量 成员数, 整数型<br /> <br /> 数组模块_快速排序_文本 (参数_数组, 真)<br /> 成员数 ＝ 取数组成员数 (参数_数组)<br /> <br /> 记录位置 ＝ 1<br /> .判断循环首 (记录位置 ≤ 成员数)<br />     i ＝ i ＋ 1<br />     参数_数组 <i> ＝ 参数_数组 [记录位置]<br />     .循环判断首 ()<br />         记录位置 ＝ 记录位置 ＋ 1<br />         .如果真 (记录位置 ＞ 成员数)<br />             跳出循环 ()<br />         .如果真结束<br /> <br />     .循环判断尾 (参数_数组 <i> ＝ 参数_数组 [记录位置])<br /> <br /> .判断循环尾 ()<br /> 重定义数组 (参数_数组, 真, i)<br /> 返回 (取数组成员数 (参数_数组))<br /> <br /> ' 飘逸_yjwfdc  写的去重复

柠檬秋刀鱼

66666666666666666

qf123

666666666666666666

603007856

66666666666666

dol

666666666666666666666

li110

小小心意，意思一下

猪天神魔

6666666666666666666666666

sampo

        支持开源~！感谢分享

956985425

赞

JYYeah

支持开源~！感谢分享