sammenligne arrays

Da VBscript (så vidt jeg ved) mangler en indexOf-function, bliver man nok nødt til at løbe igennem de to arrays og sammenligne værdierne 1 ad gangen.

ex:

For i1 = 0 To Ubound(arr1)
  isUnique = true
  For i2 = 0 To Ubound(arr2)
    If arr1(i1) = arr2(i2) Then
      isUnique = false
      Exit For
    End If
  Next
  If isUnique Then
    ' udskriv værdi, eller gem den i nyt array
  End If
Next

Fandt ud af det på den her måde:

Set Dic = Server.CreateObject("Scripting.Dictionary")

arrH = Split(strH, ",")
For i = LBound(arrH) To UBound(arrH)
    If Not Dic.Exists(arrH(i)) Then
        Call Dic.Add(arrH(i), arrH(i))
    End If
Next

arrU = Split(strU, ",")
For t = LBound(arrU) To UBound(arrU)
    If Not Dic.Exists(arrU(t)) Then
        Call Dic.Add(arrU(t), arrU(t))
    End If
Next

arrFinal = Dic.Keys


For i = 0 to ubound(arrFinal)
    'Skriver værdier ud f.eks.
    Response.Write(arrFinal(i) & "<br>")
Next

Og den nupper jeg :)