Come cancellare doppioni in un array ?

[vuott]

https://lists.gambas-basic.org/pipermail/user/2017-June/060627.html

[Gianluigi]

Siccome non ho inquadrato il tipo, dice che è 40 anni che codifica e poi fa una domanda così?

allora gli ho passato un codice esplicativo, ma per noi lo completo così:

Codice: [Seleziona]

Public Sub Main()

  Dim sSort As String[] = ["A", "B", "B", "B", "C", "D", "D", "E", "E", "E", "E", "F"]
  Dim sSingle, sWithNumber As New String[]
  Dim i, n As Integer

  For i = 0 To sSort.Max
    If i < sSort.Max Then
      If sSort[i] = sSort[i + 1] Then
        Inc n
      Else
        Inc n
        sSingle.Push(sSort[i])
        sWithNumber.Push(n & sSort[i])
        n = 0
      Endif
    Endif
  Next
  Inc n
  sSingle.Push(sSort[sSort.Max])
  sWithNumber.Push(n & sSort[sSort.Max])
  For i = 0 To sSingle.Max
    Print sSingle[i]
  Next
  For i = 0 To sWithNumber.Max
    Print sWithNumber[i]
  Next

End