超级————数组去重复

rectdbszy

是不是实用，你用一下，好用点个好评，点好评不花你一个精币，但意义就不同，会给创作者动力。

  

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

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

置随机数种子 ()

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

编辑框1.内容 ＝ “”
编辑框4.内容 ＝ “”
标签1.标题 ＝ “二维数组” ＋ 编辑框7.内容 ＋ “个”
计次循环首 (到整数 (编辑框7.内容), )
编辑框1.加入文本 (“我的体重=” ＋ 到文本 (取随机数 (20, 50)) ＋ “:” ＋ “我的身高=” ＋ 到文本 (取随机数 (90, 130)) ＋ #换行符 )
计次循环尾 ()

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

编辑框2.内容 ＝ “”
编辑框3.内容 ＝ “”
编辑框5.内容 ＝ “”
编辑框6.内容 ＝ “”
标签2.标题 ＝ “数组1：” ＋ 编辑框7.内容 ＋ “个”
标签3.标题 ＝ “数组2：” ＋ 编辑框7.内容 ＋ “个”
计次循环首 (到整数 (编辑框7.内容), )
编辑框2.加入文本 (到文本 (取随机数 (1, 1000000)) ＋ #换行符 )
编辑框3.加入文本 (到文本 (取随机数 (1, 1000000)) ＋ #换行符 )
计次循环尾 ()

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

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

超级_数组二维_去重复 (编辑框1.内容, “:”, 2, 数组, 数组1, 数组2)
调试输出 (数组)
调试输出 (数组1)
调试输出 (数组2)
标签4.标题 ＝ “去重结果” ＋ 到文本 (取数组成员数 (数组))
计次循环首 (取数组成员数 (数组), i)
编辑框4.加入文本 (数组 [i] ＋ #换行符 )
计次循环尾 ()

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

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

数组1 ＝ 分割文本 (编辑框2.内容, #换行符, )
数组_去重复 (数组1, )
调试输出 (数组1)
数组2 ＝ 分割文本 (编辑框3.内容, #换行符, )
数组_去重复 (数组2, )
调试输出 (数组2)
判断 (组合框1.内容 ＝ “去数组1重复”)
超级_数组相对_去重复 (数组2, 数组1)
调试输出 (数组1)
标签5.标题 ＝ “去重结果:” ＋ 到文本 (取数组成员数 (数组1))
计次循环首 (取数组成员数 (数组1), i)
编辑框5.加入文本 (数组1 [i] ＋ #换行符 )
计次循环尾 ()

判断 (组合框1.内容 ＝ “去数组2重复”)
超级_数组相对_去重复 (数组1, 数组2)
调试输出 (数组2)
标签6.标题 ＝ “去重结果:” ＋ 到文本 (取数组成员数 (数组2))
计次循环首 (取数组成员数 (数组2), ii)
编辑框6.加入文本 (数组2 [ii] ＋ #换行符 )
计次循环尾 ()

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

.版本 2<br /> .支持库 spec<br /> <br /> .程序集 窗口程序集_启动窗口<br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> 置随机数种子 ()<br /> <br /> .子程序 _按钮1_被单击<br /> <br /> 编辑框1.内容 ＝ “”<br /> 编辑框4.内容 ＝ “”<br /> 标签1.标题 ＝ “二维数组” ＋ 编辑框7.内容 ＋ “个”<br /> <br /> .计次循环首 (到整数 (编辑框7.内容), )<br />     编辑框1.加入文本 (“我的体重=” ＋ 到文本 (取随机数 (20, 50)) ＋ “:” ＋ “我的身高=” ＋ 到文本 (取随机数 (90, 130)) ＋ #换行符)<br /> .计次循环尾 ()<br /> <br /> .子程序 _按钮2_被单击<br /> <br /> 编辑框2.内容 ＝ “”<br /> 编辑框3.内容 ＝ “”<br /> 编辑框5.内容 ＝ “”<br /> 编辑框6.内容 ＝ “”<br /> 标签2.标题 ＝ “数组1：” ＋ 编辑框7.内容 ＋ “个”<br /> 标签3.标题 ＝ “数组2：” ＋ 编辑框7.内容 ＋ “个”<br /> .计次循环首 (到整数 (编辑框7.内容), )<br />     编辑框2.加入文本 (到文本 (取随机数 (1, 1000000)) ＋ #换行符)<br />     编辑框3.加入文本 (到文本 (取随机数 (1, 1000000)) ＋ #换行符)<br /> .计次循环尾 ()<br /> <br /> <br /> .子程序 _按钮3_被单击<br /> .局部变量 数组, 文本型, , "0"<br /> .局部变量 数组1, 文本型, , "0"<br /> .局部变量 数组2, 文本型, , "0"<br /> .局部变量 i, 整数型<br /> <br /> <br /> <br /> 超级_数组二维_去重复 (编辑框1.内容, “:”, 2, 数组, 数组1, 数组2)<br /> 调试输出 (数组)<br /> 调试输出 (数组1)<br /> 调试输出 (数组2)<br /> 标签4.标题 ＝ “去重结果” ＋ 到文本 (取数组成员数 (数组))<br /> .计次循环首 (取数组成员数 (数组), i)<br /> <br />     编辑框4.加入文本 (数组 <i> ＋ #换行符)<br /> <br /> .计次循环尾 ()<br /> <br /> <br /> <br /> .子程序 _按钮4_被单击<br /> .局部变量 数组1, 文本型, , "0"<br /> .局部变量 数组2, 文本型, , "0"<br /> .局部变量 i, 整数型<br /> .局部变量 ii, 整数型<br /> <br /> 数组1 ＝ 分割文本 (编辑框2.内容, #换行符, )<br /> 数组_去重复 (数组1, )<br /> 调试输出 (数组1)<br /> 数组2 ＝ 分割文本 (编辑框3.内容, #换行符, )<br /> 数组_去重复 (数组2, )<br /> 调试输出 (数组2)<br /> <br /> .判断开始 (组合框1.内容 ＝ “去数组1重复”)<br />     超级_数组相对_去重复 (数组2, 数组1)<br />     调试输出 (数组1)<br />     标签5.标题 ＝ “去重结果:” ＋ 到文本 (取数组成员数 (数组1))<br />     .计次循环首 (取数组成员数 (数组1), i)<br /> <br />         编辑框5.加入文本 (数组1 <i> ＋ #换行符)<br /> <br />     .计次循环尾 ()<br /> <br /> .判断 (组合框1.内容 ＝ “去数组2重复”)<br />     超级_数组相对_去重复 (数组1, 数组2)<br />     调试输出 (数组2)<br />     标签6.标题 ＝ “去重结果:” ＋ 到文本 (取数组成员数 (数组2))<br />     .计次循环首 (取数组成员数 (数组2), ii)<br /> <br />         编辑框6.加入文本 (数组2 [ii] ＋ #换行符)<br /> <br />     .计次循环尾 ()<br /> <br /> .默认<br /> <br /> .判断结束

rectdbszy

二维去重复时，可随意用二维成员1，成员2作为对比，可把 超级_数组二维_去重复 (编辑框1.内容, “:”, 2, 数组, 数组1, 数组2)中的，数组1，数组2参数调换位置。超级_数组二维_去重复 (编辑框1.内容, “:”, 2, 数组, 数组2, 数组1)，得到结果

rectdbszy

下一次会更新，数组排序，也是排除用列表来排序，方便在任何场景下调用。排序方式你说了算，整数，文本，时间，逻辑型，从大到小，从小到大，随意思。


另一外个想法，出一个统计数组成员出现的多少来正反排序。适合有这类须要，如统计彩票号。。。。

rectdbszy

正在更新中，加了几个，把目录发出来，给点意见，是不是实用，不适用好删除了再发出来。

lhn0925

学习一下

year1970

谢谢分享 学习 学习

南絮

感谢感谢

猪天神魔

6666666666666666666666666666666666666666666

azmy2010

感谢分享~~~~~~

二一八二七零

谢谢楼主分享。4。23。。1。5。

shuaier

感谢楼主分享，支持一下~~！！！

chr8828

感谢发布原创作品，精易因你更精彩！

waryes

多谢你的分享

呼啦啦啦啦啦

看看怎么样 正好需要这方面