How to find duplicate value in VBScript

Arif Chowdhury
Arif Chowdhury used Ask the Experts™
on
Hi

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
Comment
Watch Question

Do more with

Expert Office
EXPERT OFFICE® is a registered trademark of EXPERTS EXCHANGE®
Top Expert 2010
Commented:
http://www.psacake.com/web/func/hasdups_function.htm
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
		next
	next
	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

Commented:

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