Jämföra arrayer

Jag har lagrat olika id från olika tabeller i varsin array, nu vill jag jämföra de id som finns i arrayerna men vet inte hur jag gör...någon som kan hjälpa mig??

------------------
/Andreas

Det är enklast att jämföra arrayerna om man sorterar dom först.

if  UBOUND(id1) = UBOUND(id2) then
    equal = true
    sort(id1)
    sort(id2)
    for i = 0 to ubound(id1)
        if id1(i) <> id2(i) then
           equal = false
           exit for
        end if
    next
else
    equal = false
end if

Ja, du kanske behöver en sorteringsrutin också.

sub sort(arr)
Dim sorted,i,tmp
sorted = false
while sorted = false
   sorted = true
   for i = 0 to ubound(arr) - 1
       if cint(arr(i)) > cint(arr(i+1)) then
          sorted = false
          tmp = arr(i)
          arr(i) = arr(i+1)
          arr(i+1) = tmp
       end if
  next
wend
end sub

Helt otestat, naturligtvis ;)

------------------
essentitia preter non sans multiplicandum