Das Notes Forum

Domino 9 und frühere Versionen => Entwicklung => Thema gestartet von: Gravedigger am 02.06.03 - 15:10:32

Titel: @Unique in LotusScript?
Beitrag von: Gravedigger am 02.06.03 - 15:10:32

Hallo,

weis jemand wie das Gegenstück von @Unique in LotusScript heißt?

Danke

Titel: Re:@Unique in LotusScript?
Beitrag von: eknori am 02.06.03 - 15:13:43

resultlist = evaluate("@unique(source)", doc)

wenn du die Werte aus einem doc direkt auslesen kannst

oder wenn du eine Werteliste übergibst

Function Unique(vSourceArray As Variant)
Dim iFound As Integer
Dim sTargetArray() As Variant

Redim sTargetArray(0) As Variant
sTargetArray(0) = ""

Forall sText In vSourceArray
iFound = False
Forall sNewText In sTargetArray
If sText = sNewText Then
iFound = True
Exit Forall
End If
End Forall
If Not iFound Then
If sTargetArray(0) ="" Then ' First time
sTargetArray(0) = sText
Else
Redim Preserve sTargetArray(Ubound(sTargetArray)+1)
sTargetArray(Ubound(sTargetArray)) = sText
End If
End If
End Forall

Unique = sTargetArray
End Function

eknori

Titel: Re:@Unique in LotusScript?
Beitrag von: Meff am 02.06.03 - 15:15:32

Die schönsten Antworten kommen einfach immer von eknori.

Ich bin begeistert  ;D ;D ;D ;D ;D ;D


Meff