Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- a = Array(1, 2, 3, 1, 2, 3)
- WScript.Echo Join(a)
- Set d = CreateObject("Scripting.Dictionary")
- For i = 0 To UBound(a)
- d(a(i)) = d(a(i)) + 1
- Next
- WScript.Echo Join(d.Keys())
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement