Domino 9 und frühere Versionen > Entwicklung

@Unique in LotusScript?

(1/1)

Gravedigger:
Hallo,

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

Danke

eknori:
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

Meff:
Die schönsten Antworten kommen einfach immer von eknori.

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


Meff

Navigation

[0] Themen-Index