整数型数组，去重复

xhd7908491

整数型数组A（7）。数字分别是9，1，1，3，3，3，7。
如何把重复的数组删除掉，变成数组A（4）9-1-3-7

yudave

就来看看了

toorup

文本处理的，要数字再转一下

事件 主窗口.创建完毕()
        变量 数组1 为 文本型() =分割文本("9-1-1-3-3-3-7","-")
        变量 文本1 为 文本型
        变量 数1 为 整数型
        变量 数2 为 整数型
        变量 筛选文本 为 文本型
        变量循环首 数1 =0 至 取数组成员数(数组1)-1
                变量 计次 为 整数型= 0
                变量循环首 数2=0 至 取数组成员数(数组1)-1
                        如果 数组1(数1)=数组1(数2) 且 数1<>数2 则
                                计次=计次+1
                        结束 如果
                变量循环尾
                如果 计次=0 则
                        文本1=文本1 & 数组1(数1)
                否则
                        如果 寻找文本(筛选文本,数组1(数1),0) = -1 则
                                文本1=文本1 & 数组1(数1)
                                筛选文本=筛选文本 & 数组1(数1)
                        结束 如果
                结束 如果
               
        变量循环尾
        编辑框1.内容=文本1
结束 事件

dsgsd5g4564

精易模块里 有数组去重