Hallo liebe Notes-Gurus.
ich habe mal wieder eine Script-Frage mit o.a. FM:
ich habe innerhalb eines Agenten 2 Listen, die ich vergleichen möchte.. wenn ein wert von Liste 1 nicht in Liste 2 vorhanden ist, soll er diesen Wert in eine neue Liste eintragen.
Dim DiffListold() As Variant
Dim DiffListnew() As Variant
Redim DiffListold(0)
Redim DiffListnew(0)
Dim i As Integer
i=0
Forall m In FullnameListold
indexresult = Arraygetindex( FullnameListnew , m)
If Isnull(indexresult) Then
difflistold= AddToList(m,Difflistold)
i=i+1
Redim Preserve DiffListold(i)
End If
i=i+1
End Forall
AddToList ist eine Funktion, die so aussieht.
Function AddToList (Value As Variant, ValueList As Variant)
Dim tmpValueList As Variant
' Load the array element by element so that the datatype is preserved
Redim tmpValueList(Ubound(ValueList))
For i = 0 To Ubound(ValueList)
tmpValueList(i) = ValueList(i)
Next
' Determine if we are dealing with a new list, if absolutely no
'values in the first entry, then add new value to 0
If Ubound(tmpValueList) = 0 And Cstr(tmpValueList(0)) = "" Then
x = 0
Else
x = Ubound(tmpValueList) + 1
End If
Redim Preserve tmpValueList(x)
tmpValueList(x) = Value
AddToList = tmpValueList
Valuelist=AddToList
End Function
bei dem Aufruf von "difflistold= AddToList(m,Difflistold)" bekomm ich die FM.
Wenn ich nur ein "Call AddToList(m,Difflistold)" aufrufe wird die Funktion zwar ausgeführt, aber meine Liste "DiffListold" natürlich nicht gefüllt.
Ich stell mich da grad recht dumm an.
Wie wäre denn der korrekte Aufruf.
Kann jemand helfen?
Danke & viele Grüße
Manu