Fondere due vettori in uno eliminando i duplicati

[Gianluigi]

Sulla ML c'è una richiesta su come eliminare gli elementi duplicati in un array.
Però poi spiega che ha due Ambiance ma ne vuole solo una.
/usr/share/themes/Ambiance
/home/herberth.local/share/themes/Ambiance
Pertanto deduco che possa avere due vettori Ambiance da fondere in uno senza duplicati.
Io ho suggerito questo postandolo su Playground: https://gambas-playground.proko.eu/?gist=c6e63a84d209911a2b3ff50d2b46a368

Voi che codice avreste suggerito?

 

[vuott]

Si potrebbe fare una cosa del genere:

Codice: [Seleziona]

Public Sub Main()

  Dim s As String
  Dim i As Integer
  Dim ssA As String[] = ["Smith", "Anderson", "Clark", "Wright", "Mitchell", "Johnson", "Thomas", "Rodriguez"]
  Dim ssB As String[] = ["Johnson", "Lopez", "Perez", "Wright", "Williams", "Smith", "Thomas", "Jones", "Anderson"]
  
   For Each s In ssB
     i = ssA.Find(s)
     If i > -1 Then
       ssA.Remove(i)
     Endif
   Next
    
   ssB.Insert(ssA)
   ssB.Sort()
 
   For Each s In ssB
     Print s
   Next
   
End

[Gianluigi]

Forte il metodo proposto da Minisini per eliminare i doppioni.
Per rimanere nella nostra semplificazione (anche se un po arzigogolato) lo si potrebbe scrivere così:

Codice: [Seleziona]

  Dim cThemes As New Collection
  Dim ssA As String[] = ["Johnson", "Lopez", "Perez", "Wright", "Williams", "Smith", "Thomas", "Jones", "Anderson"]
  Dim ssB As String[] = ["Smith", "Anderson", "Clark", "Wright", "Mitchell", "Johnson", "Thomas", "Rodriguez"]
  Dim aThemes As New String[]
  Dim sTheme As String
  Dim sDir As String

  For Each sDir In ssA
    cThemes[sDir] = True
  Next

  For Each sDir In ssB
    cThemes[sDir] = True
  Next

  For Each cThemes
    aThemes.Add(cThemes.Key)
  Next

  aThemes.Sort(gb.Ascent)

  For Each sTheme In aThemes
    Print sTheme
  Next

Bel trucchetto (a me sconosciuto) 

P.S. La discussione originale è qui

[vuott]

...molte strade portano a Roma.   

[allegfede]

in pratica ha sfruttato il meccanismo intrinseco nelle collection che aggiungono un elemento solo se non e' duplicato?

[Gianluigi]

in pratica ha sfruttato il meccanismo intrinseco nelle collection che aggiungono un elemento solo se non e' duplicato?

Si esattamente quello che io, non usando mai le collezioni, non conoscevo.

[allegfede]

me possino, le ho scoperte anche io ora, in questo post