欢迎来到Doc100.Net免费学习资源知识分享平台!
您的位置:首页 > 程序异常 >

怎么去除数组中的重复元素

更新时间: 2014-01-05 01:52:53 责任编辑: Author_N1

 

如何去除数组中的重复元素?
如何去除数组中的重复元素?谁能用VBS写个函数,谢谢

--参考方法--
VBScript code


arr= Array(1,3,4,4,6,3,2,3,1)
WScript.Echo Join(distinct(arr), ",")
Function distinct(arr)

    Dim dic, i
    Set dic = CreateObject("Scripting.Dictionary")
    For i = 0 To UBound(arr)
        If Not dic.Exists("k_" & Cstr(arr(i))) Then
            dic.Add "k_" & Cstr(arr(i)), arr(i)
        End If
    Next
    distinct = dic.Items()
End Function 			
			
		
上一篇:上一篇
下一篇:下一篇

 

随机推荐程序问答结果

 

 

如对文章有任何疑问请提交到问题反馈,或者您对内容不满意,请您反馈给我们DOC100.NET论坛发贴求解。
DOC100.NET资源网,机器学习分类整理更新日期::2014-01-05 01:52:53
如需转载,请注明文章出处和来源网址:http://www.doc100.net/bugs/t/2463/
本文WWW.DOC100.NET DOC100.NET版权所有。