|
发表于 2013-4-27 18:36:32
|
显示全部楼层
北京市北京市
[e]
.版本 2
.支持库 spec
.程序集 程序集1
.子程序 _启动子程序, 整数型, , 本子程序在程序启动后最先执行
.局部变量 文本, 文本型, , "0"
.局部变量 i, 整数型
.计次循环首 (30000, i)
加入成员 (文本, 到文本 (取随机数 (999999, 9999999)))
.计次循环尾 ()
调试输出 (取数组成员数 (文本))
去文本数组重复数据 (文本)
调试输出 (取数组成员数 (文本))
返回 (0) ' 可以根据您的需要返回任意数值
.子程序 去文本数组重复数据
.参数 文本数组, 文本型, 参考 数组
.局部变量 X, 整数型
.局部变量 键, 变体型
.局部变量 空变体型变量, 变体型
.局部变量 哈希表, 对象
X = 1
哈希表.创建 (“scripting.Dictionary”, )
.循环判断首 ()
键.赋值 (文本数组 [X], )
.如果 (哈希表.逻辑方法 (“Exists”, 键))
删除成员 (文本数组, X, )
.否则
哈希表.方法 (“Add”, 键, 空变体型变量)
置入代码 ({ 255, 69, 252 })
.如果结束
.循环判断尾 (X ≤ 取数组成员数 (文本数组))
[/e] |
|