LotusScript Gemeinsame Elemente in zwei Arrays

Question

Ich habe zwei Arrays, die nicht geordnet sind und unterschiedlich lang sein können, ich möchte ein neues Array erstellen, das nur die gemeinsamen Elemente enthält. Ich brauche eine Funktion wie newArray = commonElements (Array1, Array2) in LotusScript.

Ich habe mich nach einem Codebeispiel umgeschaut, konnte aber keins finden. Ich war in der Lage, dies zu schaffen, aber mit viel mehr Looping, als ich denke, sollte notwendig sein.

Können Sie mich auf eine Lösung hinweisen?

Answer 1

Diese Funktion gibt die gemeinsamen Elemente beider Arrays:

Function commonElements(array1 As Variant, array2 As Variant) As Variant 
    Dim newArray() As Variant 
    Dim i As Integer 
    i=0 
    ForAll v In array1 
     If ArrayGetIndex(array2, v, 0) >= 0 Then 
      ReDim Preserve newArray(i) 
      newArray(i) = v 
      i = i + 1 
     End If 
    End ForAll 
    commonElements = newArray 
End Function 

Answer 2

Diese für String-Arrays arbeitet, habe ich nicht getestet mit Zahlen:

FullTrim(ArrayReplace(src1, ArrayReplace(src1, src2, Null), Null)) 

Answer 3

Ich habe Knut-Lösung verwendet, aber es brauchen um zwei Arrays unbekannter Länge vergleichen zu können. So verändert der Zyklus ForAll muss durch die längere der beiden Arrays:

Function commonElements(array1 As Variant, array2 As Variant) As Variant 
    Dim newArray() As Variant 
    Dim bigArray As Variant 
    Dim smallArray As Variant 
    If (UBound(Array1) => UBound(Array2)) Then 
     bigArray = array1 
     smallArray = array2 
    Else 
     bigArray = array2 
     smallarray = array1 
    End If 
    Dim i As Integer 
    i=0 
    ForAll v In bigArray 
     If ArrayGetIndex(smallArray, v, 0) >= 0 Then 
      ReDim Preserve newArray(i) 
      newArray(i) = v 
      i = i + 1 
     End If 
    End ForAll 
    commonElements = newArray 
End Function