Duplicate Array Function Help 1

[ncar35b]

Hello, I'm trying to use this function to find out if an array has duplicates. When duplicates exist, the result is true.


<%
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
%>


When I use the function like this:

response.write HasDups(array(testone, testtwo, testthree, testone)) -- the result is true.

However when I try to use a string:

testString = "testone, testtwo, testthree, testone"
response.write HasDups(array(testString)) the result is false.

It should be true, since the array has a dupe!

Any idea why this happens?

 

[Genimuse]

The Array() function doesn't work like that. This

Array("testone", "testtwo", "testthree", "testone")

will result in a four-member array, with element 0 containing "testone", but this

Array("testone, testtwo, testthree, testone")

will result in a one-member array, with element 0 containing "testone, testtwo, testthree, testone". It's easy to test:

Response.Write(UBound(Array("testone, testtwo, testthree, testone")))

 

[Genimuse]

Oh, and if you really wanted to pass your testString to your function as an array, you could do:

response.write HasDups(Split(testString, ", "))

I believe.

 

[ncar35b]

Thanks Genimuse, is there any way to take my four-member array:

testString = "testone, testtwo, testthree, testone"

and make it into a one member array so it will work?

 

[ncar35b]

Thanks Genimuse, you beat me to it!!

 

[shaddow]

You can also use Scripting.Dictionary objectm it has some usefull methods & properties to work with, and it can contain any type of data.

http://www.devguru.com/Technologies/vbscript/quickref/dictionary.html

________
George, M
Searches(faq333-4906),Carts(faq333-4911)