如何使用VBscript从值列表中获取唯一值？

Question

假设Excel工作表有一个名为Student Names的列,并且该列具有重复值.说,

Student
=======

Arup
John
Mike
John
Lisa
Arup

使用VBScript,我如何获得如下的唯一值？

Arup
John
Lisa
Mike

Answer 1

用于获取唯一项的VBScript工具是一个字典:将所有项添加为字典和字典的键.Keys()将返回 - 每个definitionem - 唯一键的数组.在代码中:

  Dim aStudents : aStudents = Array("Arup", "John", "Mike", "John", "Lisa", "Arup")
  WScript.Echo Join(aStudents)
  Dim aUniqStudents : aUniqStudents = uniqFE(aStudents)
  WScript.Echo Join(aUniqStudents)

' returns an array of the unique items in for-each-able collection fex
Function uniqFE(fex)
  Dim dicTemp : Set dicTemp = CreateObject("Scripting.Dictionary")
  Dim xItem
  For Each xItem In fex
      dicTemp(xItem) = 0
  Next
  uniqFE = dicTemp.Keys()
End Function

输出:

Arup John Mike John Lisa Arup
Arup John Mike Lisa