How to find duplicate value in VBScript

Arif Chowdhury
Arif Chowdhury used Ask the Experts™

I have a list of value like 2,3,4,3,5,6,8. I need a vbscript funciton which is show me the duplicate values from the array.

Thanks in advance
Watch Question

Do more with

Expert Office
EXPERT OFFICE® is a registered trademark of EXPERTS EXCHANGE®
Top Expert 2010
Private Function HasDups(byVal arrayinput)
	dim wkarray, j, i, l
	wkarray = arrayinput
	for j = 0 to ubound( wkarray )
		l = 0
		for i = 0 to ubound( wkarray )
			if wkarray(i) = wkarray(j) then l = l + 1
			if l > 1 then
				HasDups = True
				Exit function
			end if
	HasDups = False
End Function

 ' HasDups returns True 
 ' ( 1 is duplicated )
response.write HasDups( Array( 1,2,3,4,5,6,7,8,9,0,1 ) )

 ' HasDups returns False 
 ' (All items in the array are unique)
response.write HasDups( Array( 1,2,3,4,5,6,7,8,9,10,11 ) )

Open in new window

Top Expert 2010


Do more with

Expert Office
Submit tech questions to Ask the Experts™ at any time to receive solutions, advice, and new ideas from leading industry professionals.

Start 7-Day Free Trial