Das Notes Forum

Domino 9 und frühere Versionen => Entwicklung => Thema gestartet von: doliman am 06.03.03 - 08:55:12

Titel: Doppelte Werte aus Array entfernen
Beitrag von: doliman am 06.03.03 - 08:55:12

Hi,

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

Titel: Re:Doppelte Werte aus Array entfernen
Beitrag von: Till_21 am 06.03.03 - 09:18:02

@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

Titel: Re:Doppelte Werte aus Array entfernen
Beitrag von: doliman am 06.03.03 - 09:25:43

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.

Titel: Re:Doppelte Werte aus Array entfernen
Beitrag von: cpo am 06.03.03 - 09:30:36

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