使多个值在数组中完全唯一 [英] Making multiple values completely unique in an array

问题描述

关于在一维数组中创建一组选定的值，我有一个问题，如下所示：

I have a bit of a question about making a selected set of values in a single dimensional array like so:

Product1

产品1

产品1

产品2

产品2

  ;

输出为：

产品1

产品2

非常简单只是想知道你该怎么做？

Very simple just wondered how you do that please?

推荐答案

使用Collection或Dictionary对象（Dictionary需要引用VBscript）

Sub uniques（）

Dim oColl As New Collection



On Error Resume Next

oColl。添加"product1"，"Product1"和
oColl.Add" product1"，"Product1"

On Error GoTo 0



MsgBox oColl.Count



结束子

Use a Collection or a Dictionary object (Dictionary requires reference to VBscript)
Sub uniques()
Dim oColl As New Collection

On Error Resume Next
oColl.Add "product1", "Product1"
oColl.Add "product1", "Product1"
On Error GoTo 0

MsgBox oColl.Count

End Sub

这篇关于使多个值在数组中完全唯一的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！