sorry, changed:
If InStr(ssB[i],sA,1,gb.Ignorecase) > 0 Then
ssA.Remove(e)
ssC.Push(ssB[i])
ssB.Remove(i)
Break
Endif
now done, only return the local theme for user.. not for system theme
Lenz McKAY Gerardo (PICCORO)
http://qgqlochekone.blogspot.com
2017-08-24 19:09 GMT-04:00 PICCORO McKAY Lenz <mckaygerh...@gmail.com>:
> hey herbert, made it .. only return the local theme: the hint:
>
> https://gambas-playground.proko.eu/?gist=c6e63a84d209911a2b3ff50d2b46a368
>
> Dim sA As String
> Dim i, e As Integer
> Dim ssA As String[] = ["usr/share/Lopez", "Anderson", "Clark", "Wright",
> "Mitchell", "Johnson", "Thomas", "Rodriguez"]
> Dim ssB As String[] = ["Johnson", "usr/local/Lopez", "Perez", "Wright",
> "Williams", "Smith", "Thomas", "Jones", "Anderson"]
> Dim ssC As New String[]
>
> For e = ssA.Max To 0 Step -1
> sA = ssA[e]
> For i = ssB.Max To 0 Step -1
> sA = Replace$(sA, "usr/share/", "")
> If InStr(ssB[i],sA,1,gb.Ignorecase) > 0 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
> Print sA
> Next
>
> Lenz McKAY Gerardo (PICCORO)
> http://qgqlochekone.blogspot.com
>
> 2017-08-24 18:58 GMT-04: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=c6e63a84d209911a2b3
>>> ff50d2b46a368
>>> 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
