This code suggested by Vuott of Gambas-it.org, it only uses the two arrays. http://www.gambas-it.org/smf/index.php?topic=5876.msg42088#msg42088
Regards Gianluigi 2017-08-25 0:58 GMT+02:00 PICCORO McKAY Lenz <mckaygerh...@gmail.com>: > 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 <bagone...@gmail.com>: > > > I don't know if this can help you. > > https://gambas-playground.proko.eu/?gist=c6e63a84d209911a2b3ff50d2b46a3 > 68 > > Regards > > Gianluigi > > > > 2017-08-24 22:39 GMT+02:00 herberth guzman <herberthguz...@gmail.com>: > > > > > 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@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@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@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@lists.sourceforge.net https://lists.sourceforge.net/lists/listinfo/gambas-user
