Hello,
look here:
8<-----------------------------------------------------------------------------------------
Public Function RemoveMultiple(aStringListe As String[]) As String[]
Dim iCount As Integer
Dim iIndex As Integer
Dim sElement As String
iIndex = 0 ' Initialisierung NICHT notwendig
While iIndex < aStringListe.Count
iCount = 0
sElement = aStringListe[iIndex]
While aStringListe.Find(sElement) <> -1
Inc iCount
aStringListe.Remove(aStringListe.Find(sElement))
Wend
If iCount Mod 2 = 1 Then
aStringListe.Add(sElement, iIndex)
Inc iIndex
Endif ' iCount Mod 2 = 1 ?
Wend
Return aStringListe
End ' RemoveMultiple(...)
8<-----------------------------------------------------------------------------------------
Hans
gambas-buch.de
------------------------------------------------------------------------------
Check out the vibrant tech community on one of the world's most
engaging tech sites, Slashdot.org! http://sdm.link/slashdot
_______________________________________________
Gambas-user mailing list
Gambas-user@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/gambas-user
