Thank you all for helping me. Solve my problem, now it works fine. I show the code how it works.
Dim sResult_Theme As String Dim sA As String Dim i, e As Integer Dim ssA As String[] Dim ssB As String[] Dim ssC As New String[] Dim sListUser As String Dim sListShare As String ssA = New String[] For Each sDir In Dir("/usr/share/themes", Null, gb.Directory) ssA.Add(sDir) Next ssB = New String[] For Each sListUser In Dir( Desktop.DataDir &/ "themes/", Null, gb.Directory) ssB.Add(sListUser) Next For e = ssA.Max To 0 Step -1 sA = ssA[e] For i = ssB.Max To 0 Step -1 If sA = ssB[i] Then ssA.Remove(e) ssB.Remove(i) ssC.Push(sA) Break Endif Next Next ssC.Insert(ssA) ssC.Insert(ssB) ssC.Sort() For Each sA In ssC.Sort(gb.Ascent) Print sA Next Regards > >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 > > ------------------------------ > > Subject: Digest Footer > > _______________________________________________ > Gambas-user mailing list > Gambas-user@lists.sourceforge.net > https://lists.sourceforge.net/lists/listinfo/gambas-user > > > ------------------------------ > > End of Gambas-user Digest, Vol 135, Issue 89 > ******************************************** > ------------------------------------------------------------------------------ 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