Home > Archive > ASP > April 2007 > Return an Array that contains only the diffrent items from 2 arrays
You are viewing an archived Text-only version of the thread.
To view this thread in it's original format and/or if you want to reply to
this thread please [click here]
| Author |
Return an Array that contains only the diffrent items from 2 arrays
|
|
|
| <%
' Return item that are NOT duplicated in either array
function ShowDiff(array1, array2)
dim d, item, thekeys, build_arr
' Build Array - a command that will be Execute
build_arr = "anArray = ARRAY("
' Loop through the first array, add to output
for x = lbound(array1) to ubound(array1)
build_arr = build_arr & "array1(" & x & "), "
next
' Loop through the second array, add to output
for y = lbound(array2) to ubound(array2)
build_arr = build_arr & "array2(" & y & "), "
next
' Cleanup last comma
build_arr = left(build_arr, len(build_arr) - 2)
build_arr = build_arr & " )"
' Excute the build statement
execute build_arr
' Show differences
set d = CreateObject("Scripting.Dictionary")
d.removeall
d.CompareMode = 0
for each item in anArray
if not d.Exists(item) then
d.Add item, item
else
d.Remove item
end if
next
thekeys = d.keys
set d = nothing
ShowDiff = thekeys
end function
%>
| |
| Bob Barrows [MVP] 2007-04-26, 6:55 pm |
| Erv wrote:
> <%
> ' Return item that are NOT duplicated in either array
> function ShowDiff(array1, array2)
> dim d, item, thekeys, build_arr
>
> ' Build Array - a command that will be Execute
> build_arr = "anArray = ARRAY("
You expect us to embrace a script that uses Execute to execute a
string???
Give it some thought. I'm sure you can come up with a way to avoid
Execute.
--
Microsoft MVP -- ASP/ASP.NET
Please reply to the newsgroup. The email account listed in my From
header is my spam trap, so I don't check it very often. You will get a
quicker response by posting to the newsgroup.
|
|
|
|
|