Another very effective and simple would be: You have your array with data You create a new empty array.
Loop through each item in your array with data If it's not in the new array, then add it. Destroy the original array. Keep the new one. ...something like (syntax may not be correct) Public Function RemoveMultiple(a As String[]) As String[] Dim x as Integer Dim z as NEW STRING[] For x = 1 to a.count() if z.Find(a) = 0 Then z.Add(a[x]) Next Return z END -Nando (Canada) -- Open WebMail Project (http://openwebmail.org) ---------- Original Message ----------- From: Hans Lehmann <h...@gambas-buch.de> To: gambas-user@lists.sourceforge.net Sent: Tue, 27 Jun 2017 15:51:19 +0200 Subject: Re: [Gambas-user] I need a hint on how to deleted duplicate items in a array > 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 ------- End of Original Message ------- ------------------------------------------------------------------------------ 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