Domino 9 und frühere Versionen > Entwicklung

Doppelte Werte aus Array entfernen

(1/1)

doliman:
Hi,

gibt es eine Funktion, mit der ich doppelte Werte aus einem Array entfernen kann.
Fulltrim geht nicht!

Till_21:
@unique

oder in LS:

Function Unique(vIn As Variant) As Variant
   Dim lsTemp List As String  
   Dim astemp() As String    
   Dim iCount As Integer  
   
   If Not Isarray(vIn) Then
      Unique = vIn
      Exit Function
   Elseif Typename( vIn(0) ) <> "STRING" Then
      Unique = vIn
      Exit Function
   End If
   
   Forall s In vIn
      If Not Iselement( lsTemp(s) ) Then
         lsTemp(s) = ""
         iCount = iCount + 1
      End If
   End Forall
   
   Redim asTemp(iCount-1)
   
   iCount = 0
   Forall v In lsTemp
      asTemp(iCount) = Listtag(v)
      iCount = iCount + 1
   End Forall
   
   Unique = asTemp
End Function

doliman:
Hi,

danke für die rasche Antwort und das Script. Leider hat das nicht den gewünschten Effekt.
Die Werte werden weiterhin DOppelt in das Feld eingetragen.
Ich werde mir wohl eine Funktion schreibne müssen.
Trotzdem Dank.

cpo:
Hi,
kannst Du nicht einfach im Feld einen Unique machen? Ist m.E. die einfachste und schnellste Lösung.
CPO

Navigation

[0] Themen-Index