数组_去重复源码

无风不起浪

  

子程序名	返回值类型	公开	备 注
数组_去重复	整数型		返回剩余的元素数量 每个元素值在当前数组中都是唯一的
参数名	类 型	参考	可空	数组	备 注
待处理数组	文本型

变量名	类 型	静态	数组	备 注
比较索引	整数型
数组大小	整数型

比较索引 ＝ 1
数组大小=取数组成员数 (待处理数组)
判断循环首 (＞ 比较索引)
比较值1 ＝ 待处理数组 [比较索引]
bi ＝ 1
判断循环首 (数组大小 ＞ 比较索引 ＋ bi)
比较的 ＝ 待处理数组 [比较索引 ＋ bi]
如果真 (开始的 ＝ 比较的)
删除成员 (待处理数组, 比较索引 ＋ bi, 1)
数组大小 ＝ 数组大小 ＋ 1
bi ＝ bi － 1

bi ＝ bi ＋ 1
判断循环尾 ()
比较索引 ＝ 比较索引 ＋ 1
判断循环尾 ()

.版本 2<br /> <br /> .子程序 数组_去重复, 整数型, , 返回剩余的元素数量 每个元素值在当前数组中都是唯一的<br /> .参数 待处理数组, 文本型<br /> .局部变量 比较索引, 整数型<br /> .局部变量 数组大小, 整数型<br /> <br /> 比较索引 ＝ 1<br /> 数组大小=取数组成员数 (待处理数组)<br /> .判断循环首 (＞ 比较索引)<br />     比较值1 ＝ 待处理数组 [比较索引]<br /> <br />     bi ＝ 1<br /> <br />     .判断循环首 (数组大小 ＞ 比较索引 ＋ bi)<br />         比较的 ＝ 待处理数组 [比较索引 ＋ bi]<br />         .如果真 (开始的 ＝ 比较的)<br />             删除成员 (待处理数组, 比较索引 ＋ bi, 1)<br />             数组大小 ＝ 数组大小 ＋ 1<br /> <br />             bi ＝ bi － 1<br /> <br />         .如果真结束<br /> <br /> <br /> <br /> <br /> <br />         bi ＝ bi ＋ 1<br /> <br />     .判断循环尾 ()<br /> <br />     比较索引 ＝ 比较索引 ＋ 1<br /> .判断循环尾 ()

可能大家觉得 这函数 精易模块都有 干嘛还自己写  使用精易模块时间长了之后 总是感觉有些不对自己胃口的命令 于是自己动手改了个(精易模块的数组去重复命令有些时候会出现程序直接消失的情况 )

  精易模块的数组去重复竟然还使用xml对象 蛋疼

这个代码有点问题 没问题的在3楼

tinameimeilove

这个貌似之前看过一个例子，用变量循环会更快～

taodile

感谢分享，谢谢楼主~ 辛苦了~

世川

怎么处理的？学习

ourcafe

留名,备用!!

jypp546

不错 支持下
不错 支持下

歪歪匿名者

俺要回复，回复好贴，精币+1

2442295093

感谢分享，谢谢楼主~ 辛苦了~

编程爱好者007

学习了谢谢啊

无风不起浪

  

子程序名	返回值类型	公开	备 注
数组_去重复	整数型		返回剩余的元素数量 每个元素值在当前数组中都是唯一的
参数名	类 型	参考	可空	数组	备 注
待处理数组	文本型				会修改这个数组 如果不想修改参数数组 请备份一份

变量名	类 型	静态	数组	备 注
比较索引	整数型
数组大小	整数型
比较值1	文本型
bi	整数型
比较的	文本型

比较索引 ＝ 1
数组大小 ＝ 取数组成员数 (待处理数组)
判断循环首 (数组大小 ＞ 比较索引)
比较值1 ＝ 待处理数组 [比较索引]
bi ＝ 1
判断循环首 (数组大小 ≥ 比较索引 ＋ bi)
比较的 ＝ 待处理数组 [比较索引 ＋ bi]
如果真 (比较值1 ＝ 比较的)
删除成员 (待处理数组, 比较索引 ＋ bi, 1)
数组大小 ＝ 数组大小 － 1
bi ＝ bi － 1
bi ＝ bi ＋ 1
判断循环尾 ()
比较索引 ＝ 比较索引 ＋ 1
判断循环尾 ()
返回 (数组大小)

.版本 2<br /> <br /> .子程序 数组_去重复, 整数型, , 返回剩余的元素数量 每个元素值在当前数组中都是唯一的<br /> .参数 待处理数组, 文本型, 数组, 会修改这个数组 如果不想修改参数数组 请备份一份<br /> .局部变量 比较索引, 整数型<br /> .局部变量 数组大小, 整数型<br /> .局部变量 比较值1, 文本型<br /> .局部变量 bi, 整数型<br /> .局部变量 比较的, 文本型<br /> <br /> 比较索引 ＝ 1<br /> 数组大小 ＝ 取数组成员数 (待处理数组)<br /> .判断循环首 (数组大小 ＞ 比较索引)<br />     比较值1 ＝ 待处理数组 [比较索引]<br />     bi ＝ 1<br />     .判断循环首 (数组大小 ≥ 比较索引 ＋ bi)<br />         比较的 ＝ 待处理数组 [比较索引 ＋ bi]<br />         .如果真 (比较值1 ＝ 比较的)<br />             删除成员 (待处理数组, 比较索引 ＋ bi, 1)<br />             数组大小 ＝ 数组大小 － 1<br />             bi ＝ bi － 1<br />         .如果真结束<br />         bi ＝ bi ＋ 1<br />     .判断循环尾 ()<br />     比较索引 ＝ 比较索引 ＋ 1<br /> .判断循环尾 ()<br /> 返回 (数组大小)

这个是正常的  测试代码
.版本 2
.支持库 spec
.子程序 _临时子程序
.局部变量 测试数组, 文本型, , "7"
测试数组 ＝ { “1111”, “1111”, “1111”, “444”, “666”, “666”, “444”, “6890” }
调试输出 (数组_去重复 (测试数组))
调试输出 (测试数组)