Le 28/08/2017 à 19:19, herberth guzman a écrit :
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
Isn't that faster?
Dim cThemes As New Collection
Dim sTheme As String
Dim sDir As String
For Each sDir In Dir("/usr/share/themes", Null, gb.Directory)
cThemes[sDir] = True
Next
For Each sDir In Dir(Desktop.DataDir &/ "themes/", Null,
gb.Directory)
cThemes[sDir] = True
Next
For Each cThemes
aThemes.Add(cThemes.Key)
Next
aThemes.Sort(gb.Ascent)
For Each sTheme In aThemes
Print aThemes
Next
--
Benoît Minisini
------------------------------------------------------------------------------
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