[Gambas-user] I need a hint on how to delete duplicate items in a array

PICCORO McKAY Lenz mckaygerhard at ...626...
Fri Aug 25 00:58:30 CEST 2017


thanks gianluigi.. i'm search for same function..

Lenz McKAY Gerardo (PICCORO)
http://qgqlochekone.blogspot.com

2017-08-24 18:04 GMT-04:00 Gianluigi <bagonergi at ...626...>:

> I don't know if this can help you.
> https://gambas-playground.proko.eu/?gist=c6e63a84d209911a2b3ff50d2b46a368
> Regards
> Gianluigi
>
> 2017-08-24 22:39 GMT+02:00 herberth guzman <herberthguzman at ...626...>:
>
> > Hi Benoit, how are you..?
> >
> > I have a question, I'm lost
> > Lol
> >
> > I need a hint on how to delete duplicate items in a array
> >
> > I have the following function (I send you the code)
> > And if he works
> >
> >
> > Example
> >
> > For Each sDir In ["/usr/share/themes/", Desktop.DataDir &/ "themes/"]
> >   For Each sNames In RDir(sDir, "*", gb.Directory)
> >
> >   Print sNames
> >
> >   Next
> > Next
> >
> >
> > The problem is the following:
> >
> > I have /usr/share/themes/Ambiance
> > I have /home/herberth.local/share/themes/Ambiance
> >
> > And I only need one Ambiance
> > And not two Ambiance
> >
> > Please help me solve my problem, I have two days and I can not. I want to
> > cry.
> > Lol
> >
> >
> > Attachme my complete code
> >
> >
> >
> >
> > Private Function ReturnArrays(SortedArray As String[], withNumber As
> > Boolean) As String[]
> >
> >   Dim sSingle, sWithNumber As New String[]
> >   Dim i, n As Integer
> >
> >   For i = 0 To SortedArray.Max
> >     ' You can avoid with Tobias's trick (For i = 1 To ...)
> >     If i < SortedArray.Max Then
> >       If SortedArray[i] = SortedArray[i + 1] Then
> >         Inc n
> >       Else
> >         Inc n
> >         sSingle.Push(SortedArray[i])
> >         sWithNumber.Push(n & SortedArray[i])
> >         n = 0
> >       Endif
> >     Endif
> >   Next
> >   Inc n
> >   sSingle.Push(SortedArray[SortedArray.Max])
> >   sWithNumber.Push(n & SortedArray[SortedArray.Max])
> >   If withNumber Then
> >     Return sWithNumber
> >   Else
> >     Return sSingle
> >   Endif
> >
> > End
> >
> > Public Sub sListTheme()
> >
> >   Dim sDir As String
> >   Dim sFiles As String
> >   Dim sSort As String[]
> >   Dim s As String
> >
> >
> >   For Each sDir In ["/usr/share/themes/", Desktop.DataDir &/ "themes/"]
> >
> >     For Each sFiles In Dir(sDir, "*", gb.Directory).Sort()
> >       sSort = [sFiles]
> >
> >         For Each s In ReturnArrays(sSort, 0)
> >          Print s
> >         Next
> >
> >       Next
> >   Next
> >
> > End
> >
> >
> > If you can help me I'll thank you.
> > Thank you.
> > Regards
> > ------------------------------------------------------------
> > ------------------
> > 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 at lists.sourceforge.net
> > https://lists.sourceforge.net/lists/listinfo/gambas-user
> >
> ------------------------------------------------------------
> ------------------
> 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 at lists.sourceforge.net
> https://lists.sourceforge.net/lists/listinfo/gambas-user
>



More information about the User mailing list