VBS 数组Array 去重Unique
VBS 的数组没有去除重复值的方法 在网上搜了一圈， 找到一个可以无脑抄的方案 感谢 https://stackoverflow.com/questions/13743165/how-to-get-unique-values-from-a-list-of-values-using-vbscript#13744080 ' 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
